Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionapplication.ScreenUpdating = false
Private Sub Unlock_Excel() ActiveWorkbook.Unprotect "blablabla" '<=============Mot de passe Dim feuille For Each feuille In Sheets feuille.Unprotect "blablabla" Next End Sub
Private Sub Lock_Excel() ' ActiveWorkbook.Protect "blablabla" ' Dim feuille For Each feuille In Sheets feuille.Protect "blablabla" Next