VBA Некоторые функции больше не работают

Question

Я писал свой код, когда просто некоторые функции больше не работают должным образом. У меня есть проект, и у него есть функция, чтобы скопировать архив из папки в другую папку, 3 часа go он работал правильно, теперь каждый архив, который я копирую, поврежден. То же самое произошло с другим макросом, который я сделал, чтобы завершить отчет с некоторой информацией, когда я выполняю просто поврежденный файл. Я в отчаянии и не знаю, что делать. Я уже переустановил Excel, я уже пытался запустить старый код, который я сохранил для безопасности, та же ошибка.

Коды:

Private Sub arquivo_reports(line_b, new_add, old_add, opcao)

Dim sheet_ As Workbook
Dim report As Worksheet, informations As Worksheet

If (opcao = 1) Then
    FileCopy old_add, new_add
End If

Set sheet_ = Workbooks.Open(new_add, False, False)
ActiveWindow.Visible = False
ThisWorkbook.Activate
Application.ScreenUpdating = True

Set report = sheet_.Worksheets("reports")


 sheet_.Close SaveChanges:=True
 End Sub



Public Sub fill_creport()

Dim line_complain As Integer
Dim path As String
Dim sheet_report As Workbook
Dim report As Worksheet

path = FileOpenDialogBox()

Set sheet_report = Workbooks.Open(path, False, False)
ActiveWindow.Visible = False
ThisWorkbook.Activate
Application.ScreenUpdating = False

  Set report = sheet_report.Worksheets("report")

line_complain = 4 + Application.Match(report.Cells(1, 21).Value, Range("A5:A600"), 0)


End Sub