Ошибка выполнения VBA «1004»: сбой метода «Макроопции» объекта «Приложение» - PullRequest
Новая
       12

Ошибка выполнения VBA «1004»: сбой метода «Макроопции» объекта «Приложение»

0 голосов
/ 04 июня 2018

Эта ошибка появляется сразу после открытия книги Excel с макросами (Microsoft Office 365).В окне ошибок есть четыре кнопки: Продолжить (выделено серым), Конец , Отладка (выделено серым) и Справка .Рабочая книга содержит один модуль с тремя простыми подпрограммами, ни одна из которых не использует Application.MacroOptions.Ниже приведен код в модуле: 

Sub CopyCMCTab()

On Error GoTo ErrExit
Call SpeedOn

Dim Wb As Workbook
Dim rng As Range
Dim c As Range
Dim facility As String
Dim template As String

Set Wb = Application.ThisWorkbook
Set rng = Wb.Sheets("Ref").Range("FACILITIES[facility]")
template = "CMC"

For Each c In rng 'Loop through all facilities

    If c.Value <> "CMC" Then

        facility = c.Value

        If facility = "CMMC" Then

            If Evaluate("ISREF('" & facility & "'!A1)") Then
                Wb.Sheets(facility).Delete
            End If

            Wb.Sheets(template).Copy after:=Wb.Sheets(Wb.Sheets.Count)
            ActiveSheet.Name = facility

        End If

    End If

Next c

Call SpeedOff
Exit Sub
ErrExit:
MsgBox Err.Description
Call SpeedOff

End Sub

Sub SpeedOn()
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Application.DisplayAlerts = False
End Sub

Sub SpeedOff()
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub

Я НЕ получаю эту ошибку при выполнении приведенного выше кода, только ПРЯМО ПОСЛЕ открытия книги.Я искал другие сообщения и форумы, но ни одно из предложений не помогло решить проблему.

ОБНОВЛЕНИЕ: хотя я не определил причину этой ошибки, после перезагрузки она не появилась при первом открытии книги.,Однако после закрытия и повторного открытия книги ошибка появляется снова.Эта ошибка иногда появлялась в предыдущие несколько недель в разных книгах.

...