Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Private Sub Workbook_Open()
Dim sh As Worksheet 'назначает переменную для листа
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect "password"
sh.Visible = True
Next sh
    'ищем последнюю занятую строчку в логах
    lastrow = Worksheets("Лог").Range("A60000").End(xlUp).Row
    'заносим имя пользователя и дату-время входа в файл
    Worksheets("Лог").Cells(lastrow + 1, 1) = Environ("USERNAME")
    Worksheets("Лог").Cells(lastrow + 1, 2) = Now
    'отображаем все листы

Dim a As Range
For Each sh In ActiveWorkbook.Worksheets
Set Rng = sh.Range("d10:bt10") 'строка дат
' ниже в списке указываем администраторов файла, то есть Финансистов
    If UCase(Environ("USERNAME")) = UCase("Name.Surname") Or _
        UCase(Environ("USERNAME")) = UCase("Name.Surname") Or _
        UCase(Environ("USERNAME")) = UCase("1") Then
            For Each a In Rng
                a.EntireColumn.Hidden = False
            Next a
' Ниже указываем вторичных пользователей HR, Director
    ElseIf UCase(Environ("USERNAME")) = UCase("3") Or _
        UCase(Environ("USERNAME")) = UCase("2") Or _
        UCase(Environ("USERNAME")) = UCase("Name.Surname") Or _
        UCase(Environ("USERNAME")) = UCase("2") Or _
        UCase(Environ("USERNAME")) = UCase("1") Then
            For Each a In Rng
                    a.EntireColumn.Hidden = False
                Next a
                sh.Cells.Locked = True
    ElseIf UCase(Environ("USERNAME")) = UCase("Name.Surname") Or _
           UCase(Environ("USERNAME")) = UCase("Name.Surname") Or _
           UCase(Environ("USERNAME")) = UCase("Name.Surname") Or _
           UCase(Environ("USERNAME")) = UCase("Name.Surname") Then
            sh.Range("A17:BM133").Locked = False
            sh.Range("D11:BM11").Locked = False
            For Each a In Rng
                    a.EntireColumn.Hidden = False
                Next a
    Else
            sh.Cells.Locked = True
            sh.Range("A17:C133").Locked = False 'снимает защиту с ФИО и Должности
            sh.Range("A17:A31").Locked = True 'ставим защиту на список людей
            sh.Range("D11:BM11").Locked = False 'снимаем защиту со строки выпуска продукции
            For Each a In Rng
            If a = Date Or a = Date + 1 Or a = Date - 1 Then
                a.Rows("8:124").Locked = False 'указать начиная с какой строки после проверяемого диапазона Rng снять защиту с ячеек (первая ячейка ссылается на диапазон)
                a.EntireColumn.Hidden = False 'открываем дни: тек день, -1 день, +1день
            Else
                a.EntireColumn.Hidden = True
            End If
            Next a
    End If
Next sh

If UCase(Environ("USERNAME")) = UCase("Name.Surname") Or _
UCase(Environ("USERNAME")) = UCase("Name.Surname") Then
Else
        For Each sh In ActiveWorkbook.Worksheets
            sh.Protect Password:="password"
            If Worksheets("Parameters").Range("B3") = sh.Name Or Worksheets("Parameters").Range("B4") = sh.Name Then
            Else
            sh.Visible = xlSheetVeryHidden
            End If
        Next sh
    'скрываем листы ПРЕДУПРЕЖДЕНИЕ и ЛОГ
   'Worksheets("Предупреждение").Visible = xlSheetVeryHidden
   'Worksheets("Лог").Visible = xlSheetVeryHidden
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'ищем последнюю занятую строчку в логах
    Worksheets("Лог").Unprotect "password"
    lastrow = Worksheets("Лог").Range("A60000").End(xlUp).Row
    'заносим дату-время выхода из файла
    If lastrow > 1 Then Worksheets("Лог").Cells(lastrow, 3) = Now
    
    'скрываем все листы, кроме листа ПРЕДУПРЕЖДЕНИЕ
    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

If UCase(Environ("USERNAME")) = UCase("Name.Surname") Or _UCase(Environ("USERNAME")) = UCase("Name.Surname") Then
Else
        For Each sh In ActiveWorkbook.Worksheets
            sh.Protect Password:="password"
            If Worksheets("Parameters").Range("B3") = sh.Name Or Worksheets("Parameters").Range("B4") = sh.Name Then
            Else
            sh.Visible = xlSheetVeryHidden
            End If
        Next sh
    'скрываем листы ПРЕДУПРЕЖДЕНИЕ и ЛОГ
   'Worksheets("Предупреждение").Visible = xlSheetVeryHidden
   'Worksheets("Лог").Visible = xlSheetVeryHidden
End If

dim lsh_cnt as long
Worksheets("main").Visible = xlSheetVisible
If UCase(Environ("USERNAME")) = UCase("Name.Surname") Or _UCase(Environ("USERNAME")) = UCase("Name.Surname") Then
Else
        For Each sh In ActiveWorkbook.Worksheets
            if sh.name <> "main" then 'лист main не проверяем - он должен оставаться видимым
            sh.Protect Password:="password"
            If Worksheets("Parameters").Range("B3") = sh.Name Or Worksheets("Parameters").Range("B4") = sh.Name Then
            Else
            sh.Visible = xlSheetVeryHidden
            lsh_cnt=lsh_cnt+1
            End If
          end if
        Next sh
if lsh_cnt < ActiveWorkbook.Worksheets.count-1 then
Worksheets("main").Visible = xlSheetVeryHidden
end if
    'скрываем листы ПРЕДУПРЕЖДЕНИЕ и ЛОГ
   'Worksheets("Предупреждение").Visible = xlSheetVeryHidden
   'Worksheets("Лог").Visible = xlSheetVeryHidden
End If

If sh.Visible = xlSheetVisible Then
    sh.Visible = xlSheetVeryHidden
End If