Korumalı hücrelere sıralama yapmak?

AS3434

Özel Üye
Katılım
13 Ocak 2005
Mesajlar
1,820
Excel Vers. ve Dili
M.Office/Excel 2007 Türkçe
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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

Özel Üye
Katılım
13 Ocak 2005
Mesajlar
1,820
Excel Vers. ve Dili
M.Office/Excel 2007 Türkçe
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
 
Katılım
20 Şubat 2006
Mesajlar
259
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.
 
Katılım
20 Şubat 2006
Mesajlar
259
Ş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

Özel Üye
Katılım
13 Ocak 2005
Mesajlar
1,820
Excel Vers. ve Dili
M.Office/Excel 2007 Türkçe
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
 
Katılım
20 Şubat 2006
Mesajlar
259
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.
 
Üst