Я не уверен, какова цель и как вы собираетесь использовать, но свойство Application.Visible может быть полезным.В качестве альтернативы вы можете добавить предупреждающее сообщение о событии Workbook_BeforeClose
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not MsgBox("Do you want to really close this workbook?", vbOKCancel) Then
Workbook_BeforeClose = False
End If
End Sub
Надеюсь, это поможет ... Если вы могли бы быть более сложным, то, вероятно, у вас будет точное решение.