다른 시트를 표시하지 않고 매크로 실행

Question

다음 매크로를 시트 2에 삽입하고이 새로운 라인을 다른 시트에서 자동 채우기로 개발했습니다. 매크로가 제대로 실행 중입니다.

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

턴 오프을 ScreenUpdating 있지만, 코드가 완료되면 당신이 다시 다시 전환 할 수 있도록 :

이

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