强制用户启用宏

新建一个excel表

更改表名为强制用户启用宏

alt+F11键打开VBA编辑器

复制以下代码粘贴，保存退出VBA编辑器

将文件另存为xlsm模式即可

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("空白").Visible = -1 '空白表取消隐藏
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
    If sh.Name <> "空白" Then
        sh.Visible = 2 '其他表深度隐藏
    End If
Next
    Sheets("空白").Select
    ActiveWorkbook.Save '保存更改
End Sub

Private Sub Workbook_Open()
    Application.Visible = True '显示工作薄
    For Each sh In ThisWorkbook.Sheets
    If sh.Name <> "空白" Then
    sh.Visible = -xlSheetVisible '除"空白"表以外所有工作表取消隐藏
    End If
    Next
    Sheets("空白").Visible = 2 '空白表隐藏
End Sub

强制用户启用宏

效果：

当打开这个xlsm文件时，只会显示“空白”这张表，另外的sheet1和sheet2都被隐藏了，只有开启宏才能看到

强制用户启用宏

点击后：

强制用户启用宏

坏笑.jpg