Hücre Kilitli Uyarısı

[akhsahbaz]

Arkadaşlar, forumda arayıp bulduğum bir makroyu değiştirip kendime uyarladım.Makro kilitli hücreye çift tıklandığında msgbox la "Hücre Kilitli" diye uyarı veriyor. Hemen arkasındanda office in kendi uyarısı tabiki. Office in uyarısını nasıl kaldıra bilirim. İyi çalışmalar.

 

[Ferhat Pazarçevirdi]

Kodunuzu şu şekilde revize edebilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
ActiveSheet.Unprotect
If ActiveCell.Locked = True Then
        MsgBox "Kilitli Hücre"
        ActiveSheet.Protect
        Cancel = True
End If
End Sub

 

[akhsahbaz]

Sayın Hocam, kod malesef verdiğim örnekteki gibi çalışıyor. Yani Office hala kendi uyarısı çalışıyor.

 

[Ferhat Pazarçevirdi]

Doğru söylüyorsunuz. Ben de sonradan farkettim

Kodu tekrar revize ettim. 2 Nolu mesajdaki kodu tekrar deneyiniz.

 

[akhsahbaz]

Sayın Ferhat Pazarçevirdi,

İlginiz ve yardımınız için teşekkür ederim.

 

[soulfest]

Kodunuzu şu şekilde revize edebilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
ActiveSheet.Unprotect
If ActiveCell.Locked = True Then
        MsgBox "Kilitli Hücre"
        ActiveSheet.Protect
        Cancel = True
End If
End Sub

ben bu kodu thisworkbook altında yazdım ancak sadece run yaptığım zaman uyarı mesajı geliyor.diğer zamanlarda yine excelin normal uyarısı çıkıyor