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

byfika

Altın Üye
Altın Üye
Katılım
15 Ağustos 2009
Mesajlar
493
Excel Vers. ve Dili
Excel Vers. ve Dili : Ofis 2007 / Tr
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
 

byfika

Altın Üye
Altın Üye
Katılım
15 Ağustos 2009
Mesajlar
493
Excel Vers. ve Dili
Excel Vers. ve Dili : Ofis 2007 / Tr
Merhabalar,
Sayfama uyarladım kodlar çalışmakta.
Bilgi için çok teşekkürler.
Saygılar.
 
Üst