Protection feuilles
S
bonjour,
J'utilise ce code :
Sub protect_all_sheets()
pass = Elec123
For i = 1 To Worksheets.Count
If Worksheets(i).ProtectContents = True Then GoTo oops
Next
For Each s In ActiveWorkbook.Worksheets
s.Protect Password:=pass
Next
Exit Sub
oops: MsgBox "Certaines feuilles sont déjà protégées, enlever la protection avant d'utiliser cette macro."
End Sub
Pour protéger toutes mes feuilles, cela fonctionne très bien par contre j'ai remarqué que l'on peut changer le nom des feuilles, je voudrais protéger cette possibilité également, quelle serait la ligne à rajouter ?
Bonjour
La protection du classeur interdit de renommer, déplacer, ajouter, supprimer les onglets
S
Effectivement !
Merci