hücre koruma yapıyorum ama formül işlev yapmıyor

[excelmeraklisi]

Herkese merbaba
Hücreleri koruma ile kilitliyorum, fakat bu sefer hücreue yazdığım formül değişiklik yağpmıyor. Örneğin DÜŞEYARA ile getirdiğim veriyi değiştirdiğimde düşeyara hata veriyor. Yardımalrınız için şimdiden teşekkür

 

[Seyit Tiken]

Sayfa Korumasını kaldırıp aşağıdaki deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Select
If Target.HasFormula Then
Target.Offset(0, 1).Select
MsgBox "Hücrede Formül Var", vbInformation
Else
Exit Sub
End If
End Sub