XL 2016 proteger la feuille sans protection bouton clic

[lamho27]

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

 

[jecherche]

Bonjour,

À tester ...

ActiveSheet.Unprotect
   'ici, ton code
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Jecherche

 

[lamho27]

bonsoir à tous et jecherche
ton code ne marche pas , par contre je veux trouver solution pour protéger la feuille mais même temps on peut utiliser bouton clic
quelqu'un m'aider, merci

 

[jecherche]

Bonjour,

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

Ça fonctionne chez-moi ... 🙂


Jecherche

 

[lamho27]

Bonjour à tous et jecherche
Merci bien ton code , excellent

 

[Jacky67]

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

Bonjour,
Ceci, dans le ThisWorkbook du classeur permet toutes modifications par code VBA, sans avoir à ôter la protection de la feuille

Private Sub Workbook_Open()
    With Feuil1
        .Protect , UserInterfaceOnly:=True
    End With
End Sub

Salutations.
JJ

 

[jecherche]

Bonjour,

Excellent ... 😉

Jecherche