如何在Excel启用宏时触发工作表宏或调用工作表自定义方法

方案一：直接在Workbook_Open中操作工作表图片 #

无需单独编写工作表级宏，直接在ThisWorkbook模块的Workbook_Open事件里定位目标工作表的图片并隐藏：

Private Sub Workbook_Open()
    Dim targetSheet As Worksheet
    Set targetSheet = ThisWorkbook.Sheets("Sheet1") '替换为你的目标工作表名称
    
    ' 若为插入的普通图片（属于Shapes集合），按名称引用
    targetSheet.Shapes("请启用宏").Visible = False
    
    ' 若为ActiveX控件类型的Image，使用以下代码
    ' targetSheet.Image1.Visible = False '替换为你的Image控件实际名称
End Sub

注：右键图片→【格式形状】（或【属性】）可查看图片的准确名称，确保代码中名称与实际一致。

方案二：从Workbook_Open调用工作表模块的自定义宏 #

如果希望将隐藏逻辑封装在目标工作表模块中，按以下步骤操作：

1. 打开目标工作表的代码模块（比如Sheet1），将自定义宏设为Public（默认Private无法被外部调用）：

' 放置在Sheet1的代码模块内
Public Sub HideEnableMacroImage()
    ' 隐藏图片的逻辑示例
    Me.Shapes("请启用宏").Visible = False
    ' 若为ActiveX控件则用：Me.Image1.Visible = False
End Sub

2. 在ThisWorkbook模块的Workbook_Open中调用该宏：

Private Sub Workbook_Open()
    ' 通过工作表对象直接调用Public级宏
    ThisWorkbook.Sheets("Sheet1").HideEnableMacroImage
End Sub

关键注意事项 #

• 宏启用前提：Excel默认禁用宏，只有用户手动启用宏后，Workbook_Open事件才会触发，这也是隐藏“请启用宏”图片的必要条件。
• 图片引用准确性：若代码报错找不到图片，优先检查名称是否匹配；也可通过索引定位（如targetSheet.Shapes(1)），但名称定位更可靠。

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