bazı alanlara seçme engeli

[ertuer]

Degerli arkadaşlar aşağıdaki makroyu kullanmaktayım ancak B5:H20 aralığı na ilaveten k5:n10 ve p5:t10 aralıklarınıda makroya eklemem gerekiyor.Ayrıca şifre ekleyebilirmiyiz makroyu çalıştırmak için.Yardımlarınızı rica ederim. selamlar

Sub LimiteDefilement()
Sayfa1.ScrollArea = ("B5:H20")
End Sub

Sub RetablitDefilement()
Sayfa1.ScrollArea = ""
End Sub

 

[isteobenim]

Merhaba,

Aşağıdaki linki incelermisiniz,

http://www.excel.web.tr/f48/makro-le-sadece-istenen-hucrelerin-korumasyny-kaldyrmak-ve-t52931.html

 

[ertuer]

Sub LimiteDefilement()
Sayfa1.ScrollArea = "B5:H20"
End Sub

Sub RetablitDefilement()
Sayfa1.ScrollArea = ""
End Sub

yukardaki "B5:H20" gibi P5:T15 alanınıda ilave etmek istiyorum bu makroda ...olabilir mi? selamlar

(Başka makro değil buna ilave alan eklemek istiyorum..istediğim net olarak bu..)

 

[Murat OSMA]

Sayfanın kod kısmına yazıp deneyin;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("B5:H20,K5:N10,P5:T10")) Is Nothing Then
       Range("B5").Select
    End If
End Sub

 

[Levent Menteşoğlu]

Scrollarea olarak birbirinden bağımsız alanlar tanımlanamaz. Bu durumda sayfaya şifre koyup sadece ilgili alanları işleme açık bırakabilirsiniz. Yada Murat beyin önerisini uygulayabilirsiniz.

 

[ertuer]

Sayın Murat bey ,kusura bakmayın ..bu kadar beceriksizim..göderdiğiniz makroyu kaydedemedim Bir excel sayfasına kaydedip dönderme imkanınız varsa çok memnun olurum.Yardımlarınızı beklerim.Selamlar

söz konu kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B5:H20,K5:N10,P5:T10")) Is Nothing Then
Range("B5").Select
End If
End Sub

 

[ExcelF1]

İlgili sayfanın ismi üzerine fare ile sağ tuş yapın. "Kod Görüntüle" 'yi seçin ve açılan VB alanına kodu yapıştırın.

 

[Murat OSMA]

Belirlediğiniz alanları çerveçe içine alın veya renklendirip deneyin.

Sn. ExcelF1, mesajınızı sonradan gördüm.

Bilginize..

 

[ertuer]

Çok teşekkür ederim .Sağ olun

 

[ertuer]

Sayın Murat bey,
Evet,gönderdiğiniz dosyaya mutlaka kod uygulanmış ve sorun çözülmüştür.
Fakat ben o dosyayı indiremedim.Altın üyelik için başvurumu tamamlamadım henüz..
Bu günlerde sonuçlandırırsam dosyanızı o zaman göreceğim.
Bu yüzden diğer formda hem makro kaydetme bilgisi hemde sizin kodunuzun uygulamasını bir an önce görmek istediğim için yazdım.Bu konuda haklısınız,özür dilerim. Selamlar

 

[Murat OSMA]

Estağfurullah Ertuğrul Bey,

Dosyayı buradan indirebilirsiniz;
http://www.dosya.tc/server23/spghwS/Bellih_crelerdei_lem.rar.html