Korumalı Sayfa Hatası

[gurcan21]

Arkadaşlar merhaba,

Excel sayfam koruma altında fakat bazı sütunları bu korumanın dışında bıraktım.

With Range (A:A)
.Locked= False
End With

Kullandığım Kod Bu. Fakat A sütununda bir hücreyi değiştirmek için hücreyi tıkladığımda içindeki tüm bilgiler siliniyor. İçinde uzunca bir metin olan hücre içinde bir harf düzeltmek için tıkladığımda komple hücre siliniyor ve imleç boş hücrede yanıp sönüyor. Bunu nasıl düzeltebilirim?

Soru 2: Korumalı bir sayfada koruma altındaki hücreye tıkladığınızda bir uyarı ekranı çıkıyor. Ben bu uyarı yerine kendi oluşturacağım bir msgbox ın görünmesini istiyorum bunu nasıl yapabilirim acaba?

Teşekkürler

 

[Necdet]

Merhaba,

Hücreye tıklama ile hücre otomatik silinmez, büyük olasılıkla selection change makrosu aktif durumdadır. Onunda ne yaptığını biz uzaktan bilemeyiz.

Ayrıca http://www.excel.web.tr/f50/tarih-problemi-t102650.html#post558896 linki için geri dönüş yapmamışsınız, onu da merak ettim doğrusu.

 

[gurcan21]

Aktif olarak böyle bir makro yazmadım ama?

 

[Necdet]

O zaman hücreyi seçtikten sonra F2 tuşuna basarsanız hücre içinde istediğiniz değişikliğe izin vermesi gerek.

F2 ye basmassanız ilk bastığınız karakter (tabi uyuşmazsa) ile hücre içeriği temizlenir.

 

[gurcan21]

peki bunu kod ile yapma şansım var mı? Aslında koda baktım sheets içine change kodu yazmışım ve bu kodu kaldırmamam gerekiyor. Bu durumda çözüm ne olur?

 

[Necdet]

Görmediğimiz, bilmediğimiz bir kodda kim nasıl yardımcı olabilir ki?

 

[gurcan21]

haklısınız aşağıya kodu yazıyorum change ile ilgili;

PrivateSub WorkSheet_SelectionChange(ByVal Target As Range)
Eski_Deger = Target
End Sub

PrivateSub WorkSheet_Change(ByVal Target As Range)

On Error Resume Next
With Sheets("YEDEK")
Satır =WorksheetFunction.CountA(.Range("A:A"))+1
.Cells(Satır,1) =Satır-1
.Cells(Satır,1) =Date
.Cells(Satır,1) =Time
.Cells(Satır,1) =.Range("H1")
.Cells(Satır,1) =ActiveSheet.Name & "!" & Target.Address (1,1)
.Cells(Satır,1) =Iff(Eski_Deger ="",Boş Hücre,Eski_Deger)
.Cells(Satır,1) =Iff(Target="","Değer Silindi!",Target)
.Cells.EntireColumn.Autofit
End With
End Sub

Şimdi umarım yeterince açıklayıcı olmuştur. Yardımlarınızı bekliyorum.

 

[gurcan21]

Konu günceldir.Yardımcı olabilecek arkadaş var mı?

 

[gurcan21]

Arkadaşlar Necdet Bey yok galiba yardımcı olabilecek arkadaşım var mı acaba?