防止VBE编辑器窗口闪烁

Question

有关于这方面的帖子，但似乎我做错了什么，因为窗口仍然闪烁。下面是我代码的相关部分：

Private Declare Function LockWindowUpdate Lib "user32" (ByVal hWndLock As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal ClassName As String, ByVal WindowName As String) As Long
170   oExcel.VBE.MainWindow.Visible = False
180   VBEHwnd = FindWindow("wndclass_desked_gsk", oExcel.VBE.MainWindow.Caption)
190   If VBEHwnd Then LockWindowUpdate VBEHwnd
200   With MB.VBProject.VBComponents(MB.Worksheets(sht.Name).CodeName).CodeModule
210       .InsertLines Line:=.CreateEventProc("Click", printbut.Name) + 1, String:=vbCrLf & "Call Sheet4.printbutton"
220   End With
230   oExcel.VBE.MainWindow.Visible = False
240   LockWindowUpdate 0&

我做错了什么？(代码是基于CPearson的代码)。

谢谢你的帮助。

Answer 1

我什么都试过了，但都没能成功。因此，我最后使用的另一个选项(不可取)是：

170   oExcel.VBE.mainwindow.Visible = False
180   curPos = oExcel.VBE.mainwindow.Left
190   oExcel.VBE.mainwindow.Left = 10000
200   With MB.VBProject.VBComponents(MB.Worksheets(sht.Name).CodeName).CodeModule
210       .InsertLines Line:=.CreateEventProc("Click", printbut.Name) + 1, String:=vbCrLf & "Call Sheet4.printbutton"
220   End With
230   oExcel.VBE.mainwindow.Visible = False
240   oExcel.VBE.mainwindow.Left = curPos