Sayfa Gİzleme

[ANTALYA 01]

Merhabalar

Aşağıdaki Kodu Çalışma Kitabının ThisWorkbook Kısmına Eklediğimde Sayfa 1 ‘i Exel çalışması açılıdğında Gizliyor ve Menülerden BİÇİM Sayfa Göster Tıklandığında Sayfayı Göstermiyor Fakat Ben Bu kodun geliştirilerek Sayfa 1 Sayfa 2 Sayfa 3 Sayfa 4 vb..Gibi Sayfalarıda Gizlemesini istiyorum.Çünkü Bu kod Sadece Bir sayfa gizliyor



Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Sheets("Sayfa 1").Visible = True
For a = 2 To Sheets.Count
Sheets(a).Visible = xlVeryHidden
Next
ActiveWorkbook.Save
End Sub
Private Sub Workbook_Open()
For a = 2 To Sheets.Count
Sheets(a).Visible = True
Next
Sheets("Sayfa 1").Visible = xlVeryHidden
End Sub

 

[Ayhan Ercan]

Merhaba Sn ANTALYA 01

Sözkonusu kodda Sayfa1'i gizleyen kod:

Sheets("[COLOR=blue][B]Sayfa1[/B][/COLOR]").Visible = xlVeryHidden

dir.

Bu kodu, diğer gizlenmesini istediğiniz her sayfa için uygulayabilirsiniz..

 

[ANTALYA 01]

M

Merhaba

O Satırın Olduğunu biliyorum fakat sadece Sayfa 1 i gizliyor ben o ilgili satırda sayfa 2 sayfa 3 sayfa 4 nasıl yazacağım problem orda

Örnek:
Sheets("Sayfa 1").Visible = True
Alt satıra
Sheets("Sayfa 2").Visible = True Yapıyorum olmuyor
Bu ilgili satırdaki koda nasıl ekleme yapmalıyım
Şöylede yapıyorum olmuyor
Sheets("Sayfa 1").("Sayfa 2").Visible = True

 

[Ayhan Ercan]

Merhaba Sn ANTALYA 01

Sizin ilk mesajda vermiş olduğunuz kodları inceleyelim..

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Sheets("Sayfa 1").Visible = True
For a = 2 To Sheets.Count
Sheets(a).Visible = xlVeryHidden
Next
ActiveWorkbook.Save
End Sub

Bu kodda;
Çalışma kitabını kapatırken (Private Sub Workbook_BeforeClose) meydana gelen olaylardır ve

Sheets("Sayfa 1").Visible = True
Satırında Sayfa 1'i görünür yapıp hemen bir sonraki Döngü komutta da

For a = 2 To Sheets.Count
Sheets(a).Visible = xlVeryHidden
Next

diğer Sayfaların gizlenmesini sağlıyorsunuz.

Dolayısıyla, siz
Sheets("Sayfa 1").Visible = True
Satırından sonra Kaçtane Sayfayı gösterir yaparsanız yapın, Sonraki Döngü Komutunda Sayfa 2 den sonraki tüm Sayfaların gizlenmesini sağlıyorsunuz

İkinci Kodda da benzer durum sözkonusu.

Private Sub Workbook_Open()
For a = 2 To Sheets.Count
Sheets(a).Visible = True
Next
Sheets("Sayfa 1").Visible = xlVeryHidden
End Sub

Burda da Çalışma Kitabının açılışına (Private Sub Workbook_Open)Sayfa2 den sonraki Sayfaları Döngü Komutu ile görünür olması sağlanmış, sonraki satırda da Sayfa 1'in gizlenmesi sağlanmış.


Dikkat edilecek bir konu da,

Döngü Komutlarını kullanmadan bu kodları kullansak ise yine de bir işe yaramayacaktır.

Çünkü, Çalışma kitabının kapanma Olayına (Private Sub Workbook_BeforeClose) sayfaları gösterme kodunun, Açılış Olayına da(Private Sub Workbook_Open) sayfaların gizlenme kodunun yazılması, sizin bu sayfaları hiç bir zaman göremeyeceğinize sebep olacaktır.

 

[rekkezum]

Merhaba Sn ANTALYA 01

