Kilitli hücreye tıklandığında uyarı verme!

[akhsahbaz]

Arkadaşlar arama sonucunda forumda istediğime benzer bir makro buldum fakat kilitleniyor. Benim istediğim sayfa korumasında iken kilitli hücrelere tıkandığında uyarı vermesi.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu sayfanızın kod bölümüne uyguayıp denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Locked = True Then MsgBox "BU HÜCRE KORUMALIDIR !", vbCritical, "DİKKAT !"
End Sub

 

[akhsahbaz]

Sn.Korhan Ayhan, öncelikle ilginiz için teşekkür ederim. Çok eski bir üye olmamama rağmen aktif bir üye olarak sizi yeni görüyorum forumda. Merhaba. Kodunuzu denedim ama malesef çalışmadı.

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Locked = True Then
MsgBox "Kilitli Hücre"
Exit Sub
End If
End Sub

 

[akhsahbaz]

Sn.Seyit Tiken;

İlginiz ve yardımlarınız için teşekkür ederim. Kod ilgili sayfanın kod bölümünde çalışıyor. Fakat Thisworkbook bölümüne eklediğimde çalışmıyor. Sebebi ne olabilir?

 

[baydeniro]

Sayın Seyit Tiken, paylaşım için teşekkürler.

 

[Seyit Tiken]

Sn.Seyit Tiken;

İlginiz ve yardımlarınız için teşekkür ederim. Kod ilgili sayfanın kod bölümünde çalışıyor. Fakat Thisworkbook bölümüne eklediğimde çalışmıyor. Sebebi ne olabilir?

Bu şekilde deneyiniz.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Locked = True Then
MsgBox "Kilitli Hücre"
Exit Sub
End If
End Sub

 

[akhsahbaz]

Sn.Seyit Tiken tekrar teşekkür ederim. Kod mükemmel çalışıyor.

 

[1Al2Ver]

Sn.Korhan Ayhan, öncelikle ilginiz için teşekkür ederim. Çok eski bir üye olmamama rağmen aktif bir üye olarak sizi yeni görüyorum forumda. Merhaba. Kodunuzu denedim ama malesef çalışmadı.

Eski nick'i Cost_Control

 

[akhsahbaz]

Bilginiz için teşekkür ederim Sn.1Al2Ver. Sn.Cost_Control u tabiki tanıyoruz. Kusura bakmasınlar artık, bir günde hocaların nickleri değişi verdi.