Sub createFiles()
    Application.ScreenUpdating = False
    Dim folderName$, myPath$
    myPath = ThisWorkbook.Path
    Set sh = ThisWorkbook.Sheets(1)
    Set template = Workbooks.Open(myPath & "\шаблон.xlsx")
    
    template.Sheets(1).Protect "1", UserInterfaceOnly:=True
    With sh
        For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
            folderPath = myPath & "\" & .Cells(i, 1)
            If Dir(folderPath, vbDirectory) = "" Then MkDir (folderPath)
            With template.Sheets(1)
                .[b2] = sh.Cells(i, 2): .[d2] = sh.Cells(i, 3): .[f2] = sh.Cells(i, 4)
                template.SaveCopyAs folderPath & "\табельный номер " & sh.Cells(i, 2) & ".xlsx"
            End With
        Next i
    End With
    template.Close False
    Application.ScreenUpdating = True
End Sub

template.SaveCopyAs folderPath & "\" & sh.Cells(i, 3) & " " & sh.Cells(i, 2) & ".xlsx"