VBA Protect and Unprotect for a specific sheet

Question

Dear Community,&nbsp;&nbsp;This VBA allows me to protect and unprotect the workbook. However, I would prefer just a few sheets rather than the whole workbook.Sub ProtectWB_Protect_All_Sheets_Pswrd()
    
    Dim ws As Worksheet
    
    ActiveWorkbook.Unprotect "password"
    
    For Each ws In Worksheets
   
        ws.Protect "password", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Next
    
    ActiveWorkbook.Protect "password"
End SubExample like I have 3 sheet (a,b,c).&nbsp;Only set sheet b to protect and unprotect with password "eren".And set sheet c to protect and unprotect with password "yeagar".&nbsp;I am new to this and almost feel overwhelmed by this simple code. Any help provided will be greatly appreciated!Thank you!&nbsp;

hansvogelaar · Accepted Answer

nickii95&nbsp;
Like this:
Sub ProtectWB_Protect_All_Sheets_Pswrd()
    ActiveWorkbook.Unprotect "password"
    Worksheets("a").Protect Paswword:="eren", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Worksheets("b").Protect Paswword:="eren", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Worksheets("c").Protect Paswword:="yeagar", DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveWorkbook.Protect "password"
End Sub

Forum Discussion

VBA Protect and Unprotect for a specific sheet

1 Reply

Resources