如何在关闭其他Excel实例时保持用户表单打开

Sub CloseOtherInstancesKeepFormOpen()
    Dim wb As Workbook
    Dim formName As String
    
    ' 设置要保留的用户表单名称
    formName = "UserForm1"
    
    ' 关闭所有工作簿，但保留包含用户表单的工作簿
    For Each wb In Application.Workbooks
        If Not wb.Name Like "*" & formName & "*" Then
            wb.Close SaveChanges:=False
        End If
    Next wb
End Sub

import win32com.client as win32

# 创建Excel应用程序对象
excel = win32.gencache.EnsureDispatch('Excel.Application')

# 打开特定的工作簿
workbook = excel.Workbooks.Open(r'C:\path\to\your\workbook.xlsx')

# 激活特定的用户表单
excel.Application.Visible = True
excel.Application.UserForm1.Show()

# 关闭其他Excel实例
for wb in excel.Workbooks:
    if wb.Name != workbook.Name:
        wb.Close(SaveChanges=False)

# 保持特定的用户表单打开
excel.Application.UserForm1.Show()