Forcer la protection d'une feuille à son ouverture

[olggapt]

Bonjour,

Quand on travaille sur une feuille après avoir ôté sa protection, souvent on ne pense pas à la remettre avant d'enregistrer le classeur.

Pour éviter cela, je voudrais créer une macro à l'ouverture du fichier qui met la protection par défaut.

Je ne sais pas si je suis clair ?
merci à tous.

 

[phlaurent55]

Re : Forcer la protection d'une feuille à son ouverture

Bonjour olggapt,

voici 3 possibilités
- avant fermeture
- avant sauvegarde
- à l'ouverture

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("lafeuille_à_protéger").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="toto"
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Sheets("lafeuille_à_protéger").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="toto"
End Sub

Private Sub Workbook_Open()
    Sheets("lafeuille_à_protéger").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="toto"
End Sub

à+
Philippe

 

[olggapt]

Re : Forcer la protection d'une feuille à son ouverture

Merci beaucoup. Clair et complet.