执行macros而不显示其他工作表

我已经开发了下面的macros来在工作表2中插入一个新行，并从另一个自动填充这个新行。 macros正在正常运行。

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上的macros，我不希望Sheet2显示时，我这样做。 我怎么做？

Answer 1

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

 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