求一段宏: 禁用宏則關閉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
求一段宏: 禁用宏則關閉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