Protect and Unprotect Worksheets
Private Sub CommandButton1_Click() Dim Sh As Worksheet For Each Sh In ThisWorkbook.Worksheets Sh.Activate Application.Dialogs(xlDialogProtectDocument).Show Next End Sub