- 帖子
- 7
- 主題
- 1
- 精華
- 0
- 積分
- 11
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2021
- 閱讀權限
- 50
- 性別
- 女
- 註冊時間
- 2010-8-22
- 最後登錄
- 2024-11-12
|
2#
發表於 2023-1-7 11:02
| 只看該作者
- Sub CloseAllVBEWindows()
- ' Written by HansV , https://eileenslounge.com/viewtopic.php?t=19961
- Dim i As Long
- With Application.VBE.Windows
- For i = .Count To 1 Step -1
- With .Item(i)
- If .Type <= 1 Then ' 0 = vbext_wt_CodeWindow, 1 = vbext_wt_Designer
- .Close
- End If
- End With
- Next i
- End With
- End Sub
|
|
發表於 2023-1-5 20:40
| 
