Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If CommandButton1.Caption = "Protect" Then
For Each sh In ThisWorkbook.Sheets
sh.Protect
Next sh
CommandButton1.Caption = "Unprotect"
Else
For Each sh In ThisWorkbook.Sheets
sh.Unprotect
Next sh
CommandButton1.Caption = "Protect"
End If
Application.ScreenUpdating = True
End Sub