sekmeleri ve sütunları otomatik gizleme kısayolu

[ismail-34]

Excel Web ailesine Selamlar Saygılar.

Benim çok sekmeli bir dosyam var.işim bittiğinde bunu başka yere yolluyorum. 2 sekme haricinde diğer tüm sekmeleri gizlemek istiyorum.
Sadece Açık kalacak sekmeler Türkçe Çeki List ve ihracat formu sekmeleri.
Ayrıyeten Türkçe Çeki List Sekmesinde F - AR sütunları dahil bu aralıktaki tüm Sütunlarıda gizlemek istiyorum.

hatta gizlenen sekmeler şifreli halde gizlenebiliyorsa ne ala

Bunları Alt - F12 tuşuyla veya örnekteki gibi bir butonu ile yapabilsin istiyorum.

Böyle bir şey mümkünse tüm çalışmalarımı gizleyip sadece ilgili sayfaları 3. şahıslarla daha hizlı paylaşabileceğim.

Rapor gizliliği açısından güzel birşey olur diye düşünüyorum.

Örnek Dosya Ektedir.

İyi Çalışmalar Dilerim.

 

[dEdE]

Merhaba,
Sayfaları gizlemek yerine sadece 3. şahıslarla paylaşacağınız sayfalardan oluşan yeni bir çalışma kitabı oluştursanız daha iyi olmaz mı? Böylece daha küçük boyutlu bir dosya paylaşmış olacaksınız. Ayrıca rapor gizliliği diye bir kaygınız da olmazdı.
Ben gizleyerek göndermek istiyorum derseniz sorun değil, o da yapılır.

 

[ismail-34]

çalışma kitabında her sekme birbiriyle bağlantılı hocam. o yüzden 3 . şahıslarla paylaşacağım sayfaları ayrı bir sayfaya kopyalayıp paylaşmak vaktimi alıyor.normalde bu 2 sayfaharici diğer sekmeleri ve sütunları gizleyip paylaşıyorum.bu sebeple istedim.

 

[dEdE]

Merhaba,
Aşağıdaki kodu Örnek dosyanızda(sütunları ve sekmeleri gizleme) bir modüle yapıştırarak dener misiniz?

Sub Gizle()
Dim ws As Worksheet
    With Sheets("Türkçe Çeki List")
        .Columns("F:AR").EntireColumn.Hidden = True
        .Cells.Locked = False
        .Columns("F:AR").Locked = True
    End With
    For i = 1 To Sheets.Count - 2
        Sheets("Sayfa" & i).Visible = False
    Next i
        Sheets("ihracat formu").Cells.Locked = False
    For Each ws In Worksheets
        ws.Protect Password:="x"
    Next ws
End Sub

 

[ismail-34]

hocam süper çalışıyor valla.tek dosya sunum yapmaya çalışanlar için harika bir çalışma olmuş sağolun varolun.son bir şey sorucam ilerde düzeltme işlemi yapmak istediğimde aynı işlemleri geri almak içinde bir kod yapılabilinirmi.şifreyi kendi otomatik girip herşey (sütunlar ve sekmeler) açılıp saçılsın yani.bazen geri dönüp değişiklik yapmam gerekiyorda. bu halide yeterli tabiki. sağolun varolun dede hocam hastanızız

 

[dEdE]

Bu olur mu?

Sub Göster()
    For Each ws In Worksheets
        ws.Unprotect Password:="x"
    Next ws
For i = 1 To Sheets.Count - 2
    Sheets("Sayfa" & i).Visible = True
Next
    Sheets("Türkçe Çeki List").Columns("F:AR").EntireColumn.Hidden = False
End Sub

 

[ismail-34]

oldu bile hocam.çok teşekkür ederim.şifreli bu güzel sistemden cia,fbi,kgb,mosat bile faydalanır artık
excel web ailesine sevgiler saygılar..

 

[ismail-34]

Bu olur mu?

Sub Göster()
    For Each ws In Worksheets
        ws.Unprotect Password:="x"
    Next ws
For i = 1 To Sheets.Count - 2
    Sheets("Sayfa" & i).Visible = True
Next
    Sheets("Türkçe Çeki List").Columns("F:AR").EntireColumn.Hidden = False
End Sub

