Sadece ListBox ve ComboBox lar çalışsın

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,862
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
Selamlar,

Arkadaşlar hücreleri seçip kilitli ve gizli yapıyorum sonra sayfaya koruma koyuyorum fakat sayfamdaki ListBox ve ComboBox lar da çalışmıyor. Benim istediğim hücrelere müdahale edilemesin ama ListBox ve ComboBox lar çalışsın nasıl yapabilirim

Saygılar
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,712
Excel Vers. ve Dili
Excel 2019 Türkçe
Sayfayı koru dediğinizde, çıkacak seçeneklerden "Nesne Düzenle" diye olanı seçin.
 

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,862
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
Hocam merhaba


Nesne düzenle nin yanındaki kutucuğa çek işareti koydum ama yine olmadı. Acaba yanlış mı yaptım.

Saygılar
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,712
Excel Vers. ve Dili
Excel 2019 Türkçe
Doayanızın küçük bir örneğini ekler misiniz?
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,712
Excel Vers. ve Dili
Excel 2019 Türkçe
Sayın komutan63, "D5" hücresine link vermişsiniz, sorun bundan kaynaklanıyor. Ya bu hücrenin korumasını kaldırın. Yada yine bu hücrenin korumasını kaldırıp vereceğim kodu "ANASAYFA"isimli sayfanın kod kısmına ekleyin. Böylece hücre seçildiğinde bir önceki hücre seçilecek. Kısacası o hücrenin değiştirilmesi engellenecek.
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$5:$F$5" Then Target.Offset(-1, 0).Select
End Sub
 

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,862
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
Sayın komutan63, "D5" hücresine link vermişsiniz, sorun bundan kaynaklanıyor. Ya bu hücrenin korumasını kaldırın. Yada yine bu hücrenin korumasını kaldırıp vereceğim kodu "ANASAYFA"isimli sayfanın kod kısmına ekleyin. Böylece hücre seçildiğinde bir önceki hücre seçilecek. Kısacası o hücrenin değiştirilmesi engellenecek.
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$5:$F$5" Then Target.Offset(-1, 0).Select
End Sub
Hocam Çok teşekkür ederim. Sayenizde sorun çözüldü.
Saygılar sunarım
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,712
Excel Vers. ve Dili
Excel 2019 Türkçe
İşinizi gördüğüne sevindim. Ben bunu çok sık kullanıyorum. Belki daha uygun bir çözümü vardır.
 

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,862
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
Hocam elinize sağlık Benim işimi gördü ama,
Daha uygun veya alternatif çözümü olan varsa siz daha iyi biliyorsunuz ki sitemiz paylaşım sitesi paylaşsınlar o zaman

İyi akşamlar

Saygılar
 
S

Skorpiyon

Misafir
Bir fikir ama;

Sayfalarda bir koruma yapmadan son kullanıcıya hitaben,

Application.Visible=False ve True komutu ile işinizi görebilirsiniz. Son kullanıcı formlardan başka birşey göremez ve değiştiremez.

Saygılar...
 
Üst