HÜCRE KORUMASI

[ORHANTUNCAL]

HÜCREYE BİR DEÐER GİRDİKTEN MESELA 10 SANİYE SONRA HÜCREDEN BU BİLGİYİ SİLEMİYELİM. NORMALDE HÜCRE KİLİDİ VE SAYFA KORUMASI YAPIYORUM ANCAK HANİ YANLIÞ TUÞA BASIP HEMEN DÜZELTMEK İSTERSİNİZ BUNA OLANAK OLMUYOR. YARDIMLARINIZI BEKLİYORUM.

 

[Mahmut Bayram]

Aşağıda A1 hücresinin değeri değişince 10 sn içerisinde siliniyor. Denemedim sadece yazdım. Sayfanın kod bölümüne yazın.

[vb:1:8dcc872381]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" <> Empty Then Call sil
End Sub

Sub sil()
Application.Wait Now + TimeValue("00:00:10")
Range("a1").Select
End Sub [/vb:1:8dcc872381]

 

[ORHANTUNCAL]

amacım hücredeki bilgiyi silmek değil kitlemek ama kitlemeden önce bu hücreye giriş çıkışı 5 - 10 saniye daha sürdürebilmek.

 

[Mahmut Bayram]

yani ORHANTUNCAL, bey hücreye değer girince o hücreyi silmek değil kilitlemek istiyorsanız

[vb:1:c2deab48ea]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" <> Empty Then Call sil
End Sub

Sub sil()
Application.Wait Now + TimeValue("00:00:10")
Range("a1").Select
Selection.Locked = True
Selection.FormulaHidden = False
End Sub [/vb:1:c2deab48ea]

yukardaki range.... kısmındaki kodlar kısaltılabilir fakat mantığı anlamınz açısından makro kaydet ile yaptım.

 

[ORHANTUNCAL]

ilgin için teşekkür ederim.