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 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
Kod:Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
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?Kodlarınızı araya ekleyin.
Kod:Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.