Excel падает при открытии модуля в vba

Question

Я довольно новичок в макросах, но я попытался построить один, довольно сложный на самом деле! После последней части проверки, которую я включил в свой код, excel падает каждый раз, когда я пытаюсь открыть модуль, где я закодировал большую часть моего макроса. Это происходит даже тогда, когда я пытаюсь сохранить книгу, содержащую этот макрос. Я могу открыть другие модули в этой книге и в любой другой рабочей книге excel. Проблема, похоже, сохраняется только с одним конкретным модулем после того, как я добавил условие if в начале подпрограммы. В основном, ниже того, что я пытался, что я считаю, делает первенствуешь врезаться каждый раз, когда я пытаюсь сделать что-нибудь с этим макросом:

Sub Process() 
Application.ScreenUpdating = False 
Application.DisplayAlerts = False 
If ThisWorkbook.Sheets("Main").Range("XFD2").Value <> 2 Then 
    MsgBox "Create reports first!" 
    Else 
    'Lot of other stuff 
End If 
End Sub 

Каждый раз, когда я пытаюсь открыть этот модуль, окно говорит Microsoft Excel перестал работать, а затем я получить еще один поп, который оставляет меня без другого выбора, кроме как закрыть программу. Я приложил к нему снимок экрана.

Я искал в Интернете и должен знать такие проблемы возникают при установке программы, которая будет врезаться с программой Microsoft, но я не устанавливал ничего нового, а также проверил надстроек, чтобы преуспеть в безопасном режиме , Я не вижу дополнительных надстроек.

Я бы удалил это последнее условие, но excel не позволяет мне открыть подпрограмму. Я потратил много времени на создание этого макроса, любая помощь была бы высоко оценена!

Answer 1

Ваш Macro не должен вызывать повреждение Excel, либо способ, которым вы сохраняете файл, вызывает ошибку, либо у вас возникли проблемы с его установкой.

И убедитесь, что вы установили те сбросить ScreenUpdating и DisplayAlerts истина,

Sub Process() 
Application.ScreenUpdating = False 
Application.DisplayAlerts = False 
If ThisWorkbook.Sheets("Main").Range("XFD2").Value <> 2 Then 
    MsgBox "Create reports first!" 
    Else 
    'Lot of other stuff 
End If 
Application.ScreenUpdating = True 
Application.DisplayAlerts = True 
End Sub