Bonjour au forum,
Tout d'abord, bonne année !
Je cherche à protéger une cinquantaine de feuilles via une macro VBA, en protégeant les objets (qui sont des formes dans mon cas) MAIS en autorisant l'ajout de commentaires dans certaines cellules (Plage A12:L45).
J'utilisais jusqu'à maintenant ces macros toutes simples pour la protection mais dans ce cas là, les commentaires sont désactivés :
Sub Déprotéger()
Application.ScreenUpdating = False
' Déprotection automatique de toutes les feuilles du classeur
For i = 1 To Sheets.Count
Sheets(i).Unprotect Password:="mdp"
Next i
Application.ScreenUpdating = True
End Sub
Sub Protéger()
Application.ScreenUpdating = False
' Protection automatique de toutes les feuilles du classeur
For i = 1 To Sheets.Count
Sheets(i).Protect Password:="mdp", DrawingObjects:=False, Contents:=True, Scenarios:=False
Next i
Application.ScreenUpdating = True
End Sub
Or, si je passe de :
DrawingObjects:=False
à
DrawingObjects:=True
, je peux ajouter des commentaires mais mes formes sont modifiables...
Quelqu'un aurait-il une astuce ?