操作方法
新建一个启用宏的工作薄
工作表启用宏
新建5个工作表,并制作一个欢迎界面,这个界面就是不开启宏显示的界面,,我们用sheet2演示
按alt+F11键,进入VBA编辑界面
将代码复制到工作薄内
代码:强制加载宏 Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets(2).Visible = -1 Sheets(2).Activate Sheets(4).Visible = 2 Sheets(3).Visible = 2 Sheets(1).Visible = 2 Sheets(5).Visible = 2 ThisWorkbook.Save End Sub Private Sub Workbook_Open() MsgBox "欢迎使用" Sheets(3).Visible = -1 Sheets(4).Visible = -1 Sheets(1).Visible = -1 Sheets(5).Visible = -1 Sheets(2).Activate Sheets(2).Visible = 2 End Sub
预览效果,演示为没有开启宏的状态,只有一个欢迎界面