• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Soru İki hücre aralığına değer girilmesi engellemek.

Katılım
2 Aralık 2013
Mesajlar
401
Excel Vers. ve Dili
Microsoft Office Standard 2013-Türkçe
Merhaba,

Arkadaşlar Excel dosyasında iki hücre aralığına değer girilmesini formül veya makro ile nasıl engellerim. Örnek D4:G43 aralığı.
 
Merhaba.

Sayfanın kod bölümüne aşağıdaki kodu yapıştırın.

Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("D4:G43")) Is Nothing Then Exit Sub
Cells(Target.Row, "C").Select
MsgBox "D4 ile G43 arasında işlem yapamazsınız.", vbInformation, "UYARI"
End Sub
 
Merhaba.

Sayfanın kod bölümüne aşağıdaki kodu yapıştırın.

Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("D4:G43")) Is Nothing Then Exit Sub
Cells(Target.Row, "C").Select
MsgBox "D4 ile G43 arasında işlem yapamazsınız.", vbInformation, "UYARI"
End Sub

Sayın @ASLAN7410,
Çok teşekkür ederim sorunsuz çalışıyor. Ancak bu uyarı mesajı geliyor.
226928
 
Dosyanızın sol üst köşesindeki Dosya menüsünden Seçenekler/Güven Merkezi/Güven Merkezi Ayarları/Gizlilik Seçenekleri menüsünden Kaydederken dosya özelliklerinden kişisel bilgileri kaldır yazan yerin başındaki çentik işaretini kaldırın.

Bu çentik bu sorunu veriyor galiba, bir deneyin.
 
Dosyanızın sol üst köşesindeki Dosya menüsünden Seçenekler/Güven Merkezi/Güven Merkezi Ayarları/Gizlilik Seçenekleri menüsünden Kaydederken dosya özelliklerinden kişisel bilgileri kaldır yazan yerin başındaki çentik işaretini kaldırın.

Bu çentik bu sorunu veriyor galiba, bir deneyin.
Sorun kalktı teşekkür ederim. Ancak bunu kaldırmak, güvenlik sorununa veya dosyanın düzgün çalışmamasına neden olur mu?.
 
Güvenlik açısından tam olarak bilemiyorum, Uzman arkadaşlar daha iyi bilir.

Sayfada kod olunca bunun gibi sorun oluşuyor galiba, bu çentiği kaldırıncada bu sorun ortadan kalkıyor.
 
Geri
Üst