Excel检查用户表单已打开

Sub CheckIfWorkbookIsOpen()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim isOpen As Boolean
    
    ' 设置要检查的工作簿名称
    Dim workbookName As String
    workbookName = "YourWorkbookName.xlsx"
    
    ' 尝试打开工作簿
    On Error Resume Next
    Set wb = Workbooks(workbookName)
    If Err.Number = 0 Then
        isOpen = True
        ' 工作簿已打开，可以进行进一步操作
        Set ws = wb.Sheets("Sheet1") ' 示例：获取第一个工作表
        ws.Cells(1, 1).Value = "Workbook is open."
    Else
        isOpen = False
        ' 工作簿未打开
        MsgBox "Workbook is not open."
    End If
    On Error GoTo 0
    
    ' 输出结果
    If isOpen Then
        MsgBox "Workbook is open."
    Else
        MsgBox "Workbook is not open."
    End If
End Sub