Protection d'une feuille + password

[Moana]

Bonjour

Quelqu'un pourrais me dire comment protéger une feuille de mon classeur avec un mot de passe avec une macro, idem pour la déprotéger. et une autre macro pour toutes les feuilles en même temps.

Merci pour votre aide

Moana

 

[jpierre]

salut,


Sub DeprotectionToutesLesFeuilles()
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Unprotect password:="ton mot de passe"
On Error GoTo Sortie
Suite:
Next Feuil
Exit Sub
Sortie:
MsgBox "La Feuille : " & Feuil.Name & " Est Protégée par UN AUTRE Mot de Passe"
GoTo Suite
End Sub

Sub ProtectionToutesLesFeuilles()
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Protect password:="ton mot de passe"
Next Feuil
End Sub


et voila

 

[Mytå]

Bonsoir le forum

Si tu veux certaines cellules non protegées

'Cellule non protegée, formule visible
Range("F6").Select
Selection.Locked = False
Selection.FormulaHidden = False
'Cellule non protegée, formule invisible
Range("F8").Select
Selection.Locked = False
Selection.FormulaHidden = True

Mais tu dois quand meme proteger ta feuille.

Mytå