Question

求一段宏： 禁用宏则关闭excel

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

Answer 1

用宏4可以，但是会出现一个提示。

可以这样，找一个没用的表，如“欢迎使用”之类的。

其它表用VBA深度隐藏。只有运行宏，用宏显示其它的表。这样运行宏，不知道宏密码的人就看不到其它的表，只能看到一张表。就达到你的目的了！

Answer 2

'第一次保存的时候需要宏运行允许
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

Answer 3

还是美猴王说的对，您难道怕别人破解密码阿