deverrouiller feuille par mot de passe

[bubus31]

Bonjour,

J'ai fait une macro pour protéger et déprotéger toutes les feuilles de mon classeur par mot de passe. Mais la macro de déverrouillage ne demande pas le mot de passe, ce que je souhaiterai.
Voici la macro:
Sub verrouille()
dim nombre as integer
dim i as integer
dim passe as string
nombre=activeworkbook.worksheets.count
application.screenupdating=false
for i =1 to nombre
activeworkbook.worksheets(i).protect password:="passe", drawingobjects:=true, contents:=true;scenarios:=true
next i
end sub


Sub deverrouille()
dim nombre as integer
dim i as integer
dim passe as string
nombre=activeworkbook.worksheets.count
application.screenupdating=false
for i =1 to nombre
activeworkbook.worksheets(i).unprotect password:="passe",
next i
end sub

Et si j'enleve password:="passe" excel me demande le mot de passe, ce que je souhaite, mais il bug et me redemande encore le mem mot de passe, en fait il ne le reconnait pas...
comment faire pour qu'il demande automatiquement le mot de passe lors du déverrouillage? je sais que ca marche tres bien en manuel, et j'aurais aimé le mettre sous forme de macro..

Merci d'avance,


Bubus

 

[Banzai64]

Re : deverrouiller feuille par mot de passe

Bonjour

A modifier

activeworkbook.worksheets(i).protect password:="passe", drawingobjects:=true, contents:=true [COLOR="Red"][SIZE="4"],[/SIZE][/COLOR]scenarios:=true

dans cette partie il faut enlever la virgule

activeworkbook.worksheets(i).unprotect password:="passe"[COLOR="Red"][SIZE="4"], [/SIZE][/COLOR]

Je viens de faire le test
Il me demande le mot de passe autant de fois que j'ai de pages protégées

 

[bubus31]

Re : deverrouiller feuille par mot de passe

Bonjour,

tout d'abord merci pour ton aide,
j'ai effectué les modifs indiquées, et en supprimant aussi 'password:=passe' dans sub deverrouill() et cela marche comme tu le dis!! il me demande le mot de passe autant de fois qu'il y a de pages pour tout deverouiller!
merci beaucoup pour ton aide!


bubus