thier is propaply a tider way to do this but something like

Private Sub Auto_Open()

Sheets("viewer 1").Visible = False
Sheets("viewer 2").Visible = False
Sheets("viewer 3").Visible = False
Sheets("viewer 4").Visible = False
Sheets("viewer 5").Visible = False
Sheets("viewer 6").Visible = False
Sheets("viewer 7").Visible = False
Sheets("viewer 8").Visible = False
Sheets("viewer 9").Visible = False

resp = InputBox("user password")
If resp = "password 1" Then Sheets("viewer 1").Visible = True
If resp = "password 2" Then Sheets("viewer 2").Visible = True
If resp = "password 3" Then Sheets("viewer 3").Visible = True
If resp = "password 4" Then Sheets("viewer 4").Visible = True
If resp = "password 5" Then Sheets("viewer 5").Visible = True
If resp = "password 6" Then Sheets("viewer 6").Visible = True
If resp = "password 7" Then Sheets("viewer 7").Visible = True
If resp = "password 8" Then Sheets("viewer 8").Visible = True
If resp = "password 9" Then Sheets("viewer 9").Visible = True

End Sub