Gizlenen sayfanın gösterilmemesi

[s.savas]

Merhaba arkadaşlar.
Ekte sunulan belge çalışırken, yeni bir excel sayfası çalıştırıldığı zaman gizlenmiş olan excel sayfalarını da gösteriyor. Bu durumun engellenmesi gerekiyor.
Ekteki bütçe isimli belge çalıştığı zaman farklı bir excel sayfası açıldığı zaman bütçe isimli çalışmaya ait sayfaların gösterilmemesi için ne yapılması gerekiyor, yardımcı olursanız memnun olurum.

 

[Ömer]

Merhaba,

Deneme yapmadım.

Gizleme kodlarını,

Windows("bütçe.xls").Visible = False

Bu şekilde değiştirerek denermisiniz..

.

 

[s.savas]

Merhaba,

Deneme yapmadım.

Gizleme kodlarını,

Windows("bütçe.xls").Visible = False

Bu şekilde değiştirerek denermisiniz..

.

Ömer hocam ilginize tekrar teşekkür ederim.
Bütün deneme yanılmalarımda çeşitli hata mesajları aldım.
Kullanıcı Adı:aa, Parola:11

 

[Ömer]

Ömer hocam ilginize tekrar teşekkür ederim.
Bütün deneme yanılmalarımda çeşitli hata mesajları aldım.
Kullanıcı Adı:aa, Parola:11

Hatanın nedenini araştırmadım, çünkü dosyanız oldukça detaylı tek tek bakmak gerekir.

Sizin istediğinizi benim verdiğim kod yapıyor olması gerekir. Ekteki dosyayı kaydetip açın açtıktan sonra herhangi bir dosya daha açarak gizle göster seçenekleri ile sizde gözlemleyebilirsiniz.

Buna göre dosyanızı tek tek inceleyip düzenlemeniz gerekir. Aktiv ve pasif olayında açılan diğer dosyayı ilgilendiren farklı kodlarda vardır.

.

 

[s.savas]

Ömer hocam aşağıdaki makrolarda hataya sebep oluyor.

Sub Gizli_Sayfaları_Aç()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
Dim U As Long
    For U = 1 To Worksheets.Count
        If Sheets(U).Name <> "GİRİŞ" Then
        If Sheets(U).Visible = False Then
        Sheets(U).Visible = True
        End If
        End If
    Next
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

Sub Sayfaları_Gizle()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
Dim U As Long
    For U = 1 To Worksheets.Count
        If Sheets(U).Name <> "GİRİŞ" Then
        If Sheets(U).Visible = True Then
        Sheets(U).Visible = False
        End If
        End If
    Next
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

 

[assenucler]

Sayın ssavas;

Merhabalar..

İlk iletideki dosyayı indirdikten sonra açmak istediğimde, resimdeki hata iletisini alıyorum ve dosyadan ancak "Ctrl + Alt + Del" ile çıkabiliyorum.

Windows 7 TR ve Office 2010 TR kullanıyorum.

Sorunun çözümü konusunda, değerli düşünce ve görüşlerinizi almak istiyorum.

Teşekkürler.