VBA - 在打开工作簿之前检查它是否受到保护

在进行VBA编程时，我们经常需要对工作簿进行各种操作。有时候，我们可能会遇到一个问题：如何在打开工作簿之前检查它是否受到保护？这对于确保我们的代码能够正常运行是非常重要的。在本文中，我们将探讨如何使用VBA代码来检查工作簿的保护状态，并提供一个案例代码来帮助我们更好地理解这个过程。

vba
Sub CheckWorkbookProtection()
    Dim wb As Workbook
    Set wb = ThisWorkbook
    
    If wb.ProtectStructure = True Then
        MsgBox "该工作簿受到保护！"
    Else
        MsgBox "该工作簿没有受到保护！"
    End If
End Sub

vba
Sub CheckWorkbookProtection()
    Dim wb As Workbook
    Dim filePath As String
    
    ' 设置文件路径
    filePath = "C:\Users\Username\Documents\SampleWorkbook.xlsx"
    
    ' 打开工作簿
    Set wb = Workbooks.Open(filePath)
    
    ' 检查保护状态
    If wb.ProtectStructure = True Then
        MsgBox "该工作簿受到保护！"
    Else
        MsgBox "该工作簿没有受到保护！"
    End If
    
    ' 关闭工作簿
    wb.Close SaveChanges:=False
End Sub