protection d'un fichier

[caline]

bonsoir à tous

pourriez-vous encore une fois m'aider a regarder ce qui devrait être modifié.
Sur le forum j'ai copié cette macro
la première doit protéger toutes les feuilles cela se fait

la deuxième deprotège avec mot de passe 222 toutes les feuilles ausii c'est ok mais lorsque le mot de passe est erronné , les feuilles sont également déprotégées ... ce qui n'est pas le but


merci de votre aide

caline


Private Sub CommandButton1_Click()


Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Protect PassWord:="222"
Next Feuil

End Sub

Private Sub CommandButton3_Click()




Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Unprotect PassWord:="222"
Next Feuil
Dim PassWord As String

PassWord = InputBox(" Entrez le mot de passe ", " Déverrouillage de l'ensemble des Feuilles")
If PassWord = "222" Then
ActiveSheet.Unprotect "222"
Else
MsgBox "Erreur Mot de Passe !", , "Attention"
End If

End Sub

 

[CBernardT]

Re : protection d'un fichier

Bonsoir Caline,

Essaye la seconde macro modifiée comme suit :

Private Sub CommandButton3_Click()
Dim Feuil As Worksheet
Dim PassWord As String

PassWord = InputBox(" Entrez le mot de passe ", " Déverrouillage de l'ensemble des Feuilles")
If PassWord = "222" Then
For Each Feuil In Sheets
Feuil.Unprotect PassWord:="222"
Next Feuil
Else
MsgBox "Erreur Mot de Passe !", , "Attention"
End If
End Sub

Cordialement

Bernard

 

[caline]

Re : protection d'un fichier

merci Cbernard

c'est ok

si tu as le temps de me répondre : que faisait ma macro


a plus Caline

 

[CBernardT]

Re : protection d'un fichier

Re,

La macro ci-dessous commence par une boucle qui déprotége. Elle pose ensuite la question du mot de passe pour déprotéger. Illogique !

Private Sub CommandButton3_Click()
Dim Feuil As Worksheet
' Boucle qui déprotège
For Each Feuil In Sheets
Feuil.Unprotect PassWord:="222"
Next Feuil
Dim PassWord As String
Question du mot de passe
PassWord = InputBox(" Entrez le mot de passe ", " Déverrouillage de l'ensemble des Feuilles")
If PassWord = "222" Then
ActiveSheet.Unprotect "222"
Else
MsgBox "Erreur Mot de Passe !", , "Attention"
End If
End Sub

Cordialement

Bernard

 

[caline]

Re : protection d'un fichier

merci


c'est plus clair


a plus Caline