Geç açılan excel dosyası sorunu

[dellerlim]

Merhaba.
Ekte paylaştığım makro içeren Excel dosyası (henüzveri girişi yapılmamış bu haliyle) açılırken ve kapanırken fazlasıyla zorlanıyor. Dosya açıkken veya işlemler yapılırken bir zorlanma yok gibi ama belki de hissedilmiyordur. Dosyayı inceleyip mantığını anlamazsanız anlamadığınız kısmını anlatayım eğer daha hızlı çalıştıracak bir yöntem varsa onu uygulayalım.

 

[dellerlim]

Dosyada Kullanıcı girişi formu olup, kullanıcıların girebileceği sayfalar kısıtlanmıştır. Veri girişi yapılacak sayfalarda formüllerin olduğu sütunlar veri girişine kapatılmıştır. Bu haliyle işe yarar yanları vardır, isteyenler kullanabilir. Tek sorun dosyanın açılıp-kapanması biraz uzuyor. Bu soruna çözüm arıyorum.

 

[askm]

Açılış kodlarınıza zaman eklemesi yaptım. 1 saniye bile sürmüyor. İçerisinde veri eklediğiniz için dosya boyutu büyüdükçe açılma yavaşlayacaktır.

Option Explicit
Private Sub Workbook_Open()
Dim saniye, Sure As Date
saniye = Time
Application.ScreenUpdating = False
ThisWorkbook.Worksheets("VERİMLİLİK").Visible = xlSheetVeryHidden
ThisWorkbook.Worksheets("HAKEDİŞ").Visible = xlSheetVeryHidden
ThisWorkbook.Worksheets("sifre").Visible = xlSheetVeryHidden
Excel.Application.ScreenUpdating = True
ThisWorkbook.Worksheets("GİDEN İRSALİYE").Activate
Sure = Format(Time - saniye, "hh:mm:ss")
MsgBox Sure
End Sub

 

[dellerlim]

Henüz veri eklenmedi ama yine de geç açılıp kapanıyor. Acaba kodlarla ilgili bir sıkıntı mı var diye düşünüyorum, for-next döngüleri de çok uzun değil gerisini de ben tam çözemedim.

 

[askm]

Açılış kodlarınızda döngü yok. Sadece bazı sayfaları gizlemişsiniz.