Açılışta Sayfalar Gizli değilse gizlesin

[bulentkars]

Arkadaşlar Merhaba

Bir sayfada 1 den fazla sayfam var bunlar sürekli 1.sayfa hariç yani ("özet") sayfası diğerlerini gizliyorum benim burda istediğim çalışma kitabı her açıldığında sayfaları kontrol etsin eğer gizli değilse özet sayfası hariç tüm sayfaları gizlesin.Yardımlarınız için şimdiden teşekkür ederim.

 

[fedeal]

Sub Auto_open()
Sheets("MASRAF").Visible = False
Sheets("DATA").Visible = False
End Sub
sayfa isimlerini degiştirip ilave edin iyi çalışmalar.

 

[bulentkars]

Merhaba

Sayfa isimlerini yazmadan aşağıdaki makroya ilave edebilirmiyiz acaba çünü sayfa eklenebilir her eklendiğinde Vba ya girp sayfa ismi yazmak gerekecek..


For i = 1 To Worksheets.Count - 1
If Sheets(i).Name <> "Özet" Then
Sheets(i).Visible = xlSheetVeryHidden
End If
Next i

 

[harziyan]

Private Sub Workbook_Open()
For Each Worksheet In ActiveWorkbook.Worksheets
If Worksheet.Name <> "Özet" Then
Worksheet.Visible = False
End If
Next
End Sub

ben bunu kullanıyorum

 

[fedeal]

Sub Auto_open()
For i = 1 To Worksheets.Count - 1
If Sheets(i).Name <> "Özet" Then
Sheets(i).Visible = False
End If
Next i
End Sub

bu oluyor fakat özet sayfası sayfaların sonunda (sağında) olması gerekiyor çünkü özet sayfasına geldimi makro sonlanıyor.

 

[bulentkars]

Benim kullandığım makroya göre yapabilirmiyiz.Çünkü Biçim Menüsünde Sayfa gösterin Aktif olmasını istemiyorum
For i = 1 To Worksheets.Count - 1
If Sheets(i).Name <> "Özet" Then
Sheets(i).Visible = xlSheetVeryHidden
End If
Next i

 

[bulentkars]

Sayın Fedaal

makro oldu fakat Biçim>Sayfa>Göster aktif oluyor benim göndediğim karoda pasif ona göre uyarlayabilirmiyiz.birde ThisWorkbook a koyacam makroyu

 

[fedeal]

sayın harziyanın makrosuyla birleştirdikmi oluyor.
Private Sub Workbook_Open()
For Each Worksheet In ActiveWorkbook.Worksheets
If Worksheet.Name <> "Özet" Then
Worksheet.Visible = xlSheetVeryHidden
End If
Next
End Sub

 

[bulentkars]

hata veriyor

 

[fedeal]

ekteki çalışmada çalışıyor

 

[fedeal]

hata veriyor

en az 1 sayfa açık kalmalı "Özet" isimli sayfa varmı çalışmada, birde sayfayı açarken gizlemek yerine (makroları etkinleştirilmedimi işe yaramaz.) kapanırken gizlemek daha mantıklı olur diye düşünüyorum.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each Worksheet In ActiveWorkbook.Worksheets
If Worksheet.Name <> "Özet" Then
Worksheet.Visible = xlSheetVeryHidden
End If
Next
End Sub

 

[bulentkars]

Çok teşekkür ederim elinize sağlık

 

[fedeal]

Çok teşekkür ederim elinize sağlık

ricaederim iyi calışmalar.