如何使代码不返回具有锁定单元格的公式

Sub CheckLockedCells()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    If ws.ProtectContents Then
        Dim rng As Range
        For Each rng In ws.UsedRange
            If rng.Locked Then
                ' 处理锁定单元格的逻辑
                Debug.Print "Cell " & rng.Address & " is locked."
            End If
        Next rng
    Else
        Debug.Print "Sheet is not protected."
    End If
End Sub

Sub ProcessFormulas()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    Dim rng As Range
    For Each rng In ws.UsedRange
        If Not rng.Locked Then
            ' 处理未锁定单元格的公式
            Debug.Print "Processing formula in cell " & rng.Address & ": " & rng.Formula
        End If
    Next rng
End Sub

Sub UnlockCells()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    Dim rng As Range
    For Each rng In ws.UsedRange
        rng.Locked = False
    Next rng
    
    ' 处理完成后重新锁定
    ws.Protect Contents:=True, Password:="yourpassword"
End Sub