macro pour proteger et deproteger avec password

[stephane]

Comment créer une macro qui protege ma feuille avec un mot de passe, et une autre qui la deprotege avec le mot de passe.

merci pr votre aide

 

[Marc_du_78]

Bonsoir Stéphane,

Private Sub CommandButton13_Click() 'quitter
Sheets('STEPHANE').Protect Password:='123'
End Sub

Private Sub CommandButton12_Click()
Sheets('STEPHANE').Unprotect 'déprotège la feuille
End Sub

 

[ccpapy]

bonjour à tous, un code glané ici même (merci à son auteur) qui protege toutes les feuilles du classeur



Private Sub CommandButton1_Click()

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

End Sub


Private Sub CommandButton2_Click()

Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Unprotect PassWord:='123'
Next Feuil
Dim PassWord As String

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

End Sub

amicalement

 

[Stéphane]

Merci pour votre aide,

maisla protection reste avec mot de passe reste sur une feuille et pas toutes ???
Pouvez vous m'aider?

De plus quelle est la différence entre Private Sub et Sub ???

bonne journée a tous

 

[ccpapy]

bonjour,
un exemple
[file name=mdp_20060511140554.zip size=10979]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mdp_20060511140554.zip[/file]

à+