couper une protection de feuille temporairement pour faire fonctionner une macro

 Autre solution à mon avis meilleure
Worksheets("PM_Tasks").Protect userinterfaceonly:=True, Password:="mot de passe"
permet de laisser la protection mais d'autoriser la macro à faire ce qu'elle doit faire
Je conseille de le mettre dans une boucle l'appliquant sur toutes les feuilles protégées dans le Workbook_open
Ainsi même en interrompant la macro, la protection reste active.

Private Sub Workbook_Open()

Dim wk As Worksheet
Application.ScreenUpdating = False
For Each wk In ThisWorkbook.Worksheets
    If wk.Name <> "Tableau general" And wk.Name <> "ListAct" Then
          wk.Activate
          wk.Protect Password:="azerty", UserInterfaceOnly:=True
    End If
Next wk
Sheets("Tableau general").Select
Application.ScreenUpdating = True

End Sub

Private Sub Workbook_Open()

Dim wk As Worksheet
Application.ScreenUpdating = False
For Each wk In ThisWorkbook.Worksheets
    If wk.Name <> "Tableau general" And wk.Name <> "ListAct" Then
          wk.Activate
          wk.Protect Password:="azerty", UserInterfaceOnly:=True
    End If
Next wk
Sheets("Tableau general").Select
Application.ScreenUpdating = True

End Sub

Private Sub Workbook_Open()
Dim i As Byte
Application.ScreenUpdating = False
For i = 1 To 11
    Sheets("Feuil" & i).Protect Password:="azerty", UserInterfaceOnly:=True
Next i
Application.ScreenUpdating = True

End Sub

 Worksheet.Protect Password:="polo", UserInterfaceOnly:=True