• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

korunan sayfalarda makronun çalışmaması hk.

Katılım
1 Nisan 2007
Mesajlar
52
Beğeniler
0
Excel Vers. ve Dili
2016 türkçe
#1
Merhabalar ;

Dosya her açıldığında, özel sıralama yapılmaktadır. Fakat herhangi bir sütunu gizleyince ya da sayfayı korumak için şifre kullanınca bu makro çalışmamaktadır. Konunun uzmanı değilim, bu dosyayı da sizlerin yardımıyla hazırladım. O yüzden hazır bir çözüm konusunda destek verebilirseniz çok sevinirim.

https://www.dosyaupload.com/abkv

Saygılarımla
 

dalgalikur

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2006
Mesajlar
1,718
Beğeniler
118
Excel Vers. ve Dili
2007-2013
#2
Merhaba.
Excel sayfalarını korumaya alınca kodlarda hata vermesi normaldir.
Hatayı gidermek için kodlar çalışmadan önce korumanın kaldırılması gerekir, kod sonunda yeniden koruma yapılabişlir.

Dosyanızda ki kodları silin aşağıdaki kodları kopyalayın. Şifre yazan yerlere kendi şifrenizi yazın.
Kod:
Private Sub Workbook_Open()
    With Worksheets("Stok")
        .Unprotect "şifre"
        .Select
        If .FilterMode Then .ShowAllData
        With .ListObjects("Tablo1").Sort.SortFields
            .Clear
            .Add Key:=Range("Tablo1[Marka]"), Order:=xlAscending
            .Add Key:=Range("Tablo1[Kategori]"), Order:=xlAscending
            .Add Key:=Range("Tablo1[Alt Kategori]"), Order:=xlAscending
            .Add Key:=Range("Tablo1[Alt Kategori 2]"), Order:=xlAscending
            .Add Key:=Range("Tablo1[Stok]"), Order:=xlDescending
        End With
        With .ListObjects("Tablo1").Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        .ListObjects("Tablo1").Range.AutoFilter Field:=9, Criteria1:=">0", Operator:=xlAnd
        .Protect "şifre"
    End With
End Sub
 
Katılım
1 Nisan 2007
Mesajlar
52
Beğeniler
0
Excel Vers. ve Dili
2016 türkçe
#3
Yardımınız için teşekkür ederim, çözüm işe yarıyor. Peki çalışma kitabını da aynı şekilde koruma altına almak istesem?
 

dalgalikur

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2006
Mesajlar
1,718
Beğeniler
118
Excel Vers. ve Dili
2007-2013
#6
Aşağıdaki gibi olabilir.
Kod:
Private Sub Workbook_Open()
    ThisWorkbook.Unprotect "şifre"
    With Worksheets("Stok")
        .Unprotect "şifre"
        .Select
        If .FilterMode Then .ShowAllData
        With .ListObjects("Tablo1").Sort.SortFields
            .Clear
            .Add Key:=Range("Tablo1[Marka]"), Order:=xlAscending
            .Add Key:=Range("Tablo1[Kategori]"), Order:=xlAscending
            .Add Key:=Range("Tablo1[Alt Kategori]"), Order:=xlAscending
            .Add Key:=Range("Tablo1[Alt Kategori 2]"), Order:=xlAscending
            .Add Key:=Range("Tablo1[Stok]"), Order:=xlDescending
        End With
        With .ListObjects("Tablo1").Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        .ListObjects("Tablo1").Range.AutoFilter Field:=9, Criteria1:=">0", Operator:=xlAnd
        .Protect "şifre"
    End With
    ThisWorkbook.Protect "şifre"
End Sub
 
Üst