?"M:\Production\Masters\2017\Normalization\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("folder_name").Value & "\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("Книга") & ".xlsm"

Sub Main()
    Const strRootFolder As String = "M:\Production\Masters\2017\Normalization"
    Dim strFolder As String
    
    strFolder = "M:\Production\Masters\2017\Normalization\" & Range("folder_name").Value
    
    If Dir(strFolder, vbDirectory) = "" Then
        MkDir strFolder
    End If
    
    Dim strFileName As String
   Dim strFileTitle As String
 
 
   strFileTitle = "M:\Production\Masters\2017\Normalization\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("folder_name").Value & "\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("Книга") & ".xlsm"
 
   strFileName = "M:\Production\Masters\2017\Normalization\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("folder_name").Value & "\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("Книга") & ".xlsm"
 
   If Dir(strFileName) <> "" Then
      MsgBox "OK"
    Else
   Dim New_Wb As Workbook
    Set New_Wb = Workbooks.Add
    New_Wb.Activate
    New_Wb.SaveAs "M:\Production\Masters\2017\Normalization\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("folder_name").Value & "\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("Книга") & ".xlsm", 52
    
    End If
   
   Windows("Расчет.xlsm").Activate 
   Dim sh As Worksheet: Set sh = ActiveSheet    
  Call Sheet_Name
    Application.ScreenUpdating = False  

    With Workbooks.Open("M:\Production\Masters\2017\Normalization\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("folder_name").Value & "\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("Книга") & ".xlsm")   
        sh.Copy , .Worksheets(.Worksheets.Count) 
        .Close True   
    End With
   
   Windows("Расчет.xlsm").Activate
End Sub

With Workbooks.Open("M:\Production\Masters\2017\Normalization\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("folder_name").Value & "\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("Книга") & ".xlsm")

Sub Main()
     
    Const strRootFolder As String = "M:\Production\Masters\2017\Normalization
    
    Dim strFolder As String
    
    strFolder = "M:\Production\Masters\2017\Normalization\" & Range("folder_name").Value
    
    If Dir(strFolder, vbDirectory) = "" Then
        MkDir strFolder
    End If
    
     Dim strFileName As String

   Dim strFileTitle As String


   strFileTitle = "M:\Production\Masters\2017\Normalization\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("folder_name").Value & "\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("Книга") & ".xlsm"

   strFileName = "M:\Production\Masters\2017\Normalization\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("folder_name").Value & "\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("Книга") & ".xlsm"

   If Dir(strFileName) <> "" Then

      MsgBox "OK"

   Else

 Dim New_Wb As Workbook
    Set New_Wb = Workbooks.Add
    New_Wb.Activate
    New_Wb.SaveAs "M:\Production\Masters\2017\Normalization\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("folder_name").Value & "\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("Книга") & ".xlsm", 52
    End If
   
   Windows("Расчет.xlsm").Activate
    
End Sub

Sub Main()
     
    Const strRootFolder As String = "M:\Production\Мастера\2017\Нормализация"
    
    Dim strFolder As String
    
    strFolder = "M:\Production\Мастера\2017\Нормализация\" & Range("имя_папки").Value
    
    If Dir(strFolder, vbDirectory) = "" Then
        MkDir strFolder
    End If
    
 Dim New_Wb As Workbook
    Set New_Wb = Workbooks.Add
    New_Wb.Activate
    New_Wb.SaveAs "M:\Production\Мастера\2017\Нормализация\" & Workbooks("Расчет.xlsm").Worksheets("1 норм").Range("имя_папки").Value & "\" & Workbooks("Расчет.xlsm").Worksheets("1 норм").Range("Книга") & ".xlsm", 52
    
    Папка = "M:\Production\Мастера\2017\Нормализация\" & Workbooks("Расчет.xlsm").Worksheets("1 норм").Range("имя_папки").Value & "\"
Имя = Dir(Папка & "*.xls*")
Do While Имя <> ""
If Имя <> "M:\Production\Мастера\2017\Нормализация\" & Workbooks("Расчет.xlsm").Worksheets("1 норм").Range("имя_папки").Value & "\" & Workbooks("Расчет.xlsm").Worksheets("1 норм").Range("Книга") & ".xlsm" Then MkDir New_Wb Else Workbooks.Open Filename:="M:\Production\Мастера\2017\Нормализация\" & Workbooks("Расчет.xlsm").Worksheets("1 норм").Range("имя_папки").Value & "\" & Workbooks("Расчет.xlsm").Worksheets("1 норм").Range("Книга") & ".xlsm"
Имя = Dir
Loop
   
   Windows("Расчет.xlsm").Activate
    
End Sub

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

Sub Main()
     
    Const strRootFolder As String = "M:\Production\Мастера\2017\Нормализация"
    
    Dim strFolder As String
    
    strFolder = "M:\Production\Мастера\2017\Нормализация\" & Range("имя_папки").Value
    
    If Dir(strFolder, vbDirectory) = "" Then
        MkDir strFolder
    End If
    
    Dim New_Wb As Workbook
    Set New_Wb = Workbooks.Add
    New_Wb.Activate
    New_Wb.SaveAs "M:\Production\Мастера\2017\Нормализация\" & Workbooks("Расчет.xlsm").Worksheets("1 норм").Range("имя_папки").Value & "\" & Workbooks("Расчет.xlsm").Worksheets("1 норм").Range("Книга") & ".xlsm", 52
   
   
   Windows("Расчет.xlsm").Activate
    
End Sub