sekmeleri ve sütunları otomatik gizleme kısayolu

Katılım
9 Ekim 2021
Mesajlar
335
Excel Vers. ve Dili
excell 2013
Altın Üyelik Bitiş Tarihi
19-12-2023
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.
 

Ekli dosyalar

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,605
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
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.
 
Katılım
9 Ekim 2021
Mesajlar
335
Excel Vers. ve Dili
excell 2013
Altın Üyelik Bitiş Tarihi
19-12-2023
ç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

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,605
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Merhaba,
Aşağıdaki kodu Örnek dosyanızda(sütunları ve sekmeleri gizleme) bir modüle yapıştırarak dener misiniz?
Kod:
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
 
Katılım
9 Ekim 2021
Mesajlar
335
Excel Vers. ve Dili
excell 2013
Altın Üyelik Bitiş Tarihi
19-12-2023
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 :)
 
Son düzenleme:

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,605
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Bu olur mu?
Kod:
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
 
Katılım
9 Ekim 2021
Mesajlar
335
Excel Vers. ve Dili
excell 2013
Altın Üyelik Bitiş Tarihi
19-12-2023
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..
 
Katılım
9 Ekim 2021
Mesajlar
335
Excel Vers. ve Dili
excell 2013
Altın Üyelik Bitiş Tarihi
19-12-2023
Bu olur mu?
Kod:
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 :)
 
Son düzenleme:

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,605
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Merhaba,
Aşağıdaki kodları dener misiniz?
C++:
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
 
Katılım
9 Ekim 2021
Mesajlar
335
Excel Vers. ve Dili
excell 2013
Altın Üyelik Bitiş Tarihi
19-12-2023
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

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,605
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
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
Kod:
  .......
   Next ws
    Göster
End Sub
 
Katılım
9 Ekim 2021
Mesajlar
335
Excel Vers. ve Dili
excell 2013
Altın Üyelik Bitiş Tarihi
19-12-2023
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.
 

Ekli dosyalar

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,605
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Haklısınız, dikkatsizlik benimkisi. :)
Göster çağrısını başa ekleyelim
 

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,605
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Dim ws As Worksheet Bu satırın altına ekleyelim.
 
Katılım
9 Ekim 2021
Mesajlar
335
Excel Vers. ve Dili
excell 2013
Altın Üyelik Bitiş Tarihi
19-12-2023
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

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,605
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
C++:
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
 
Katılım
9 Ekim 2021
Mesajlar
335
Excel Vers. ve Dili
excell 2013
Altın Üyelik Bitiş Tarihi
19-12-2023
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.
 

Ekli dosyalar

Üst