Making sheets visible/invisible with password

It comes up with errors to make results 2 and recent invisible. help?

Private Sub Workbook_Open()

ThisWorkbook.Activate
ActiveWorkbook.Windows(1).Visible = True
Sheets("swb").Activate
Sheets("results 2").Visible = False
Sheets("recent").Visible = False
Sheets("swb").Range("h4").Select
Call HideAllSheets

End Sub

'Hide Charts on Open
Sub HideAllSheets()
Application.ScreenUpdating = False
Dim ch As Chart
For Each ch In Charts
ch.Visible = xlSheetVeryHidden
Application.ScreenUpdating = True
Next ch

ThisWorkbook.Protect Password:="password"

End Sub