Kilitli Sayfada Sıralama yapmak

[ERMAN SAYINALP]

On sütununda veri bulunan, 1., 4., 6. sütun kriterlerine göre sıralama yapılacak KİLİTLİ bir sayfada Makro ile SIRALAMA yaptırmak konusunda değerli yardımlarınızı beklerim.
Saygılarımla.

 

[Ömer BARAN]

Sayfayı koruma işlemini yaparken açılan küçük pencerede, kilitliyken yapılmasına izin verilen işlemler listesi var, "kilitli hücreleri seç", "filtre kullan"....gibi, o listedeki "SIRALA" seçeneğinin solundaki kutucuğu işaretleyip sayfa korumasını buna göre uygularsanız yapabilmeniz lazım.

 

[ERMAN SAYINALP]

İlginize teşekkür ederim ancak sanırım isteğimi anlatamadım, ben "GÖZDEN GEÇİR" Sekmesi "SAYFAYI KORU" İşlevi altındaki Seçeneklerin MAKRO Dilindeki karşılığını arzu etmiştim. Diğer bir ifadeyle aşağıda bazıları var olan seçeneklerin diğerleri nasıl yazılır ?

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True

 

[Ömer BARAN]

Merhaba.
.EnableSelection = xlUnlockedCells, _ Kilitlenmemiş Hücrelerin Seçimi
.EnableSelection = xlNoRestrictions, _ Kilitlenmiş Hücrelerin Seçimi
AllowDeletingColumns:=True/False, _ Sütun Sil
AllowDeletingRows:=True/False, _ Satır Sil
AllowFiltering:=True/False, _ Filtre
AllowFormattingCells:=True/False, _ Hücreleri Biçimlendir
AllowFormattingColumns:=True/False, _ Sütunları Biçimlendir
AllowFormattingRows:=True/False, _ Satırları Biçimlendir
AllowInsertingColumns:=True/False, _ Sütun Ekle
AllowInsertingHyperlinks:=True/False, _ Köprü Ekle
AllowInsertingRows:=True/False, _ Satır Ekle
AllowSorting:=True/False, _ Sıralama
AllowUsingPivotTables:=True/False Özet Tablo
DrawingObjects:=True/False, _ Nesneleri Düzenle
Scenarios:=True/False, _ Senaryoları Düzenle

 

[ERMAN SAYINALP]

Teşekkür

Sevgili Ömer Baran,

Harikasınız, evet budur, sonsuz teşekkürler. Hazır sizi tanımış iken ve yüz bulmuş iken, yine bu mecrada yanıt aradığım bir soruma yardımınız olursa minnettar kalırım.

Konu Başlığı : FATURA SIRA NO TAKİP MAKROSU

Konu Metni : Dilerseniz metnin orijinal halini yada daha detaylandırılmış halini gönderebilirim.

İlgi duyarsanız değerli yardımlarınızı beklemekteyim. Görüşmek üzere...