saving multiple worksheets all at once except for two

[LFKim2018]

in the workbook I created - there are several worksheets - I want to password protect/unprotect all sheets except for 2 named "dwg" and "usage"
I used the following macro - it does it to all - how do I insert the exempted worksheet?


Sub Sheets_Protect()

Dim wSheet As Worksheet
Dim Pwd As String

Pwd = InputBox("Enter your password to protect all worksheets", "Password Input")
For Each wSheet In Worksheets
wSheet.Protect Password:=Pwd
Next wSheet

End Sub




Sub Sheets_Unprotect()

Dim wSheet As Worksheet
Dim Pwd As String

Pwd = InputBox("Enter your password to unprotect all worksheets", "Password Input")
On Error Resume Next
For Each wSheet In Worksheets
wSheet.Unprotect Password:=Pwd
Next wSheet
If Err <> 0 Then
MsgBox "You have entered an incorect password. All worksheets could not " & _
"be unprotected.", vbCritical, "Incorect Password"
End If
On Error GoTo 0

End Sub



MANY THANKS

 

[JoeMo]

For Each wSheet In Worksheets
    If wSheet.Name <> "dwg" And wSheet.Name <> "usage" Then
          'Protect or unprotect depending on which macro you are changing
    End If
Next wSheet

 

[LFKim2018]

Thank you