Microsoft 365 Protection automatique feuilles excel

arpop · 27 Janvier 2023

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 · 27 Janvier 2023

Bonjour Titipro,
On peut mettre ça dans Thisworkbook :

VB:

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 · 27 Janvier 2023

sylvanu à dit:

Bonjour Titipro,
On peut mettre ça dans Thisworkbook :

VB:

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 !!

Microsoft 365 Protection automatique feuilles excel

arpop

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

arpop

XLDnaute Nouveau

Discussions similaires