EXCEL强制开启宏否则看不到全部工作表启用宏

 时间:2024-10-11 18:49:06

1、新建一个启用宏的工作薄

EXCEL强制开启宏否则看不到全部工作表启用宏

2、工作表启用宏

EXCEL强制开启宏否则看不到全部工作表启用宏
EXCEL强制开启宏否则看不到全部工作表启用宏
EXCEL强制开启宏否则看不到全部工作表启用宏
EXCEL强制开启宏否则看不到全部工作表启用宏

3、新建5个工作表,并制作一个欢迎界面,这个界面就是不开启宏显示的界面,,我们用sheet2演示

EXCEL强制开启宏否则看不到全部工作表启用宏

4、按alt+F11键,进入VBA编辑界面

EXCEL强制开启宏否则看不到全部工作表启用宏

5、将代码复制到工作薄内

EXCEL强制开启宏否则看不到全部工作表启用宏

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、预览效果,演示为没有开启宏的状态,只有一个欢迎界面

EXCEL强制开启宏否则看不到全部工作表启用宏
  • VBA中的Columns方法的使用
  • 如何使用VBA删除多列完全相同的行
  • Excel表中VBA的Mid函数如何使用
  • VBA中LIKE语句之应用
  • ExcelVBA如何选中某列所有内容、有内容的单元格
  • 热门搜索
    关于劳动节手抄报 英语春节手抄报 防溺水手抄报简单好画图片 关于马的手抄报 小学三年级手抄报 传统文化手抄报图片 谷雨手抄报 教师节手抄报图片大全 新学期新气象手抄报图片 田园风光手抄报