Microsoft 365 Protection automatique feuilles excel

[arpop]

Bonjour,
J'ai un fichier Excel ou chaque feuille est individuellement protégée par un mot de passe. Comment faire pour que en cas d'oubli de la re protection a la fermeture le mot de passe se remette tout seul a chaque fiche ?

Merci d'avance !

 

[sylvanu]

Bonjour Titipro,
On peut mettre ça dans Thisworkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Feuil1").Protect Password:="1111"
    Sheets("Feuil2").Protect Password:="2222"
    Sheets("Feuil3").Protect Password:="3333"
    ' Sheets("xxxx").Protect Password:="aaaa"
    ActiveWorkbook.Save
End Sub

 

[arpop]

Bonjour Titipro,
On peut mettre ça dans Thisworkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Feuil1").Protect Password:="1111"
    Sheets("Feuil2").Protect Password:="2222"
    Sheets("Feuil3").Protect Password:="3333"
    ' Sheets("xxxx").Protect Password:="aaaa"
    ActiveWorkbook.Save
End Sub

Merci beaucoup !
Ca marche nickel maintenant !!