セルに算式が入っているかどうか調べたい。

セルの HasFormula プロパティが True なら、セルに算式が入っています

算式が入っていたらユーザーフォームのテキストボックのBackColorを変えてロックをかけたい。
(ロックするのではなく、Enabled = False にしてもいいが、文字が見えにくくなるね・・・)

ユーザーフォームのテキスボックスに1行分のデータを全て表示させるプログラムです。
「lng開始列」変数は、表の左端(開始列)を入れます。
「strLockColer」変数は、セルに数式が入っていた時のBackColor
「strUnLockColer」変数は、セルに数式が入っていなかった時のBackColor


 Sub UFinit()
'行が変わる度に、ユーザーフォームの内容をリフレッシュする

    Dim lngTargetRow As Long
    Dim i As Long, j As Long
        
    lngTargetRow = ActiveCell.Row

    With f

        j = 0
        For i = 1 To lngField
           .Controls("TextBox" & i).Text = Cells(lngTargetRow, lng開始列 + j).Text
           
           If Cells(lngTargetRow, lng開始列 + j).HasFormula = True Then
           
            .Controls("TextBox" & i).BackColor = strLockColer
            .Controls("TextBox" & i).Locked = True
           
           Else
           
            .Controls("TextBox" & i).BackColor = strUnLockColor
            .Controls("TextBox" & i).Locked = False
           
           End If
           
           j = j + 1
        Next i

    End With
    
End Sub