formüllü hücre için koruma kodu?

[amelie]

Arkadaşlar Selam.
Bu konuyla ilgili bir cevap verilmişti ancak orda da sormuştumda arada kaynamıştı sanırsam..( ki orda ki cevap hücreye bilgi girildiğinde girilen hücreye
protect olması idi )
ancak benim şudur,
Bir hücreye formül girildiği zaman otomatik olarak hücreyi protect altına aldırmak.Ben target nesnesinin metodlarına bu durumu uygulayamadım.ya da activecells'de baktım ama bir yerde kuramadım dengeyi.Bu konuda fikri gelen bir üstadım varsa ve de paylaşırsa pek sevineceğimi bildirmek isterim.
İçten sevgi selamlarımla.

 

[amelie]

düzeltme ve özür!

düzeltme : Arkadaşlar özür dilerim gözümden kaçmış.bu konuda sayın Bedersu arkadaşımız gayet güzel bir cevap vermiş.Meşgul ettiğim için özür dilerim.


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.HasFormula Then
Application.OnKey "{del}", ""
Application.OnKey "{BACKSPACE}", ""

Else
Application.OnKey "{del}"
Application.OnKey "{BACKSPACE}"
End If

End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.OnKey "{del}"
Application.OnKey "{BACKSPACE}"
End Sub

 

[baydeniro]

İlginç bir kod ancak koruma ile bağlantısını çözemedim !!