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

J

JM27

XLDnaute Barbatruc

• 17 Mars 2019

• #2

Bonjour
ci joint exemple a adapter a ton fichier

 

Pièces jointes

• MotDePasse.xlsm

  24.7 KB · Affichages: 48

Vote positif 0 Vote négatif

M

Martflo

XLDnaute Nouveau

• 17 Mars 2019

• #3

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...

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 17 Mars 2019

• #4

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

 

Pièces jointes

• Maquette (1).xls

  3.6 MB · Affichages: 33

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Mars 2019

• #5

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

 

Vote positif 0 Vote négatif

M

Martflo

XLDnaute Nouveau

• 17 Mars 2019

• #6

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

 

Dernière édition: 17 Mars 2019

Vote positif 0 Vote négatif

M

Martflo

XLDnaute Nouveau

• 17 Mars 2019

• #7

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

 

Dernière édition: 17 Mars 2019

Vote positif 0 Vote négatif

M

Martflo

XLDnaute Nouveau

• 17 Mars 2019

• #8

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

 

Dernière édition: 17 Mars 2019

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Mars 2019

• #9

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)

 

Vote positif 0 Vote négatif

M

Martflo

XLDnaute Nouveau

• 17 Mars 2019

• #10

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.

 

Vote positif 0 Vote négatif

M

Martflo

XLDnaute Nouveau

• 17 Mars 2019

• #11

Staple1600,

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Mars 2019

• #12

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.

 

Vote positif 0 Vote négatif

M

Martflo

XLDnaute Nouveau

• 17 Mars 2019

• #13

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

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 17 Mars 2019

• #14

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

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 17 Mars 2019

• #15

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)

 

Dernière édition: 17 Mars 2019

Vote positif 0 Vote négatif