如何实现禁用宏时仅显示指定BLANK工作表，启用宏后正常访问其他Excel工作表

嘿，我来给你捋几个针对共享工作表场景的实用方案，完美解决你的需求：

方案一：默认隐藏非BLANK表，宏启用自动恢复（带结构防篡改） #

共享表的麻烦就是不能随便改基线状态，但我们可以利用保存事件固化默认状态，再用打开事件触发正常显示：

1. 基础设置步骤：

   • 保留BLANK表可见，右键其他所有业务工作表标签选择「隐藏」。
   • 保护工作簿结构：右键工作表标签→「保护工作簿」，勾选「结构」，可设置密码（防止无宏用户手动取消隐藏）。

2. 添加VBA代码：
   按下Alt+F11打开VBA编辑器，找到ThisWorkbook模块，粘贴以下代码：

   Private Sub Workbook_Open()
       ' 取消工作簿结构保护（没设密码就删掉Password参数）
       ThisWorkbook.Unprotect Password:="your_secret_password"
       
       ' 显示所有非BLANK工作表
       Dim ws As Worksheet
       For Each ws In ThisWorkbook.Worksheets
           If ws.Name <> "BLANK" Then
               ws.Visible = xlSheetVisible
           End If
       Next ws
       
       ' 激活常用业务工作表（替换成你的表名）
       ThisWorkbook.Worksheets("业务数据").Activate
       
       ' 重新保护结构，防止用户乱改工作表状态
       ThisWorkbook.Protect Password:="your_secret_password", Structure:=True
   End Sub
   
   Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
       ' 保存前先取消保护
       ThisWorkbook.Unprotect Password:="your_secret_password"
       
       ' 隐藏所有非BLANK工作表，固化默认状态
       Dim ws As Worksheet
       For Each ws In ThisWorkbook.Worksheets
           If ws.Name <> "BLANK" Then
               ws.Visible = xlSheetHidden
           End If
       Next ws
       
       ' 切换到BLANK表再保存，确保下次打开默认显示它
       ThisWorkbook.Worksheets("BLANK").Activate
       
       ' 重新保护工作簿结构
       ThisWorkbook.Protect Password:="your_secret_password", Structure:=True
   End Sub
   

   逻辑很清晰：每次保存后，业务表都会被隐藏且工作簿结构锁死；宏禁用时用户只能看到BLANK表，还没法手动解锁；宏启用时，打开事件会自动解锁结构、显示所有业务表，用完保存又回到默认隐藏状态。

方案二：彻底限制无宏用户（完全阻止使用） #

如果想让无宏用户连BLANK表都没法编辑，只能看提示，可以再加一步：

• 给BLANK表设置保护：右键BLANK表→「保护工作表」，勾选「选定锁定单元格」和「选定未锁定单元格」，设置密码后，把提示文字（比如「请启用宏以使用此共享工作表」）放在未锁定区域。
• 宏启用时，在Workbook_Open里取消BLANK表的保护，或者直接切换到业务表，用户根本看不到提示内容。

小提醒 #

• 先测试共享环境的宏兼容性：有些企业版共享设置会限制宏运行，提前确认一下。
• 密码不用太复杂，但也别用123这种弱密码，防止轻易破解。
• 如果不需要防篡改结构，直接删掉代码里的Unprotect和Protect部分即可，适合仅引导用户启用宏的场景。

备注：内容来源于stack exchange，提问作者Thomas Wohllaib