如何不启用宏就不能使用EXCEL-excel强制启用宏,excel打开文件自动启用宏vba

Dim sh As Worksheet
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheet1.Visible = True
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "空白" Then
sh.Visible = xlSheetVeryHidden
End If
Next
ActiveWorkbook.Save
End Sub
Private Sub Workbook_Open()
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "空白" Then
sh.Visible = xlSheetVisible
End If
Next
Sheet1.Visible = xlSheetVeryHidden
End Sub
代码解析：
第2行到第10行代码是工作簿的BeforeClose事件过程，在工作簿关闭前隐藏除“空白”表以外的所有的工作表e799bee5baa6e58685e5aeb9335。
第3行代码将“空白”表的Visible属性设置为True，使其可见。
应用于Charts和Worksheets对象的Visible属性决定对象是否可见，语法如下：
expression.Visible
参数expression是必需的，该表达式返回上面的对象之一。
Visible属性可以设置为表格 28 1所示的XlSheetVisibility常量之一。
常量 值 描述
xlSheetHidden 0 隐藏对象，可以通过“格式”→“工作表”→“取消隐藏”菜单使对象重新可见，等同于设置为False。
xlSheetVisible -1 使对象重新可见，等同于设置为True。
xlSheetVeryHidden 2 隐藏对象，使该对象重新可见的唯一方法是将此属性设置为True或xlSheetVisible。
表格 28 1 XlSheetVisibility常量
第4行到第8行代码使用For Each...Next语句遍历工作簿中所有的工作表，将除“空白”表以外的所有工作表的Visible属性设置为xlSheetVeryHidden，使之隐藏。
Visible属性设置为xlSheetVeryHidden后工作表不能通过“格式”→“工作表”→“取消隐藏”菜单来显示隐藏的工作表。
第9行代码使用Save方法保存代码所在工作簿的更改，在关闭工作簿时不显示消息框。

第10行到第18行代码是工作簿的Open事件过程，在打开工作簿时将除“空白”表以外的所有工作表的Visible属性设置为xlSheetVisible，取消隐藏。如果打开工作簿时禁用宏，则工作簿中除了“空白”表以外，其他的工作表还处于深度隐藏的状态，如图 28 2所示，这样就达到强制用户启用宏的效果，当然这还需要VBA工程保护的配合。

方法一：就是： Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheet1.Visible = xlSheetHidden End Sub Private Sub Workbook_Open() Sheet1.Visible = xlSheetVisible End Sub
意思就是sheet1表默认是隐抄藏的，只要启用宏，那么sheet1表才会自动取袭消隐藏。
复杂一点的办法就是用老的宏表函数，也可以达到禁用宏就退百出.

方法二就是干脆在工作表设置一个按钮，只有启用宏按度钮才有效果，点击按钮，需要的表格才能出来。
Sheet1.Columns("A:A").Delete Shift:=xlToLeft
也就是说要指定具体的zdsheet 指定后不管你当前在那个sheet里面他都只去删你指专定的那列属
上面那句 就是删除sheet1里面的A列

文件关闭时自动隐藏除sheet1以外的sheet，打开时自动显示后面的表。不启用宏就只能看到前面的。
记得工作表和工作簿都加保护。
几年前用Excel开发项目时做过。