Kilitli Hücreyi değiştirmek istediğimizde çıkan hata mesajını değiştirmek

[cuneyt001]

Merhabalar,

Excel'de bir formullerle işlenmşi bir sayfa yaptım ve tüm sonuç hücrelerini kilitleyip, sayfayı koruma altına aldım.

Bazı hücreleride verilerin girilmesi için boş bıraktım, ve kilitlerini kaldırdım.

Yani kullanıcı sadece kilitsiz olan hücreleri değiştirebilecek.

Diğer kısımlara çift tıklandığında veya birşey yazılmak istendiğinde, Excel'in standart uyarı mesajı çıkıyor. Ben bu mesajı, kendi yazacağım bir uyarı mesajı ile değiştirmek istiyorum.

Hangi kodu kullanmalıyım.

 

[Ayhan Ercan]

Selam,,

söylediğinizden biraz farklı ama belki işinize yarayabilir..
Hücre kilitlemeside gerekmiyor. hangi hücrelerde mesj vermesini istiyorsanız onu tanımlıyorsunuz.
örneği inceleyin:



kırmızı alanlar, mesaj vermesini istediğimiz hücreler olduğunu varsayalım. burda a1ile a10 arası, c2 ve d5 olsun. o hücreler seçildiğinde (yazı dahi yazmadan) mesaj veriyor ve B1 hücresine geçiyor...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Set k = Range[B][COLOR=red]("a1:a10,c2,d5")[/COLOR][/B]
If Intersect(Target, k) Is Nothing Then Exit Sub
    Select Case Target.Address
        Case 1 = [COLOR=red][B]"$a$1:$a$10,$c$2,$d$5"[/B][/COLOR]
        MsgBox "kilitli"
        [b1].Select
    End Select
Set k = Nothing
End Sub

 

[Levent Menteşoğlu]

Bu istediğinizin çift tıklama yada hücreye müdahele durumunda yapılabileğini sanmıyorum. Ancak kilitli hücre seçildiğinde uyarı veren bir kod yazılabilir. Aşağıdaki kodu sayfanın kod sayfasına kopyalayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.AllowEdit = False Then MsgBox "Bu hücre korumalıdır. Değişiklik yapamazsınız.", 48, "Uyarı"
End Sub

 

[cuneyt001]

Çok teşekkür ederim. Her ikisinide kullanabileceğim yeni bir kod yazabilirim sanırım. Her ikiside işimi çözebilecek nitelikte. Teşekkürler.

 

[Ayhan Ercan]

Çok teşekkür ederim. Her ikisinide kullanabileceğim yeni bir kod yazabilirim sanırım. Her ikiside işimi çözebilecek nitelikte. Teşekkürler.

Önemli olan işe yaramasıydı. Sevindim. İyi Çalışmalar...