Sub AbsorbThisProcedure() If Application.VBE.MainWindow.Visible = False Then MsgBox "请先激活VBE编辑窗口再执行!" Exit Sub End If On Error Resume Next Set VbCodePane = Application.VBE.ActiveCodePane '获取当前代码窗口 If Err.Number = 1004 Then MsgBox "请勾选“信任对VB…