Sizin ilk mesajda vermiş olduğunuz kodları inceleyelim..

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Sheets("Sayfa 1").Visible = True
For a = 2 To Sheets.Count
Sheets(a).Visible = xlVeryHidden
Next
ActiveWorkbook.Save
End Sub

Bu kodda;
Çalışma kitabını kapatırken (Private Sub Workbook_BeforeClose) meydana gelen olaylardır ve

Sheets("Sayfa 1").Visible = True
Satırında Sayfa 1'i görünür yapıp hemen bir sonraki Döngü komutta da

For a = 2 To Sheets.Count
Sheets(a).Visible = xlVeryHidden
Next

diğer Sayfaların gizlenmesini sağlıyorsunuz.

Dolayısıyla, siz
Sheets("Sayfa 1").Visible = True
Satırından sonra Kaçtane Sayfayı gösterir yaparsanız yapın, Sonraki Döngü Komutunda Sayfa 2 den sonraki tüm Sayfaların gizlenmesini sağlıyorsunuz

İkinci Kodda da benzer durum sözkonusu.

Private Sub Workbook_Open()
For a = 2 To Sheets.Count
Sheets(a).Visible = True
Next
Sheets("Sayfa 1").Visible = xlVeryHidden
End Sub

Burda da Çalışma Kitabının açılışına (Private Sub Workbook_Open)Sayfa2 den sonraki Sayfaları Döngü Komutu ile görünür olması sağlanmış, sonraki satırda da Sayfa 1'in gizlenmesi sağlanmış.


Dikkat edilecek bir konu da,

Döngü Komutlarını kullanmadan bu kodları kullansak ise yine de bir işe yaramayacaktır.

Çünkü, Çalışma kitabının kapanma Olayına (Private Sub Workbook_BeforeClose) sayfaları gösterme kodunun, Açılış Olayına da(Private Sub Workbook_Open) sayfaların gizlenme kodunun yazılması, sizin bu sayfaları hiç bir zaman göremeyeceğinize sebep olacaktır.

Üstadım benım de bu konu ıle ılgılı bır sorum olacak Excel ı actım sadece sheet1 gorunsun ıstıyorum sheet1 e ekleyecegım dugmeler yardımı ıle dıger sheet lere ulasabılım faka dıger sheet lere ekleyecegım dugmeye bastıgımda yıne sheet1 ı gormek dıger sheet ı otomatık gızlemek ıstıyorum. mumkunmu ?

 

[ANTALYA 01]

G

Merhaba

Bu güzel açıklamanız için teşekkür ederim.Bu istediğimi başka yapmanın yolu var mı ?10 Sayfa var diyelim Exel çalışma sayfası açıldı 5 sayfa Gözüksün 5.Sayfadan Sonra Gözükmesini istediğim sayfalar BİÇİM Sayfa Gösterden Göster Pasif olsun Şİfre girince Aktif Olsun.Kısaca Şifresiz Biçim Sayfa Göster Çalışmasın

 

[rekkezum]

Merhaba

Bu güzel açıklamanız için teşekkür ederim.Bu istediğimi başka yapmanın yolu var mı ?10 Sayfa var diyelim Exel çalışma sayfası açıldı 5 sayfa Gözüksün 5.Sayfadan Sonra Gözükmesini istediğim sayfalar BİÇİM Sayfa Gösterden Göster Pasif olsun Şİfre girince Aktif Olsun.Kısaca Şifresiz Biçim Sayfa Göster Çalışmasın

ektekı dosyayı ınceleyınız umarım ıstedıgınız gıbı olmustur...bu arada alıntıdır...

 

[Ayhan Ercan]

Üstadım benım de bu konu ıle ılgılı bır sorum olacak Excel ı actım sadece sheet1 gorunsun ıstıyorum sheet1 e ekleyecegım dugmeler yardımı ıle dıger sheet lere ulasabılım faka dıger sheet lere ekleyecegım dugmeye bastıgımda yıne sheet1 ı gormek dıger sheet ı otomatık gızlemek ıstıyorum. mumkunmu ?

Merhaba Sn rekkezum,

En son mesajınızdaki sayfagizlegöster.xls ek dosya işinizi görmüyormu?