Private Sub TB1_Click()
Dim Feuil As Worksheet
With Application
.ScreenUpdating = 0
.Calculation = xlCalculationManual
End With
For Each Feuil In Worksheets
TB1.Caption = IIf(TB1, "Déprotéger", "Protéger") & " les feuilles."
TB1.BackColor = IIf(TB1, &HC0FFC0, &HC0E0FF)
Feuil.Activate
Application.Run IIf(TB1, "MP", "MDP")
Next Feuil
With Application
.ScreenUpdating = 1
.Calculation = xlCalculationAutomatic
End With
Me.Activate
End Sub