Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Merhaba
Sayfada sadece (B1:J1) hücrelerini düzenlemeye karşı kilitleme, ama aynı hücreleri çift tıklamaya karşı serbest bırakmayı nasıl yapabilirim?
TeşekkürlerPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = True
If Target.HasFormula Then Target.Offset(0).Select: _
MsgBox "Hücrede Formül Var, Islem Yapamazsiniz": Exit Sub
End Sub
hücrede formul varsa eğer bu kod işinizi görür sanırım.
Sayın Balta hocam değerli cevabınız için teşekkür ederim.sayfanın kod bölümüne yapıştırın.
şifre 123
HTML:
Hocam aynen öyle dediğiniz gibi, çift tıklayınca kilitliyor ve açıyor. Ama bu sefer de benim çift tıklamayla sıralama yapan kodlar; sıralamak istediğimde çift tıklarsam hata veriyor.çift tıklayınca hem kilitler hem de açar.
Balta hocam şöyle bir örnek ekledim. Bilmiyorum hata çözülebilir mi?