'Proteger la feuille active ActiveSheet.Protect Password: ="toto" 'Enlever protection ActiveSheet.Unprotect Password:="toto"
Private Sub Workbook_Open() 'Déprotection de la feuille 1 Sheets(1).Unprotect Password:="toto" End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) ' En quittant.. réactivation de la protection Sheets(1).Protect Password:="toto" End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question