Protection et deprotection plusieurs feuilles sur un même classeur via macro

  • Initiateur de la discussion Initiateur de la discussion Martflo
  • 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 !

Martflo

XLDnaute Nouveau
Bonjour,

Je suis hyper nvice en maco et code VBA.
J'ai un fichier de 31 feuilles sur lequel j'ai dévérouillée certaines cellules qui pourront être modifiables. Ce fichier sera accessible par plusieurs personnse différentes et je ne veux pas qu'elles puissent faire de modification sur les cellules non dévérouillées.
Je souhaite protéger toutes les feuilles en une seule action (raccourci clavier) avec une demande de mot de passe et pouvoir remettre cette protection facilement (raccourci clavier) avec une demande de mot de passe aussi.
Genre boîte de dialogue : Mettre la protection - saisissez le mot de passe / Enlever le protection - saisissez le mot de passe.

J'ai essayer plusieurs codes mais je n'y arrive pas. La suppression de la protetion me donne toujours un message d'erreur :
1026801


Est-ce que quelqu'un peut m'aider pour cela ?

Merci pour votre grande aide.

Florine
 

Pièces jointes

Bonjour

Une autre possibilité
(avec une macro unique paramétrée)
Code:
Sub protéger()
protection True
End Sub
Sub déprotéger()
protection False
End Sub

Private Sub protection(VerrouFermé As Boolean)
Dim ws As Worksheet
For Each ws In Worksheets
  Select Case VerrouFermé
  Case True
  ws.Protect
  Case False
  ws.Unprotect
  End Select
Next
End Sub
 
- 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

Retour