执行宏而不显示其他 sheet

Question

我开发了以下宏来在 Sheet 2 中插入一个新行，并从另一个行自动填充这个新行。宏运行ning 正常。

Sub AutoFill()
    Worksheets("Sheet2").Unprotect
    Worksheets("Sheet2").Rows("8:8").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Set SourceRange = Worksheets("Sheet2").Rows(9)
    Set fillRange = Worksheets("Sheet2").Range("8:9")
    SourceRange.AutoFill Destination:=fillRange, Type:=xlFillDefault    
    Worksheets("Sheet2").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Worksheets("Sheet2").EnableSelection = xlNoRestrictions
End Sub

我将 Sheet1 上的宏设置为运行，我不希望在执行此操作时显示 Sheet2。我该怎么做？

Answer 1

关闭屏幕更新，但确保在代码完成后再次打开它：

Sub AutoFill()

Application.ScreenUpdating = False
Worksheets("Sheet2").Unprotect

Worksheets("Sheet2").Rows("8:8").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove


    Set SourceRange = Worksheets("Sheet2").Rows(9)
    Set fillRange = Worksheets("Sheet2").Range("8:9")
    SourceRange.AutoFill Destination:=fillRange, Type:=xlFillDefault

Worksheets("Sheet2").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Worksheets("Sheet2").EnableSelection = xlNoRestrictions

Application.ScreenUpdating = True
End Sub

执行宏而不显示其他 sheet

Executing Macro without showing other sheet

vba

excel

user-interface