mot de passe

[bidoutche]

bonsoir,

une question bête.... est-il possible de coller un mot de passe sur chaque feuille d'un seul coup, et bien sûr, de l'oter d'un coup, pluto que de le faire feuille par feuille...? (fastidieux)

merci de votre réponse et bonne nuit à vous

 

[kjin]

Re : mot de passe

Bonsoir bidoutche, le forum
Pour une protection simple
Dans un module, copie les 2 macros suivantes:

Sub Protéger()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To ActiveWorkbook.Sheets.Count
Worksheets(i).Protect
Next i
Application.ScreenUpdating = True
End Sub

Sub Déprotéger()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To ActiveWorkbook.Sheets.Count
Worksheets(i).Unprotect
Next i
Application.ScreenUpdating = True
End Sub

Bonne nuit
kjin

 

[bidoutche]

Re : mot de passe

bonjour

merci de ton aide ca fonctionne parfaitement bien.

bonne journée et merci encore