ActiveSheet.Unprotect
'ici, ton code
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sub Zero()
' Zero Macro
ActiveSheet.Unprotect
Range("A5,A10,A16,D22,C23,A38,A44,A50,A56,A64,A70,A76,A82,A88,A94,A100,A106,G3,G10,G16,G22,G28,G38,G44,G50,G56,G62,G66,G70,G76,G82,G88,G94,G100,G106").ClearContents
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Bonjour,Bonjour le forum
j'ai un souci de protéger la feuille , je protège de la feuille je ne peux pas touche bouton clic " erreur VBA 400"
pouvez-vous m'aider ? merci d'avance
Private Sub Workbook_Open()
With Feuil1
.Protect , UserInterfaceOnly:=True
End With
End Sub