[RESOLU] Probleme protection / déprotection feuille !

  • Initiateur de la discussion Initiateur de la discussion Bosco13
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Bosco13

XLDnaute Occasionnel
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
 
Dernière édition:
Re : Probleme protection / déprotection feuille !

Bonjour,

utilise l'argument "password" :
Code:
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
@+
 
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 !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
735
Retour