VBA - 如果单元格包含公式，则锁定单元格

Question

如果包含公式，我想锁定特定范围内的单元格，否则它应该保持解锁状态，同时应该启用大纲。

我有下面的代码，它保持解锁前 3 列，其中不包含公式，但其余部分被锁定，即使它包含简单文本或为空。 请您告诉我根本原因是什么或如何做得更好？

Private Sub Workbook_Open()
    
 Dim Rng As Range
 
 Set Rng = SheetName.Range("Table")
 
    For Each Cell In Rng
        If Cell.HasFormula = False Then
    
           Else
            SheetName.Unprotect Password:="pwd"
              Cell.Locked = True
              Cell.FormulaHidden = False
              SheetName.Protect Password:="pwd", UserInterFaceOnly:=True
              SheetName.EnableOutlining = True
           
        End If
    Next Cell
    
End Sub

非常感谢！