saisie mot de passe via macro

[goby]

Bonjour, je fais appel à vous car je tourne en rond !
j'ai un cetain nombre de feuilles Excel que je manipule et pour les quelles je dois saisir le mot de passe pour les protéger et déprotéger. Bienque le mot de passe soit identique, la répétition est fastidieuse et sans intérêt.
Quel serait le code pour une saisie automatique via un raccourci clavier par exemple ?
merci à vous

 

[Pierrot93]

Re : saisie mot de passe via macro

Bonjour,

déprotège tout à l'ouverture du classeur, les codes ci dessous à placer dans le module "thisworkbook", le premier se déclenche à l'ouverture du classeur, le 2ème à sa fermeture... :

Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Unprotect "toto"
Next ws
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Protect "toto"
Next ws
End Sub

bonne journée
@+

Edition : bonjour toto euh... Robert🙂

 

[Robert]

Re : saisie mot de passe via macro

Bonjour Goby, bonjour le forum,

Sub Macro1()
ActiveSheet.Unprotect Password:="toto" 'à adapter
End Sub

Sub Macro2()
ActiveSheet.Protect Password:="toto" 'à adapter
End Sub

Ensuite (sous Excel 2003), menu Outil/Macro/Macros... (ou [Alt]+[F8]),
• sélctionner la Macro1 et cliquer sur le bouton Options... taper u (par exemple, pour Unprotect)
• sélctionner la Macro2 et cliquer sur le bouton Options... taper p (par exemple, pour Protect)

À partir de là, [Ctrl]+ va déprotéger l'onglet actif et [CTRL] + [p] va protéger l'onglet actif

[Édition]
P... il faut que je change mes mots de passe, Pierrot les connaît déjà ! Salut Pierrot...

 

[goby]

Re : saisie mot de passe via macro

merci beaucoup, je vais essayer de ce pas.
Tout ce que je trouvais sur internet c'était comment faire pour ouvrir un classeur sans le mot de passe...