Açık Dosyanın Sayfalarının Kapanması

[1Al2Ver]

Merhaba,

Aşağıdaki "ANASAYFA" isimli sayfada kayıtlı olan kod,

Private Sub Worksheet_Activate()
For Each syf In ActiveWorkbook.Worksheets
    If syf.Name <> "ANASAYFA" Then syf.Visible = xlVeryHidden
Next
End Sub

Modül'de ise şöyle bir kod var ;

Sub sayfaları_gizle() 
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "ANASAYFA" Then
Sheets(i).Visible = xlVeryHidden
End If
Next i
End Sub

Yine aynı Modül'de ;

Sub AUTO_OPEN1()
Call sayfaları_gizle
Application.Visible = False
UserForm2.Show 'Kullanıcı Giriş Formu
End Sub

Kendi çalışma kitabındaki, "ANASAYFA" isimli sayfa tıklandığında, açık olan tüm sayfaları kapatıyor (gizliyor),

Ancak şöyle bir sorun yaratıyor,

Bu dosya ile çalışmaya başlarken (açtığımda), daha önceden açık olan bir dosyanın, 1 nci sayfası hariç, diğerlerini kapatıyor (gizliyor),

Sorunu aşmak için ne yapmalıyım,

Teşekkür ederim.

 

[Korhan Ayhan]

ActiveWorkbook ifadesini ThisWorkbook olarak değiştirip deneyiniz.

 

[1Al2Ver]

Sayın Korhan Ayhan merhaba,

Değişiklik yapmama rağmen düzelme olmadı ve aşağıdaki hata mesajı geldi...

Teşekkür ederim.

 

[Korhan Ayhan]

Sizin kullandığınız kod excel uygulamasını gizlediği için diğer dosyayı görme imkanınız ortadan kalkıyor.

Ben sizin kodunuzu şu şekilde denedim. Verdiğiniz kodları boş bir excel dosyasına uyguladım. (Sayfa+Userform)

Sonra hazırladığım dosyayı masaüstüne kayıt ettim ve kapattım. Başka çok sayfalı bir excel dosyası açtım. Sonrasında hazırladığım excel dosyasını açtım. AUTO_OPEN makrosunu elle adım adım çalıştırdım. Eski açık olan dosyaya müdahale etmedi. Yani sizin bahsettiğiniz tepkiyi vermedi. Sadece excel uygulamasını gizlediği için diğer dosyaya erişimim kapanmış oldu.

 

[1Al2Ver]

Sayın Korhan Ayhan merhaba ve iyi sabahlar,

Bu geç saat itibariyle gösterdiğiniz duyarlılık ve açıklamalar için teşekkür ederim,

Bu işlemi yapan ana dosya, açık olan çok sayfalı diğer dosyanın, bir sayfası hariç diğer sayfalarını gizliyor, ancak dosya bir sayfa halinde açık oluyor, yani dosyaya erişimimde sıkıntı yok.

Bu durumu aşmamız için ne yapıla bilir ?

Tekrar teşekkür ederim...

 

[Korhan Ayhan]

Ben nasıl yapı kullandığınızı maalesef anlamadım.

Görsel olarak anlatabilirseniz benim açımdan daha etkili olacaktır.

 

[1Al2Ver]

Sayın Korhan Ayhan merhaba,

Örnek bir dosya hazırlayabilirsem, ekleyip orada da açıklama yazacağım,

Teşekkür ederim.

 

[1Al2Ver]

Merhaba,

Bendeki dosyadan birebir, kısaltılmış olarak (bazı UF ve sayfalar silinerek) örneklenen Ek'li dosya sorunsuz çalışıyor,

Ancak, bendeki dosyada UF2 ,Giriş CommanButton1 kodunda, ( göster.Visible = xlVeryHidden) debug hatası alıyorum.

Modül2' deki kodlarda ve aşağıdaki koddaki Worksheets ifadelerini, ThisWorkbook.Worksheets olarak değiştirsem de sonuç olumsuz oldu.

Taktir edersiniz ki açık olan dosyalar varken, bu dosya çalıştırıldığında, açık olan dosyanın sayfalarını gizlemesi ve kullanıcının farkına varmadan açık olan dosya/dosyaları kayıt etmesi ile sıkıntı oluşuyor,

Umarım bir çözüm elde edebiliriz,

Teşekkür ederim.

Private Sub CommandButton1_Click() 'GİRİŞ
Call şifre_kontrol
For Each goster In Worksheets
        If goster.Name <> "ANASAYFA" Then
           goster.Visible = xlVeryHidden
        End If
Next
End Sub