启用宏才能看到工作表，禁用宏则关闭excel(如何关闭启用宏的提示)

求一段宏： 禁用宏则关闭excel 打开excel工作簿时，如果选择禁用宏，则关闭该工作簿。

'第一次保存的时候需要宏运行允许
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Windows(Windows.Count).Visible = False
End Sub
Private Sub Workbook_Open()
Windows(Windows.Count).Visible = True
End Sub