Рабочая книга Excel 2010 с поддержкой VBA не закрывается при открытии любой другой книги

Question

Недавно я закончил книгу Excel, в которой используется большое количество VBA. Электронная таблица всегда может выполнять все намеченные функции, и нет проблем, когда она является единственной книгой, открытой в Excel. Однако, когда какая-либо другая рабочая книга открыта (несвязанные файлы включены), рабочая книга не будет закрыта. Нажатие на красный «x» в верхнем правом углу просто ничего не делает, и никаких сообщений об ошибках не отображается. Чтобы закрыть его, все другие окна Excel должны быть закрыты заранее.

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

Итак, есть ли у кого-нибудь идеи относительно того, что вызывает это? У меня есть код для события Workbook_Close(), но он обозначается как закрытый и находится только в части ThisWorkbook этой таблицы. Я смущен, почему другой лист без участия VBA не позволяет этому закрыться. Пожалуйста, дайте мне знать, если есть что-нибудь, что я могу прояснить, спасибо.

EDIT - Вот код для события Workbook_BeforeClose():

Private Sub Workbook_BeforeClose(Cancel As Boolean) 

If Me.Saved = False Then Me.Save 
Call PrepareWorkbook 

End Sub 

Sub PrepareWorkbook() 

Application.ScreenUpdating = False 
Call UnprotectWorkbook 

Dim masterSheet As Worksheet 
Set masterSheet = ActiveWorkbook.Worksheets("PLANNING") 

For Each sheet In ActiveWorkbook.Worksheets 
    If Not (sheet.Name = "README" Or sheet.Name = "PLANNING" Or sheet.Name = "PREV") Then 
     sheet.Visible = xlSheetVeryHidden 
    End If 
    If (sheet.Name = "README" Or sheet.Name = "PLANNING" Or sheet.Name = "PREV" Or sheet.Name = "ADMIN") Then 
     Call ProtectSheet(ActiveWorkbook.Worksheets(sheet.Name)) 
    Else 
     Call ProtectPlannerSheet(ActiveWorkbook.Worksheets(sheet.Name)) 
    End If 
Next 

If ActiveWorkbook.ActiveSheet.Name <> "PLANNING" Then 
    masterSheet.Select 
End If 

Call ProtectWorkbook 

Application.ScreenUpdating = True 

End Sub 

Я хотел бы отметить, что закомментировать вызов PrepareWorkbook() в случае Workbook_BeforeClose() не решить эту проблему.

Answer 1

Я нашел источник своей проблемы, которая заключается в том, как я защищаю книгу. В моем коде VBA я установил свойство «Windows» для функции Workbook.Protect равным True; Я не уверен, что это предназначенные для Excel функции или нет, но независимо от того, что это сделало так, что текущая рабочая книга не может быть закрыта, если какая-либо другая книга также была открыта. Изменение этого свойства на False устранило проблему, и я могу закрыть книгу, как обычно ожидалось.

Итак, я предлагаю избегать когда-либо устанавливать свойство «Windows» на «Истина», если это абсолютно необходимо, и вы полностью понимаете его фактическую функцию.

Answer 2

Похоже, что вы что-то делаете с этой книгой, например, «редактируете ячейку», которая препятствует ее закрытию (другие вещи, такие как вскрытие всплывающих окон, также будут делать это).

Пытается выбрать книгу, нажав ESC, а затем вручную закрыв ее. Если это работает, найдите место в вашем коде, где вы «редактируете ячейку» или что-то подобное.