Sayfa Sekmelerinden Istedigim Sayfalari Gizlemek

[custersd]

Arkadaslar Sayfa Sekmelerinde Bulunan bircok sayfadan gizlenmesini istedigim 5-6 sayfa var.Bu sayfalar diger sayfalarin olusmasini saglayacak bilgilerin girildigi kisimlar oldugundan bu sayfalari sayfa sekmelerinde gorulmemesini istiyorum.Bunu yapabilmemin yonetemi varmidir.

 

[Kemal Demir]

Merhaba,

Userform ile yapılmıs bir calısma yolluyorum ınceleyınız.

 

[custersd]

Cok iyi olmus sayfalari gizlemek icin, ancak dosyamda gizlenmesi istenen sayfaya gecisi saglayan macrolar bulunmaktadir.Sayfa gizlendiginde macrolar islerligini kaybetmektedir.
Aslinda yapmak istedigimi daha net aciklamakta yarar var yardim alabilmek acisindan daha anlasilir olabilir.

Dosyama acilista kullanici adi ve sifre soran macro koydum,ancak acilista macrolar calistirilmadiginda sayfaya giriste sifre gerekmiyecek ve tum bilgilere ulasacaktir.Yapmak istedigim manuel olarak sayfalara gecisi saglayan sayfa sekmelerini gizleyerek sifresiz olarak giriste diger sayfalara gecisini engellemek istiyorum.Bu sayede sadece ana sayafam ulasabilecek ve hicbir sekilde diger ulasilmasini istemedigim sayfalara ulasilamayacaktir.
Sayfa gizleme gizlemek acisindan ise yariyor fakat bu sayfaya gecisi saglayan macrolari calistirmiyor.Sanirim en iyi engelleme yolu,Arac cubuklarinda islem yapilmayi tamamen engellemek olucaktir.

Tesekkurler..

 

[Kemal Demir]

Sub Autpen()
Sheets("Sheetismi").Visible = xlVeryHidden
End Sub

Yukarıdaki Kod zannedersem işinizi görür.

 

[custersd]

Rakkas ornek olarak attach ettigim dosyada yapabilirmisin, cok fazla oluyorum ancak macrolar konusunda acemi oldugumdan yapamadim verdigin kodla.

Ekteki dosyada (sayfa 2) sayfa sekmelerinde gorunmeyecek fakat sayfa 1 deki sayfa 2 ye gecis butonu calisabimeli.

 

[Kemal Demir]

Yine Pek anlamadım ama ek'teki ornek iş görür zannedersem.

 

[custersd]

Sayfa açılırken en üstte bulunan yazılı (Dosya, Düzen,..) Menü Çubuğunu gizler, Dosya kapatılırken de tekrar gösterir.

'ThisWorkbook modülüne kopyala
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub

Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

'Standard modüle kopyala
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub

Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub


istedigim sekilde dosyamdaki menu cubugunun gorumunu engellemis oldum.Yararlanmak isteyenler olmasi dusuncesiyle sizlerle paylasmak istedim,yardimlarinizdan dolayi tesekkurler.

 

[inowjoin]

Sayfa açılırken en üstte bulunan yazılı (Dosya, Düzen,..) Menü Çubuğunu gizler, Dosya kapatılırken de tekrar gösterir.

'ThisWorkbook modülüne kopyala
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub

Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

'Standard modüle kopyala
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub

Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub


istedigim sekilde dosyamdaki menu cubugunun gorumunu engellemis oldum.Yararlanmak isteyenler olmasi dusuncesiyle sizlerle paylasmak istedim,yardimlarinizdan dolayi tesekkurler.

Yukarıda anlatmış olduğunuz kodlar probleminize nasıl yardımcı oldu anlatırmısınız sonuçta gizli sayfalarda yine kod çalışmıyor