xlSheetVeryHidden

[serhan]

Dosyayı kapatırken belgemdeki bütün çalışma sayfalarını yada herhangi birini makro ile nasıl "xlSheetVeryHidden" yapabilirim.

İyi çalışmalar. Paylaşmak dileğiyle...

 

[Tarkan VURAL]

Çıkışta tüm sayfaları gizle

Public Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets.Add Before:=Sheets(1) 'görünür en az bir sayfa olması gerektiğinden boş bir sayfa yaratılıyor.
Dim i As Integer
For i = 2 To Worksheets.Count
Sheets(i).Visible = False 'tüm çalışma sayfaları gizleniyor
Next i
ActiveWorkbook.Save
End Sub

 

[serhan]

xlSheetHidden --> xlSheetVeryHidden

Sayın Tarkan VURAL

Zaman ayırıp cevap için teşşekkür ederim. Bu forumda her gün yeni birşeyler öğrenmekten çok keyif alıyorum.

Yazdığınız kod dosyamdaki çalışma sayfalarını (xlSheetHidden) gizledi. Ama benim asıl yapmak istediğim "Çalışma sayfalarının biçim - sayfa - göster komutu ile görüntülenememesidir." Yani xlSheetVeryHidden olması...

Kısaca xlSheetHidden değil xlSheetVeryHidden olması.

Zaman ayıran ve ayıracak olan bütün arkadaşlara şimdiden teşekkür ederim.

 

[Seyit Tiken]

Bu kodu bir deneyiniz.

Sub auto_close()
ThisWorkbook.Sheets("Sayfa2").Visible = xlSheetVeryHidden
End Sub

 

[serhan]

Bu kodu bir deneyiniz.

Sub auto_close()
ThisWorkbook.Sheets("Sayfa2").Visible = xlSheetVeryHidden
End Sub

İstediğim işlemi tam anlamıyla yaptı... Şimdi Tarkan VURAL Bey'in yazdığı makro ile birleştirerek kullanabilirim.

Teşekkür ederim. Paylaşmak ve paylaşabilmek dileğiyle...

 

[serhan]

Son nokta...

Public Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets.Add Before:=Sheets(1) 'görünür en az bir sayfa olması gerektiğinden boş bir sayfa yaratılıyor.
Dim i As Integer
For i = 2 To Worksheets.Count
ThisWorkbook.Sheets(i).Visible = xlSheetVeryHidden
Next i
ActiveWorkbook.Save
End Sub

ile dosyayı kapatırken tüm çalışma dosyalarını gerçek gizleme (xlSheetVeryHidden) yaptı.

Daha kolay bir şekilde gerçek gizli çalışma sayfalarını açmak içinde;

Sub Gercek_Gizlileri_Ac()
Dim i As Integer
For i = 2 To Worksheets.Count
ThisWorkbook.Sheets(i).Visible = xlSheetVisible
Next i
End Sub

Zaman ayıran bütün arkadaşlara teşekkür ederim.

 

[kneehot]

selamlar arkadaslar asagıda vermıs oldugunuz kodu office2010 a eklenti yapınca calısmıyor. nedenı ile ılgılı yardımcı olursanız cok sevınırım.yardımlara tesekkurler.

Sub Gercek_Gizlileri_Ac()
Dim i As Integer
For i = 2 To Worksheets.Count
ThisWorkbook.Sheets(i).Visible = xlSheetVisible
Next i
End Sub

 

[kneehot]

selamlar arkadaslar asagıda vermıs oldugunuz kodu office2010 a eklenti yapınca calısmıyor. nedenı ile ılgılı yardımcı olursanız cok sevınırım.yardımlara tesekkurler.

Sub Gercek_Gizlileri_Ac()
Dim i As Integer
For i = 2 To Worksheets.Count
ThisWorkbook.Sheets(i).Visible = xlSheetVisible
Next i
End Sub

arkadaslar bu soruyu yanıtlayacak yokmudur. eger olmuyorsa onun bılgısını verırsenız sevınırım.