Korumalı hücrelere sıralama yapmak?

[AS3434]

Selamlar
Aşağıdaki makroyu sıralama işlemi için kullanıyorum. Ancak sayfa koruma yaptığım zaman doğal olarak sıralamayı yapmıyor. Kilitli ve gizli hücreleri seçerek, Diğer anlamda sayfa korumayı bozmadan sıralama işlemini nasıl yapabilirim.


Sub SIRALA()
Range("B6:F300").Select
Selection.Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
MsgBox "BU İŞ BU KADAR ...)", vbInformation
End Sub

Sevgilerle

 

[Levent Menteşoğlu]

Bunun için kodlarınızın başına korumayı açan, sonunada korumayı tekrar koyan satırlar ilave edebilirsiniz. Örneğin koruma şifreniz "1234" olsun;

[vb:1:1cfe789514]Sub SIRALA()
activesheet.unprotect "1234"
Range("B6:F300").Sort Key1:=Range("B6")
MsgBox "BU İŞ BU KADAR ...)", vbInformation
activesheet.protect "1234"
End Sub
[/vb:1:1cfe789514]

 

[AS3434]

sn.leventm
İlginiz için teşekkür ederim.
Verdiğiniz kodları denemiştim ama çalıştıramamıştım (Şifre satırları ile ilgili olanları). Hatayı nerde yaptığımı da bu arada buldum. Sırala makrosunun butonu da kilitli ve gizli kalmış. Ayrıca kodları kısalttığınız içinde teşekkür ederim.
Sevgilerle

 

[gecemavisi]

Sn. Leventm Bey;
İlgi ve yardımınız için teşekkürlerimi sunuyorum. Siz bu işi çözmüşsünüz. Dedim ya bizim Macro bilgisi zayıf. Sizlerin sayesinde inşaallah gelişecek. Tekrar teşekkürler.

 

[gecemavisi]

Şu örneği incelediğinizde arkadaşlar, Ön izleme yapıldığında hata veriyor.
Şunu güzel şekilde düzenleyene çok minnettar kalacağım. Parola "1"
Saygılarımla...

 

[AS3434]

sn. gecemavisi
Sizde makrodan şifrenizi çözmelisiniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Unprotect "1"
ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Interior.ColorIndex = xlNone
ActiveSheet.Protect "1"
End Sub

Sevgilerle

 

[gecemavisi]

ActiveSheet.Unprotect "1"
Module1.sirala
ActiveSheet.Protect "1"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowSorting:= _
True, AllowFiltering:=True
End Sub

bu kodları eklerseniz eğer satır ve sütun düzenleme sıralama vb. gerekli fonksiyonlara izin verilecektir.
Module1.sirala tanımını kendi çalışmanıza göre seçiniz.