如何禁用 "Project - VBA Project" 面板?
How to disabe the "Project - VBA Project" pane?
此宏将 hide/close VBE Main Window:
Sub VBEMainWindowHide()
'close VBE window:
Application.VBE.Window.Visible = False
End Sub
我正在尝试关闭或隐藏 "Project - VBA Project" 窗格。此窗格显示工作簿中的所有工作表、ThisWorkbook 模块等
我尝试了 Application.VBE.Projects.Visible = False
、Application.VBE.("Projects - VBA Project")
以及使用相同术语的一两个其他组合。
您可以使用Application.VBE.Windows("WindowName").Close
关闭相关VBE Window。
看到这个
Option Explicit
Sub Sample()
Dim i As Long
For i = 1 To Application.VBE.Windows.Count
Debug.Print Application.VBE.Windows(i).Caption
Next i
End Sub
这将在 Immediate Window
中为您提供类似的内容
Module1 (Code)
Book1 - Sheet1 (Code)
Project - VBAProject
Properties - Module1
Object Browser
Watches
Locals
Immediate
所以
Application.VBE.Windows("Immediate").Close
将关闭即时 window。同样回答你的问题
Application.VBE.Windows("Project - VBAProject").Close
将关闭 "Project - VBA Project" 窗格。要再次显示,您可以使用
Application.VBE.Windows("Project - VBAProject").Visible = True
此宏将 hide/close VBE Main Window:
Sub VBEMainWindowHide()
'close VBE window:
Application.VBE.Window.Visible = False
End Sub
我正在尝试关闭或隐藏 "Project - VBA Project" 窗格。此窗格显示工作簿中的所有工作表、ThisWorkbook 模块等
我尝试了 Application.VBE.Projects.Visible = False
、Application.VBE.("Projects - VBA Project")
以及使用相同术语的一两个其他组合。
您可以使用Application.VBE.Windows("WindowName").Close
关闭相关VBE Window。
看到这个
Option Explicit
Sub Sample()
Dim i As Long
For i = 1 To Application.VBE.Windows.Count
Debug.Print Application.VBE.Windows(i).Caption
Next i
End Sub
这将在 Immediate Window
Module1 (Code)
Book1 - Sheet1 (Code)
Project - VBAProject
Properties - Module1
Object Browser
Watches
Locals
Immediate
所以
Application.VBE.Windows("Immediate").Close
将关闭即时 window。同样回答你的问题
Application.VBE.Windows("Project - VBAProject").Close
将关闭 "Project - VBA Project" 窗格。要再次显示,您可以使用
Application.VBE.Windows("Project - VBAProject").Visible = True