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