使用VBA检测Excel文件是否有IRM (信息权限管理)限制，而无需打开该文件

Sub CheckIRMRestriction()
    Dim filePath As String
    Dim excelApp As Object
    Dim workbook As Object
    Dim hasIRMRestriction As Boolean
    
    ' 设置文件路径
    filePath = "C:\path\to\your\file.xlsx"
    
    ' 创建Excel应用程序对象
    Set excelApp = CreateObject("Excel.Application")
    
    ' 打开文件
    Set workbook = excelApp.Workbooks.Open(filePath)
    
    ' 检查是否有IRM限制
    hasIRMRestriction = workbook.Permission
    If hasIRMRestriction Then
        MsgBox "该文件有IRM限制。"
    Else
        MsgBox "该文件没有IRM限制。"
    End If
    
    ' 关闭文件和Excel应用程序
    workbook.Close False
    excelApp.Quit
    
    ' 释放对象
    Set workbook = Nothing
    Set excelApp = Nothing
End Sub