Unprotect

[mikael2403]

Bonjour,

Je souhaite supprimer la protection d'une feuille qui contient un mot de passe lors de l'exécution d'une macro.

Avec l'enregistreur de macro j'ai juste le code suivant :

ActiveSheet.Unprotect

Existe-t-il un moyen de supprimer la protection de la feuille et d'intégrer à la macro le mot de passe afin qu'il le saisisse tout seul ?

Je vous remercie d'avance pour votre aide.

Mikael

 

[Cousinhub]

Re : Unprotect

bonjour, regarde les codes :

mot de passe : essai

Sub protege()
Sheets("Feuil1").Protect "essai"
End Sub

Sub deprotege()
Sheets("Feuil1").Unprotect "essai"
End Sub

Edit : Bonjour jeanpierre, belle journée, du moins en Bretagne

 

[jeanpierre]

Re : Unprotect

Bonjour Mikael,

avec : ActiveSheet.Unprotect ("ton mot de passe")

et, par exemple pour réportéger : ActiveSheet.Protect password:="ton mot de passe"

Tu nous dis.

Jean-Pierre

Edit : Bonjour bhbh, un peu lent moi

 

[mikael2403]

Re : Unprotect

Re,

Merci beaucoup.
Les 2 solutions fonctionnent parfaitement.

Merci encore pour votre aide.

Mikael