Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'скрываем все листы, кроме листа ПРЕДУПРЕЖДЕНИЕ
    Worksheets("Предупреждение").Visible = True
    For Each sh In ActiveWorkbook.Worksheets
        If sh.Name = "Предупреждение" Then
            sh.Visible = True
        Else
            sh.Visible = xlSheetVeryHidden
        End If
    Next sh
    'сохраняемся перед выходом
    ActiveWorkbook.Save
End Sub

Private Sub Workbook_Open()
    Dim wsSh As Object
    For Each wsSh In Me.Sheets
        Protect_for_User_Non_for_VBA wsSh
    Next wsSh
    For Each sh In ActiveWorkbook.Worksheets
        sh.Visible = True
    If Environ("USERNAME") <> "A.Gubanov" And Environ("USERNAME") <> "e.shevskaya" Then
        Worksheets("Настройки").Visible = False
        Worksheets("Сотрудники").Visible = xlVeryHidden
    Else
        For i = 1 To Worksheets.Count
            Worksheets(i).Visible = True 
        Next i
    End If
    Next sh
    'скрываем листы ПРЕДУПРЕЖДЕНИЕ
    Worksheets("Предупреждение").Visible = xlSheetVeryHidden
End Sub

Sub Protect_for_User_Non_for_VBA(wsSh As Worksheet)
    wsSh.Protect Password:="96318645", UserInterfaceOnly:=True
End Sub