求一段宏: 禁用宏则关闭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
之前