VBA protection feuille aléatoire Résolu/Fermé

Question

Bonjour, 

J'écris pour la première fois. VBA est pour moi un mystère, j'apprends à petite dose grâce à l'enregistreur et grâce à ceux qui donnent du temps comme vous pour répondre et partager leur savoir

j'ai créer un vba pour un fichier, que je ne peux pas diffuser, car professionel.
Je bloque au niveau de la protection de la feuille, ça se fait pour certaines personnes pas d'autres...

Je souhaite 
- que certaines feuilles soient masquées = ok

- qu'un 1er filtre se fasse sur la colonne A, suivant le nom d'office (excel) et une base de données sur une autre page (feuil2) 
= code trouvé sur internet
p.ex. si j'ouvre le fichier et que je suis sur la liste, je ne vois que les cellules de la colonne A qui contiennent "AMO"

- qu'un filtre se fasse sur la colonne C, sur les cellules sans remplissage = ok


- qu'il protège la feuille avec un mot de passe 
= ici je coince, j'ai remarqué que si j'enlève mon nom de la liste "utilisateurs" la feuille n'est plus protegée lorsque je l'ouvre. Est-ce que dans le code que j'ai recuperé sur internet, y a qch qui demande ça ?

Je voudrais que le fichier soit protegé de tous. 
Que ceux qui sont sur la liste ne puissent pas modifier quoi que ce soit (sauf si elle a le mdp) + que toutes personnes qui ne sont pas sur la liste, ne voit rien. Si A (qui est sur la liste) envoi le fichier à B (qui n'est pas sur la liste) qu'il en voit aucune ligne
 
Pouvez-vous m'aider svp
Merci d'avance

Private Sub Workbook_Open()

Worksheets("Stats 2018").Visible = 0 'masque le feuille Stats 2018
Worksheets("-").Visible = 0 'masque le feuille -
Worksheets("+").Visible = 0 'masque le feuille +
Worksheets("Feuil2").Visible = 0 'masque le feuille 2 qui contient la table de correspondance

ActiveSheet.Range("C:C").AutoFilter Field:=3, Operator:= _
        xlFilterNoFill

  'chercher l'initiale dans la table de correspondance (ici sur feuille 2)
    nom = Application.UserName
  initiales = Application.VLookup(nom, [utilisateurs], 2, False)  ' table correspondance
  If Not IsError(initiales) Then
    Sheets(1).Cells.AutoFilter Field:=1, Criteria1:=initiales
    
      
'proteger la feuille avec mdp ici "marson" pour éviter que les personnes annulent le filtre de leur initiale
'Sheets(1).Protect Password:="marson"
  End If
End Sub


Configuration: Windows / Internet Explorer 11.0

fabien25000 · Answer

Bonjour
si tu veux que la feuille soit protégée en toute circonstance il faut mettre les lignes de code en dehors du if sinon effectivement la feuille ne se protège que si la condition est remplie 

Private Sub Workbook_Open()

Worksheets("Stats 2018").Visible = 0 'masque le feuille Stats 2018 
Worksheets("-").Visible = 0 'masque le feuille - 
Worksheets("+").Visible = 0 'masque le feuille + 
Worksheets("Feuil2").Visible = 0 'masque le feuille 2 qui contient la table de correspondance

ActiveSheet.Range("C:C").AutoFilter Field:=3, Operator:= _ 
xlFilterNoFill

'chercher l'initiale dans la table de correspondance (ici sur feuille 2) 
nom = Application.UserName 
initiales = Application.VLookup(nom, [utilisateurs], 2, False) ' table correspondance 
If Not IsError(initiales) Then 
    Sheets(1).Cells.AutoFilter Field:=1, Criteria1:=initiales 
End If 
 'proteger la feuille avec mdp ici "marson" pour éviter que les personnes annulent le filtre de leur initiale 
Sheets(1).Protect Password:="marson"
End Sub 


edit et surtout la ligne qui protége la feuille est en commentaire (chose que je n'avait pas vu en l'absence des balises de code)

fabien25000 · Answer

Bonjour,
il te faut plusieurs choses pour faire ça :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 'on rétabli à la fermeture
     ThisWorkbook.IsAddin = True
'et à la fin de ta macro : remettre raccourci clavier Ctrl Pause
    Application.EnableCancelKey = xlInterrupt 'Ou xlErrorHandler
End Sub

Private Sub Workbook_Open()

Dim tmpmsgbx, i As Integer
    
'empêcher l'affichage d'un classeur s'il est ouvert alors que l'exécution
'des macros est désactivée dans les options de sécurité
    ThisWorkbook.IsAddin = False
''au début de ta macro
    Application.EnableCancelKey = xlDisabled 'empeche raccourci clavier Ctrl Pause
    
    Worksheets("Stats 2018").Visible = 0 'masque le feuille Stats 2018
    Worksheets("-").Visible = 0 'masque le feuille -
    Worksheets("+").Visible = 0 'masque le feuille +
    Worksheets("Feuil2").Visible = 0 'masque le feuille 2 qui contient la table de correspondance
    Sheets(1).Unprotect Password:="marson"
    ActiveSheet.Range("C:C").AutoFilter Field:=3, Operator:= _
    xlFilterNoFill
    
    'chercher l'initiale dans la table de correspondance (ici sur feuille 2)
    Nom = Application.UserName
    initiales = Application.VLookup(Nom, [utilisateurs], 2, False) ' table correspondance
    If Not IsError(initiales) Then
        Sheets(1).Cells.AutoFilter Field:=1, Criteria1:=initiales
    Else
        MsgBox "vous n'êtes pas pilote Codir et n'avez pas accès au fichier"
        ThisWorkbook.Close savechanges:=False
    End If
     'proteger la feuille avec mdp ici "marson" pour éviter que les personnes annulent le filtre de leur initiale
    Sheets(1).Protect Password:="marson"

End Sub


Code largement issu des conseils de cs_LePivert que je salue

VBA protection feuille aléatoire

2 réponses

Discussions similaires