password protect and unprotect worksheets.vb

Option Explicit

Private Const Password As String = "xyz"

Sub Protect_Data_Sheets()
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        
        If UCase(ws.Name) <> "SUMMARY" Then
            
            ws.Protect Password
        
        ElseIf UCase(ws.Name) = "SUMMARY" Then
            
            ws.Unprotect Password
        
        End If
        
    Next ws
    
End Sub

Sub Unprotect_All_Sheets()
    Dim ws As Worksheet
    
    On Error Resume Next
    For Each ws In ThisWorkbook.Worksheets
        ws.Unprotect Password
    Next ws
    
End Sub