Excel VBA求助：单元格输入值时自动隐藏形状失效问题

一、代码无法自动触发的原因及修正 #

你写的HideShape是自定义过程，不会在单元格输入时自动运行。必须使用工作表内置的Worksheet_Change事件，这个事件会在单元格内容改变时自动触发。

把工作表对象里的代码替换成以下内容：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅监听B9单元格的变化，避免无关操作触发代码
    If Not Intersect(Target, Me.Range("B9")) Is Nothing Then
        ' 简化逻辑：B9为空时显示形状，否则隐藏
        Me.Shapes("Shape1").Visible = (Me.Range("B9").Value = "")
    End If
End Sub

代码说明： #

• Intersect(Target, Me.Range("B9"))用于判断用户修改的是否是B9单元格，避免其他单元格输入也触发代码；
• 用Me.Shapes("Shape1").Visible = (Me.Range("B9").Value = "")替代嵌套的If判断，逻辑更简洁直接。

二、VBA保护与形状锁定的影响 #

• VBA代码密码保护：只要代码是在设置保护前写入工作表对象的，运行时不受影响——代码保护仅限制查看和编辑，不影响执行。
• 形状锁定+工作表保护：如果Shape1被锁定且工作表处于保护状态，直接修改形状可见性会报错，有两种解决方式：
  1. 手动解锁Shape1：右键Shape1→「设置形状格式」→「保护」，取消勾选「锁定」选项；
  2. 代码中临时解除保护（推荐）：

     Private Sub Worksheet_Change(ByVal Target As Range)
         If Not Intersect(Target, Me.Range("B9")) Is Nothing Then
             ' 临时解除工作表保护（替换成你的保护密码）
             Me.Unprotect Password:="你的密码"
             Me.Shapes("Shape1").Visible = (Me.Range("B9").Value = "")
             ' 恢复保护，UserInterfaceOnly:=True确保代码仍能操作对象
             Me.Protect Password:="你的密码", UserInterfaceOnly:=True
         End If
     End Sub
     

     其中UserInterfaceOnly:=True是关键，设置后工作表仅对用户界面锁定，代码仍可正常修改形状等对象。

内容的提问来源于stack exchange，提问作者DocBrown