Application.AskToUpdateLinks = False
    Application.DisplayAlerts = False
         Workbooks.Open Path & Report, False, , , "1234", , , , , , , , , , 2
 

Application.AskToUpdateLinks = False
    Application.DisplayAlerts = False
 

For i = 3 To LastRow_Pivot - 1
        K = PVT.Cells(i, 1)        
            With Report
                .Unprotect "1234" 
                .Range("$A$16:$O$" & LastRow_Total_Report).AutoFilter Field:=2, Criteria1:=K 
                .Protect "1234" 
            End With              
          
            Path = "C:\Users\egoryuno\Documents\test\"                          
              
             With ActiveWorkbook
                .Password = "1234"
                FName = K & "_Отчет" & ".xls"
                .SaveCopyAs Filename:=Path & FName
                .Unprotect "1234"
                .Password = ""
            End With
    Next i

 For i = 3 To LastRow_Pivot - 1
        K = PVT.Cells(i, 1)
        
            With Report
                .Unprotect "1234" 
                .Range("$A$16:$O$" & LastRow_Total_Report).AutoFilter Field:=2, Criteria1:=K 
                .Protect "1234" 
            End With
              
            
       Path = "C:\Users\egoryuno\Documents\test\"
                                                
        ActiveWorkbook.Protect Structure:=True, Windows:=False
               
             With ActiveWorkbook
                .Password = "1234"
                FName = K & "_Отчет" & ".xls"
                .SaveCopyAs Filename:=Path & FName
                .Password = ""
            End With 
        ActiveWorkbook.Protect Structure:=False, Windows:=False
    Next i
       
Report.Unprotect "1234"
 

Workbooks.Open Path & Report, , , , "1234"
 

Workbooks.Open Path & Report, , , , "1234", "1234", True, , , True
 

With ActiveWorkbook
        .Password = "1234"
        FName = K & "_Отчет" & ".xls"
        .SaveCopyAs Filename:=Path & FName
        .Password = ""
        End With
 

            With ActiveWorkbook
                .WritePassword = "1234"
                FName = K & "Отчет" & ".xls"
                .SaveCopyAs Filename:=Path & FName
                .WritePassword = ""
            End With
 

'отправка писем
For i = 14 To LastRow_Param
    j = 2
        Do
            If Param.Cells(i, 1) = Email.Cells(j, 1) Then Exit Do
        j = j + 1
        Loop Until (j > LastRow_Email)
    
    Adress = Email.Cells(j, 5) 'адрес, на который отправляем отчет

Set OutlookApp = CreateObject("Outlook.Application")
Set OutMail = OutlookApp.CreateItem(0)

With OutMail
    .To = Adress
    .Subject = Param.Range("B1") & "_" & Param.Range("A" & i)
    .HTMLBody = Message & "<br>" & "<br>" & Signature
    .Attachments.Add "C:\Users\egoryuno\Documents\test\Отчет.xls"
    .Send
    
End With

Set OutMail = Nothing
Set OutlookApp = Nothing

Next i
 

Application.AskToUpdateLinks = False
Application.DisplayAlerts = False

Sub Test_2()
    Sheets("Sheet1").Select
    Range("A1").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Sheet1!R24C1:R34C15" _
        , Version:=xlPivotTableVersion14). _
        CreatePivotTable TableDestination:="For_pivot!R1C1", TableName:="PivotTable1" _
        , DefaultVersion:=xlPivotTableVersion14
    Sheets("For_pivot").Select
    Cells(1, 1).Select
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Code")
        .Orientation = xlRowField
        .Position = 1
    End With
End Sub