Excel acılırken sheetleri nasıl gizlerim

[dfom_2004]

Hesap.xls dosyasını her actıgımda makrom her sheetteki gizlenmiş rowları tekrar görünebilir yapıyor ancak 11 sayfa üstünde bu işlem yapılırken çirkin bir görüntü oluşuyor.

Bir progressbar koymak istiyorum dosya ilk acıldıgında sadece o form daki progressbar güzüksün arkada sheetler üstündeki işlemler yapılsın
Sheetlerin visiblenı false yapınca makro hata veriyor
Bu sorunu nasıl çözebilirim yardımlarınız için teşekkürler
dosyam ektedir

 

[Korhan Ayhan]

Selamlar,

Bu göze hoş olmayan durumu kodlarınıza aşağıdaki eklemeyi yaparak düzeltebilirsiniz.

Private Sub Workbook_Open()
Application.ScreenUpdating = False
    For a = 1 To Sheets.Count - 2
    Sheets(a).Select
    ActiveSheet.Unprotect Password:="onurvl"
    
        
        Rows("1:194").EntireRow.Hidden = False
    ActiveSheet.Protect Password:="onurvl"
    Next a
    
    Sheets(1).Select
Application.ScreenUpdating = True
End Sub

 

[dfom_2004]

cost_control teşekkürler peki sheetleri hiç göstermesem

progress bar koymak istiyorum, progress bar tamamlandıktan sonra sheetler görüntülüyebilirmiyim

 

[Levent Menteşoğlu]

Ekteki dosyayı inceleyin.