excel - 防止在按钮单击时打开 VBE

Question

我有一些运行一些代码的按钮，每次单击按钮时，VBE 都会打开，我不需要它。我试过Application.VBE.MainWindow.Visible = False在几个不同的位置(有些未在此处显示)，但它不会阻止任何事情。

Sub Clear_Sales_Button()
'
' Clear_Sales_Button Macro
'
    Application.VBE.MainWindow.Visible = False
    ActiveWorkbook.Sheets("Sales").Activate
    ActiveSheet.Buttons.Add(44.25, 4.5, 144.75, 19.5).Select
    Application.Goto Reference:="Clear_Sales_Button"
    Selection.Characters.Text = "Clear Sales"
    With Selection.Characters(Start:=1, Length:=11).Font
        .Name = "Calibri"
        .FontStyle = "Bold"
        .Size = 12
        .ColorIndex = 3
    End With
    Selection.OnAction = "Module1.Readd_Button"
    Range("A1").Select

End Sub
Sub Readd_Button()
'
' Readd_Button Macro
'
' Keyboard Shortcut: Ctrl+w
'
    Application.VBE.MainWindow.Visible = False
    Application.ScreenUpdating = False
'Delete all cells
    ActiveWorkbook.Sheets("Sales").Activate
    ActiveSheet.Cells.Delete
'Add button back to Sales sheet
    ActiveSheet.Buttons.Add(48, 15.75, 96, 29.25).Select
    Application.Goto Reference:="Readd_Button"
    Selection.Characters.Text = "Import Sales"
    With Selection.Characters(Start:=1, Length:=12).Font
        .Name = "Calibri"
        .FontStyle = "Bold"
        .Size = 12
        .ColorIndex = 1
    End With
    Selection.OnAction = "Button1_Click"
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub

我只是不想打开 VBE，但找不到阻止它的方法

Answer 1

您的代码中的有罪声明是 Application.Goto陈述。虽然通常用于跳转到特定范围，但提供过程名称是有效的，请参阅 Application.Goto在微软文档上。

在您的情况下，您在代码中提供子名称 Reference:="Clear_Sales_Button" .虽然在 MS 页面中没有明确说明，但这将“跳转”到 VBE 中的特定例程 - 换句话说，显示 VBA 并滚动到例程(不执行它)。