Bonjour,
J'ai vu une tonne de fils sur le sujet; je suis passé sur exelabo aussi, même sur comment ça marche.
Pour protéger le classeur entier d'un seul coup, pas de problème.
Je mets dans ThisWorkbook:
Ce que je cherche, c'est une macro qui déprotège le classeur en entier mais je veux inclure un mot de passe comme condition.
Autrement dit, j'inclus un commandbutton nommé 'Dévereouiller le classeur' en Feuil1 qui, une fois activé, demande le mot de passe et ensuite, toutes les feuilles sont déprotégées: une seule étape.
...je crois qu'il faut amalgamer quelque chose comme:
J'ai vu une tonne de fils sur le sujet; je suis passé sur exelabo aussi, même sur comment ça marche.
Pour protéger le classeur entier d'un seul coup, pas de problème.
Je mets dans ThisWorkbook:
Code:
Private Sub Workbook_Open()
Dim MaFeuille As Worksheet
For Each MaFeuille In Worksheets
MaFeuille.Protect Password:="1234"
Next
End Sub
Ce que je cherche, c'est une macro qui déprotège le classeur en entier mais je veux inclure un mot de passe comme condition.
Autrement dit, j'inclus un commandbutton nommé 'Dévereouiller le classeur' en Feuil1 qui, une fois activé, demande le mot de passe et ensuite, toutes les feuilles sont déprotégées: une seule étape.
...je crois qu'il faut amalgamer quelque chose comme:
Code:
Sub Deverouiller()
mp = InputBox("Mot de passe?")
If mp = "1234" Then
Pièces jointes
Dernière modification par un modérateur: