Dim sh As Excel.Worksheet
    Set sh = objBook.Sheets("Форма 3")
    With sh
        .Unprotect ("123")
        .Range("T15:T58").FormulaR1C1 = 
"=IF(AND(OR(RC3<>"""",RC4<>""""),RC1=1,R8C10=""ДА""),IF(RC5=1,RC[17]/15,IF(RC5=2,RC[17]/16)),"""")"

        .Range("Y15:Y58").FormulaR1C1 = "=IF(AND(RC5=2,RC[-16]=4),1,0)"

        .Range("Z15:Z58").FormulaR1C1 = 
"=IF(AND(RC5=1,RC[-16]=3),1,IF(AND(RC5=2,RC[-16]=1),1,0))"
        .Protect ("123")
    End With

Private Sub cmdTxtPath_Click()
    'Dim objExcel, objBook As Object
    Dim objExcel As Excel.Application
    Dim objBook As Excel.Workbook
    Dim sh As Excel.Worksheet
    Dim F As Long
    Dim G As Long
    Dim MyFile1 As String
    Dim MyFile As String
    Dim a As Integer
    Dim dtStart As Date
    dtStart = Now()
    F =  0 
    G =  0 
    MyFile1 = Dir(Dir1 & "\\*.xls")

    Do While MyFile1 <> ""
        G = G +  1 
        MyFile1 = Dir
    Loop

    If G <>  0  Then
        Set objExcel = CreateObject("Excel.Application")
        With objExcel
            .Visible = False
            .DisplayAlerts = False
            .ScreenUpdating = False
        End With
       ' objExcel.WindowState = xlMinimized
        If Dir(Dir1 & "\ReMake\", vbDirectory) = "" Then
            MkDir Dir1 & "\ReMake\"
        End If
    End If
    Label3.Visible = True
    Label4.Visible = True
    Label5.Visible = True
    Label6.Visible = True
    Label3.Caption = CStr(F)
    Label6.Caption = CStr(G)

    MyFile = Dir(Dir1 & "\\*.xls")
Do While MyFile <> ""
    F = F +  1 
    Set objBook = objExcel.Workbooks.Open(Dir1 & "\\" & MyFile, , False)

    '-------------------Форма3------------------------
    'objBook.Sheets("Форма 3").EnableCalculation = False
    Set sh = objBook.Sheets("Форма 3")
    With sh
        .Unprotect ("123")
        .Range("T15:T58").FormulaR1C1 = 
"=IF(AND(OR(RC3<>"""",RC4<>""""),RC1=1,R8C10=""ДА""),IF(RC5=1,RC[17]/15,IF(RC5=2,RC[17]/16)),"""")"

        .Range("Y15:Y58").FormulaR1C1 = "=IF(AND(RC5=2,RC[-16]=4),1,0)"

        .Range("Z15:Z58").FormulaR1C1 = "=IF(AND(RC5=1,RC[-16]=3),1,IF(AND(RC5=2,RC[-16]=1),1,0))"
        .Protect ("123")
    End With

    '-------------------Форма2------------------------
    'objBook.Sheets("Форма 2").EnableCalculation = False
    Set sh = objBook.Sheets("Форма 2")
    With sh
        .Unprotect ("123")
        .Range("BH14").AutoFill Destination:=.Range("BH14:BH57"), Type:=xlFillDefault
        .Protect ("123")
    End With

    Set sh = Nothing
    objBook.SaveAs FileName:=Dir1 & "\ReMake\" & MyFile, FileFormat:=xlExcel9795
    objBook.Close
    Set objBook = Nothing

    Label3.Caption = CStr(F)
    MyFile = Dir
Loop
If G <>  0  Then
    Set sh = Nothing
    Set objBook = Nothing
    objExcel.Application.Quit
    Set objExcel = Nothing
End If
MsgBox CStr(CDate(Now() - dtStart))
If F <>  0  Then
    MsgBox "Формы удачно исправлены в кол-ве: " & F & " шт.", , "Инфо"
Else
    MsgBox "Ни одной формы не найдено", , "Инфо"
End If

End Sub