Kilitli hücre uyarı mesajı

[soulfest]

kilitli olan bir hücreye tıklandığında normalde salt okunur değiştiremezsiniz gibi bir uyarı mesajı çıkıyor.bu mesaj yerine kendi uyarı mesajımı yazmak istiyorum.yardımcı olursanız sevinirim çok acil!!

 

[uzmanamele]

merhaba

bu kod işinizi görü mü?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Locked = True Then
MsgBox "Hücre korumalı!"
End If
End Sub

 

[1mak1mak]

merhaba

bu kod işinizi görü mü?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Locked = True Then
MsgBox "Hücre korumalı!"
End If
End Sub

Ben bu kodu WorkBook a ekledim bende çalışmadı.

 

[soulfest]

deniycem peki bu kodu nereye yazmalıyım?yani this workbook altında mı yoksa module altında mı?

 

[soulfest]

deniycem.peki bu kodu thisworkbook'a mı yoksa module mi yazmalıyım?biraz acemiyim de

 

[soulfest]

bir de şu kodu workbook'a yazdım ancak sadece run yaptığım zaman çalısıyor normal zamanda çalışmıyor

Sub Worksheet_BeforeDoubleClick()
On Error Resume Next
ActiveSheet.Protect
If ActiveCell.Locked = True Then
MsgBox "hücre kilitli!"
ActiveSheet.Protect
Cancel = True
End If
End Sub

 

[ynmcan]

bir de şu kodu workbook'a yazdım ancak sadece run yaptığım zaman çalısıyor normal zamanda çalışmıyor

Sub Worksheet_BeforeDoubleClick()
On Error Resume Next
ActiveSheet.Protect
If ActiveCell.Locked = True Then
MsgBox "hücre kilitli!"
ActiveSheet.Protect
Cancel = True
End If
End Sub

Syn. Soulfest;
koruma yapmak istediğiniz sayfafanın kod sayfasına yazınız.

 

[ynmcan]

Syn. Soulfest;
Ekteki örnek dosyayı inceleyin.

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

 

[soulfest]

Syn. Soulfest;
Ekteki örnek dosyayı inceleyin.

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

çok teşekkürler işe yaradı

 

[1mak1mak]

Syn. Soulfest;
Ekteki örnek dosyayı inceleyin.

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

Teşekkürler
Kod çalışıyor ancak Çift Klik yaptığımızda çalışıyor.
Ama Kilitli Hücreye bir değer girmeye çalıştığımda hala eski uyarıyı alıyorum.

 

[1mak1mak]

merhaba

bu kod işinizi görü mü?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Locked = True Then
MsgBox "Hücre korumalı!"
End If
End Sub

Selamlar bu koda Hücre tercihi yapabilirmiyiz acaba mesela
sadece A4 A5 A7 A8 A10 B10 B12 B13 Hücrelerinde bu uyarıyı versin şeklinde.

Teşekkürler