Creating a macro to password protect each sheet

Hey there,

So I currently have a macro that will password protect a sheet via sheetactivate.

I was wondering if I could extend this to other sheets so they're also password protected?

Private Sub Workbook_Open()
Dim MySheets As String, Response As String
MySheet = "Perth"
If ActiveSheet.Name = MySheet Then
ActiveSheet.Visible = False
    Response = InputBox("Enter password to view sheet")
        If Response = "Coffee33" Then
            Sheets(MySheet).Visible = True
            Application.EnableEvents = False
            Sheets(MySheet).Select
            Application.EnableEvents = True
        End If
End If
Sheets(MySheet).Visible = True
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim MySheets As String, Response As String
MySheet = "Sydney"
If ActiveSheet.Name = MySheet Then
ActiveSheet.Visible = False
    Response = InputBox("Enter password to view sheet")
        If Response = "Coffee33" Then
            Sheets(MySheet).Visible = True
            Application.EnableEvents = False
            Sheets(MySheet).Select
            Application.EnableEvents = True
        End If
End If
Sheets(MySheet).Visible = True
End Sub

You can use a simple sub like -

Sub WS()

Dim WS As Worksheet
    For Each WS In ThisWorkbook.Worksheets
        WS.Protect "Password"
    Next WS
End Sub