Hücre Kilitli Uyarısı

[akhsahbaz]

Arkadaşlar, aşağıdaki makroyu forumdaki sayın hocalarımızın yardımlarıyla yapılmış bir makro. Makro kilitli hücrelere çift tıklandığında "kilitli hücre" uyarısı veriyor. Makro sadece ilgili sayfanın kod bölümünde çalışıyor. Bu makroyu Thisworkbook makro bölümüne uyarlaya bilirmiyiz?

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

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, 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]

Sn. Hocam teşekkür ederim.