[RESOLU] Probleme protection / déprotection feuille !

[Bosco13]

Bonjour le Forum,

je viens vers vous car je suis confronté a un petit probleme de protection de feuille

sur une feuille j'utilise des boutons qui donnent une couleur a des cellules

afin d'eviter les erreurs de changement de mise en page et de certaines cellules par les utilisateurs je protege la feuille ( VBA également)


je suis confronté au problèeme du mot de passe Protection feuille

Sans celui ci la commande ci dessous fonctionne parfaitement

Private Sub CommandButton5_Click()
ActiveSheet.Unprotect
Selection.Interior.ColorIndex = 46
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

ma question est : comment integrer le mot de passe dans cette commande pour l'oter et le remettre automatiquement. ( exemple :12345 )

Je vous remercie d'avance tous pour votre aide

@@ ++ Bosco

 

[Pierrot93]

Re : Probleme protection / déprotection feuille !

Bonjour,

utilise l'argument "password" :

Private Sub CommandButton5_Click()
 ActiveSheet.Unprotect Password:="toto"
 Selection.Interior.ColorIndex = 46
 ActiveSheet.Protect Password:="toto", DrawingObjects:=True, Contents:=True, Scenarios:=True
 End Sub

bonne journée
@+

 

[Paf]

Re : Probleme protection / déprotection feuille !

Bonjour à tous

ça marche aussi comme ceci

ActiveSheet.Protect "toto" et ActiveSheet.UnProtect "toto"

Bonne journée

 

[Bosco13]

Re : Probleme protection / déprotection feuille !

bonjour Pierrot93, Re le forum

Super je te remercie cela fonctionne parfaitement ( je n'y avait pas pensé..!)

Bonne journée

Bosco13 @@+++++


EDIT: bonjour paf merci a toi également cela fonctionne aussi !