执行VBA代码后隐藏Access VBA代码窗口的方法

当你用CreateEventProc和InsertLines修改窗体模块代码时，VBA编辑器默认会自动弹出并定位到修改位置。可以通过以下两种方式解决：

方法一：操作前隐藏编辑器，操作后恢复原状态 #

先保存当前VBA编辑器的可见状态，操作模块时强制隐藏，完成后再恢复原来的状态（避免影响用户原本打开的编辑器窗口）：

' 保存编辑器原有可见状态
Dim originalVisible As Boolean
originalVisible = Application.VBE.MainWindow.Visible

' 隐藏VBA编辑器窗口
Application.VBE.MainWindow.Visible = False

' ------------------------------
' 你的原有代码（创建控件+添加事件）
'create textbox
Set txt = CreateControl(frm, acLabel, acDetail, "", "", x, y, w * cmToTwip, h * cmToTwip)
txt.BorderStyle = 1
txt.borderColor = borderColor
txt.BorderWidth = 3
txt.BackStyle = 0
txt.ForeColor = 0
txt.SpecialEffect = 0
txt.Vertical = True
txt.Name = "DELRectangle" & idVogn
txt.TextAlign = 1
txt.Caption = " " & text

'add onClick event
Dim mdl As Module
Set mdl = Forms(frm).Module
Dim lngReturn As Long
lngReturn = mdl.CreateEventProc("click", txt.Name)
mdl.InsertLines lngReturn + 1, "call handleClickOnWagenverfolgung(" & idVogn & ")"
' ------------------------------

' 恢复编辑器原有可见状态
Application.VBE.MainWindow.Visible = originalVisible

方法二：操作完成后关闭对应的模块窗口 #

如果编辑器已经弹出，可以针对性关闭当前窗体的模块窗口，而不是关闭整个VBA编辑器：

' 在添加完事件代码后执行
Application.VBE.Windows(Forms(frm).Name & ".frm").Close

注意事项 #

如果运行代码时提示“权限被拒绝”，需要在Access的信任中心设置里启用信任对VBA项目对象模型的访问：

• 打开Access选项 → 信任中心 → 信任中心设置 → 宏设置 → 勾选“信任对VBA项目对象模型的访问”

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