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

在VBA中，我们可以使用代码来检查一个工作簿是否受到保护。这对于我们在处理大量数据时非常有用，因为我们可以在打开工作簿之前确认它是否已被保护，以便我们能够相应地处理它。

vba
Sub CheckWorkbookProtection()
    Dim wb As Workbook
    Set wb = ThisWorkbook
    
    If wb.ProtectContents Then
        MsgBox "该工作簿受到保护。"
    Else
        MsgBox "该工作簿未受到保护。"
    End If
End Sub

vba
Sub CheckWorkbookProtectionExample()
    Dim wb As Workbook
    Dim filePath As String
    
    ' 设置文件路径
    filePath = "C:\路径\Data.xlsx"
    
    ' 打开工作簿
    Set wb = Workbooks.Open(filePath)
    
    ' 检查工作簿是否受到保护
    If wb.ProtectContents Then
        MsgBox "该工作簿受到保护。"
    Else
        MsgBox "该工作簿未受到保护。"
    End If
    
    ' 关闭工作簿
    wb.Close SaveChanges:=False
End Sub