[發問] 如何關閉程式碼視窗

av8d

按下Alt+F11會開啟程式碼視窗

執行程式碼時也會自動開啟程式碼視窗

請問該如何執行程式碼後，關閉程式碼視窗，謝謝！

Emily

1. Sub CloseAllVBEWindows()
   
2. ' Written by HansV , https://eileenslounge.com/viewtopic.php?t=19961
   
3.     Dim i As Long
   
4.     With Application.VBE.Windows
   
5.         For i = .Count To 1 Step -1
   
6.             With .Item(i)
   
7.                 If .Type <= 1 Then ' 0 = vbext_wt_CodeWindow, 1 = vbext_wt_Designer
   
8.                     .Close
   
9.                 End If
   
10.             End With
    
11.         Next i
    
12.     End With
    
13. End Sub

複製代碼

av8d

回復 2# Emily

原來真的有這功能，謝謝前輩。