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

Staple1600

XLDnaute Barbatruc

• 17 Mars 2019

• #16

Re

@Martflo
Version de mon précédent code avec demande de mot de passe

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
MDP$ = InputBox("Saisir votre mot de passe!", "Identification")
For Each ws In Worksheets
  Select Case VerrouFermé
  Case True
  ws.Protect MDP$
  Case False
  ws.Unprotect MDP$
  End Select
Next
End Sub

 

Dernière édition: 17 Mars 2019

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 17 Mars 2019

• #17

pour affecter une touche de raccourci à une macro déja crée
sur le menu développeur :
selectionner maro.
tu obtiens la liste des macro , selection sur celle qui t'intéresse et clic sur option et la tu as accès aux touches de raccourci
si tu as pas développeur tu vas dans fichier /options/personnaliser le ruban et tu sélectionnes développeur

 

Vote positif 0 Vote négatif

M

Martflo

XLDnaute Nouveau

• 17 Mars 2019

• #18

Staple,
J'ai ce message d'erreur quand je veux enlever la protection :

La suppression de la protection fonctionne mais...

Merci bcp

 

Vote positif 0 Vote négatif

M

Martflo

XLDnaute Nouveau

• 17 Mars 2019

• #19

JM27,
Merci je vais essayer tout cela.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Mars 2019

• #20

Re

@Martflo
Je n'ai pas eu ce message d'erreur lors de mes tests
Essaie faire un test sur un fichier vierge non protégé dans lequel tu copies mon code dans un module standard
Ensuite lance la macro nommée protéger, saisis un mot de passe
Normalement toutes les feuilles sont protégées
Ensuite lances la macro nommée déprotéger, saisis le mot de passe précédemment saisi
Normalement toutes les feuilles sont déprotégées.

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 17 Mars 2019

• #21

bonsoir Jean-Marie
voir le #4
c'est surement le pb

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Mars 2019

• #22

Bonsoir Jean-Marcel

En tenant compte de ta remarque, j'ai modifié ma macro ainsi

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
MDP$ = InputBox("Saisir votre mot de passe!", "Identification")
For Each ws In Worksheets
If ws.Visible Then
  Select Case VerrouFermé
  Case True
  ws.Protect MDP$
  Case False
  ws.Unprotect MDP$
  End Select
End If
Next
End Sub

 

Vote positif 0 Vote négatif

M

Martflo

XLDnaute Nouveau

• 17 Mars 2019

• #23

Staple,
J'ai fait l'essai sur un autre fichier, je n'ai effectivement pas le message d'erreur grrrr
Je ne comprends pas pourquoi mon fichier est foireux...snif
Merci pour votre aide

 

Vote positif 0 Vote négatif

M

Martflo

XLDnaute Nouveau

• 17 Mars 2019

• #24

JM27 et Staple,

Je vous remercie très sincérement pour votre aide.

Tout fonctionne avec des raccourcis claviers, une demande de mot de passe et un message d'action réalisée...

Merci beaucoup

Bonne continuation

Florine

 

Vote positif 0 Vote négatif

M

Martflo

XLDnaute Nouveau

• 17 Mars 2019

• #25

Euh.... Tout fonctionne sauf que je n'arrive pas à changer le mot de passe.
Toto c'est sympa mais ca le fait pas trop professionnellement.
Pouvez vous m'aider encore un peu ?
Merci

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 18 Mars 2019

• #26

Bonjour
Ci joint une version plus complète de la protection avec deux userform.
J'ai volontairement affiché le mot de passe dans la cellule A1 pour parfaire la mise au point ( c'est un "parachute" en cas de pb)
dès la mise au point terminée , il faudra supprimer dans les deux userform les lignes correspondantes : elles sont signalées pour en faciliter la suppression

 

Pièces jointes

• Protection et déprotection feuille.xlsm

  29.5 KB · Affichages: 17

Vote positif 0 Vote négatif

M

Martflo

XLDnaute Nouveau

• 18 Mars 2019

• #27

Bonjour Jean-Michel,

Je te remercie pour cette superbe amélioration. Je ne savais pas que le mot de passe était codé dans le userform :-(
Belle journée

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 18 Mars 2019

• #28

Bonjour
Non il n'est plus codé dans le userform et devient donc libre

 

Vote positif 0 Vote négatif

S

Sacha1980

XLDnaute Nouveau

• 15 Février 2021

• #29

JM27 à dit:

Bonjour
Ci joint une version plus complète de la protection avec deux userform.
J'ai volontairement affiché le mot de passe dans la cellule A1 pour parfaire la mise au point ( c'est un "parachute" en cas de pb)
dès la mise au point terminée , il faudra supprimer dans les deux userform les lignes correspondantes : elles sont signalées pour en faciliter la suppression

Cliquez pour agrandir...

Hello JM27,

Merci pour les codes, c'est du bon boulot et cela résolve mon problème du coup.

Sacha.

 

Vote positif 0 Vote négatif