Private Sub Workbook_Open()
  n = Sheets.Count
  For i = 1 To n
  Worksheets(i).Protect Password:="xxx", UserInterfaceOnly:=True
  Next
  UserForm1.Show
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.ScreenUpdating = False
  Worksheets("Запуск"  .Visible = xlSheetVisible 'делает видимым только 1 лист, в моем случае с именем "Запуск"
  n = Sheets.Count
  For i = 2 To n
  Worksheets(i).Visible = xlSheetVeryHidden
  Next
End Sub

xxx - пароль на защиту всей книги от редактирования, если вам нужен только просмотр

Код на форме:

Private Sub CommandButton1_Click()
    If TextBox1.Text = "Gosha" Then
    UserForm1.Hide
    MsgBox "Привет, Гоша!"
    Worksheets("Гоша"  .Visible = True 'есть некий лист для Гоши и только он становится видимым
    Else:
    If TextBox1.Text = "Lena" Then
    MsgBox "Привет, Лена!"
    Worksheets("Лена"  .Visible = True 'есть некий лист для Лены и только он становится видимым    
    Else: MsgBox "Введен неверный пароль"
    End If ' можно добавить сколько хочешь вариантов
    End If
End Sub