XL 2016 proteger la feuille sans protection bouton clic

jecherche

XLDnaute Occasionnel

• 30 Juillet 2016

• #2

Bonjour,

À tester ...

Code:

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

Jecherche

 

Dernière édition: 30 Juillet 2016

Vote positif 0 Vote négatif

lamho27

XLDnaute Occasionnel

• 30 Juillet 2016

• #3

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

 

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 31 Juillet 2016

• #4

Bonjour,

Code:

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

 

Vote positif 0 Vote négatif

lamho27

XLDnaute Occasionnel

• 31 Juillet 2016

• #5

Bonjour à tous et jecherche
Merci bien ton code , excellent

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 31 Juillet 2016

• #6

lamho27 à dit:

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

Cliquez pour agrandir...

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

Code:

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

Salutations.
JJ

 

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 31 Juillet 2016

• #7

Bonjour,

Excellent ...

Jecherche

 

Vote positif 0 Vote négatif