Application.visible =false olan excelde tek sayfayı çağırıp görme

[byfika]

Merhabalar,
Excelde 15 sayfa var ve 2 si gizli sayfa. Alttaki kodla tüm sayfalar gizlenmekte ve şifre userform1 i gelmekte. Daha sonra ana userform ve ana userformdan seçilen çeşitli userformlarla sayfalara veri girişi yapılmakta. Ana userform üzerinde 11 farklı buton mevcut. Bu butonların 4 ü ile sayfa7, sayfa11, sayfa12 ve sayfa14 sayfaları görmek için. Bu butonların kodu da İkinci kod. Fakat bu kodlada sayfa açıldığında gizli sayfalar hariç tüm sayfalar görülmekte.
Yapmak istediğim sadece çağrılan sayfanın görülmesini sağlamak için ikinci kodda nasıl değişiklik yapmam gerekiyor.
Bilgi için teşekkürler.

Exceli Gizleme kodu:
Sub AUTO_OPEN()
Application.Visible = False
UserForm1.Show
End Sub

Sayfa7 yi görmek için kullandığım kod:
Private Sub CommandButton12_Click()
Unload Me
Application.Visible = True
Sheets("Sayfa7").Select
End Sub

 

[muratboz06]

Linkteki çalışma size bir fikir verebilir.

Kitap1.xlsm dosyasını indir - download

Kitap1.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[byfika]

Merhabalar,
Sayfama uyarladım kodlar çalışmakta.
Bilgi için çok teşekkürler.
Saygılar.