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

[Martflo]

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 :

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

Merci pour votre grande aide.

Florine

 

[JM27]

Bonjour
ci joint exemple a adapter a ton fichier

 

[Martflo]

Bonjour,
J'ai recopié votre code dans un module du fichier.
Lorsque je lance le code avec F5, les feuilles sont bien protégées. Mais j'ai ce message d'erreur dans VBA :

Et je ne peux choisir la fonction déprotéger...

 

[JM27]

Bonjour
Il y a deux feuilles masquées qui ont à priori ont des mot de passe
classified as unclassified
et
xl_DCF_History

Je les ai supprimé pour tester : OK
A toi d'affecter les macros aux touches de raccourci

 

[Staple1600]

Bonjour

Une autre possibilité
(avec une macro unique paramétrée)

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

 

[Martflo]

JM27,
Cela semble fonctionné. Merci beaucoup.
Comment je peux insérer à raccourci clavier en lieu et place d'aller dans le VBA ?
Florine

 

[Martflo]

JM27,
Comment je peux faire pour les voir ses 2 pages masquées sur mes autres maquettes ?
Merci d'avance

 

[Martflo]

JM27,
Comment je fais pour copier le UserForm ?
Merci bcp pour votre aide

 

[Staple1600]

Re

Martflo
Sympathique d'avoir zappé ma contribution...
Et même pas un petit Bonjour
(Je suis passé dans ton fil de discussion entre le message #4 et le message#6)

 

[Martflo]

Bonjour Staple1600,

Pardon j'ai d'abord lu la réponse de JM27 et du coup, j'ai essayé dans la foulée sa proposition.

Toutes mes excuses et merci pour ton retour que je vais aussi essayer de ce pas.

 

[Martflo]

Staple1600,

Sauf erreur de ma part, je n'ai pas de mot de passe dans le code alors qu'il me le demande...

 

[Staple1600]

Re

Ouf, je croyais être invisible

Pour info, c'est pas JM37 mais JM27 le pseudo de Jean-Marcel

PS: Dans mon exemple, la protection se fait sans mot de passe.

 

[Martflo]

Staple1600,

Pas du tout, je suis sur ce fichier depuis 2 jours alors j'ai hate d'en finir et de passer à autre chose...

J'ai vu mon erreur et je l'ai corrigé ;-)

Merci

 

[JM27]

Bonjour
pour copier un userform:
Ouvrir les deux fichiers
Aller dans le projet VBA et sélectionner l'userform
et tu le glisses d'un endroit vers l'autre
Idem pour le module

 

[JM27]

Pour afficher les deux feuilles en veryhidden
aller dans le projet VBA
sélectionner la feuille cachée et faire F4 ou ouvrir la fenétre propriété
et changer la ligne correspondant (visible)