değerli hocam bir şey daha sorcam misal benim gizlenecek sekmeler in adı sayfa 1 - 2 vs. örnekte. ama pratikte sekme isimleri çok farklı.dolayısıyla adı sayfa olan sekmeler haricindekileri gizlemiyor. koddaki "Sayfa" yüzünden bu sorun görünüyor.bunu sekme isimlerini baz almadan yapsak olurmu acaba ? yani belirtilen sekmeler haricindekilerin hepsini gizle gibilerinden ? aynı durum gösterme kodu içinde geçerli.adı sayfa olmayanları göstermiyor. bunuda halledersek mit bile memnun kalcak

 

[dEdE]

Merhaba,
Aşağıdaki kodları dener misiniz?

Sub Gizle()
Dim ws As Worksheet
    With Sheets("Türkçe Çeki List")
        .Columns("F:AR").EntireColumn.Hidden = True
        .Cells.Locked = False
        .Columns("F:AR").Locked = True
    End With
    For i = 1 To Sheets.Count
    If Sheets(i).Name = "Türkçe Çeki List" Or Sheets(i).Name = "ihracat formu" Then GoTo 1
        Sheets(i).Visible = False
1
    Next i
        Sheets("ihracat formu").Cells.Locked = False
    For Each ws In Worksheets
        ws.Protect Password:="x"
    Next ws
End Sub

Sub Göster()
    For Each ws In Worksheets
        ws.Unprotect Password:="x"
        ws.Visible = True
    Next ws
    Sheets("Türkçe Çeki List").Columns("F:AR").EntireColumn.Hidden = False
End Sub

 

[ismail-34]

hocam gizle kodu bütün hepsi açıkken hatasız çalışıyor..gösterde ise hiçbir sıkıntı yok ama benim 9 sekmeden genelde 3 veya 4 tanesi genelde açık oluyor. işte o zaman gizle kodu hata veriyor.. tüm sekmeler açık olmadığı için....ama sorun yok, göster simgesine tıklayıp sonra gizle simgesine tıklayınca tüm sorun ortadan kalkıyor.sağolun varolun dede hocam .. ağır hastanızız

 

[dEdE]

Merhaba,
Gizle procedur'uun son iki satırını aşağıdaki şekilde değiştirip dener misiniz? Göster çağrısını ekleyelim

  .......
   Next ws
    Göster
End Sub

 

[ismail-34]

ekleyince göster işlevinin aynısını yapıyor hocam.belkide başa koymalı ? .nitekim eskisinde gösterden sonra gizle ye tıklayınca gizle güzel çalışıyordu.son gelinen nokta ektedir.

 

[dEdE]

Haklısınız, dikkatsizlik benimkisi.
Göster çağrısını başa ekleyelim

 

[ismail-34]

Haklısınız, dikkatsizlik benimkisi.
Göster çağrısını başa ekleyelim

koyuyorum başlara yine olmuyor valla cahillik benimkiside

 

[dEdE]

Dim ws As Worksheet Bu satırın altına ekleyelim.

 

[ismail-34]

hocam bu şekilde koydum. hala aynı hata veriyor !!


Sub Gizle()
Dim ws As Worksheet
Next ws
Göster
With Sheets("Türkçe Çeki List")
.Columns("F:AR").EntireColumn.Hidden = True
.Cells.Locked = False
.Columns("F:AR").Locked = True
End With
For i = 1 To Sheets.Count
If Sheets(i).Name = "Türkçe Çeki List" Or Sheets(i).Name = "ihracat formu" Then GoTo 1
Sheets(i).Visible = False
1
Next i
Sheets("ihracat formu").Cells.Locked = False
For Each ws In Worksheets
ws.Protect Password:="x"
Next ws
End Sub

 

[dEdE]

Sub Gizle()
Dim ws As Worksheet
Göster
    With Sheets("Türkçe Çeki List")
        .Columns("F:AR").EntireColumn.Hidden = True
        .Cells.Locked = False
        .Columns("F:AR").Locked = True
    End With
    For i = 1 To Sheets.Count
    If Sheets(i).Name = "Türkçe Çeki List" Or Sheets(i).Name = "ihracat formu" Then GoTo 1
        Sheets(i).Visible = False
1
    Next i
        Sheets("ihracat formu").Cells.Locked = False
    For Each ws In Worksheets
        ws.Protect Password:="x"
    Next ws
End Sub

 

[ismail-34]

dede hocam kusursuz sanat eseri olmuş.raporlamada tertip, düzen,gizlilik manasında güzel bir eser oldu.Teşekkürleri bir borç bilirim.

ilgilenenler için projenin bitmiş hali ektedir.

Excel web ailesine saygılar sevgiler.