Protect and Unprotect Worksheets

     

    Click on below mentioned image to watch video:

    Download The Workbook

     

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