Macro Oter protection (en demandant mot de passe)

[billouu]

Bonjour,

Je souhaiterai avoir une macro, qui m'ouvre seulement la boite de dialogue ou l'on indique le mot de passe pour oter la protection d'une feuille.
Et je ne souhaite pas que la protection s'enlève toute seule.

D'avance merci,

Billouu

 

[CBernardT]

Re : Macro Oter protection (en demandant mot de passe)

Bonjour billouu et le forum,

A mettre dans le module de la feuille à protéger :

Private Sub Worksheet_Activate()
On Error Resume Next
Sheets("Feuil1").Unprotect
On Error GoTo 0
End Sub
Private Sub Worksheet_Deactivate()
Sheets("Feuil1").EnableSelection = xlNoSelection
Sheets("Feuil1").Protect Password:="***", Contents:=True, UserInterfaceOnly:=True, Scenarios:=True
End Sub

-Changer le nom de la feuille bien sûr ! Ici "Feuil1";
- Ainsi que le mot de passe ! ici "***" trois étoiles.

Cordialement

Bernard

 

[billouu]

Re : Macro Oter protection (en demandant mot de passe)

Et bien merci beaucoup Bernard, cela répond vraiment à ma demande,

Billouu