Makro etkinleştirilmemişse başka sayfa

[dbicer83]

Makro etkinleştirilmemmişse başka sayfa etkinleştirilmişse sayfalara erişim izni verilecek eğer ki makrolar etkinleştrilmemişse diğer sayfalara erişim ksıtlansın
Teşekkürler.
İyi Çalışmalar.

 

[leumruk]

Ekli örneği inceler misiniz? Makro etkinleştirilmemişse, sayfa1 dışındaki sayfalara ulaşamazsınız.

 

[dbicer83]

Ekli örneği inceler misiniz? Makro etkinleştirilmemişse, sayfa1 dışındaki sayfalara ulaşamazsınız.

Öncelikle ilginizden dolayı teşekkür ederim.
Fakat çalışma kitabımda çok fazla sayfa(45-50) mevcut olduğundan ötürü bir makro etkinleştir yapılmaz ve tekrar makro etkinleştir yapılması durumunda gizli olan dosyaları doğal olarak tekrar açılıyor oda hep sayfaları tek tek ve göüntülüyerek açıyor uzun süre ve kötü bir görüntü oluşturuyor bunu nasıl bir engelleme yapabiliriz tekrarında etkinleştirldiğinde ilk anasayfa olarak gelmesini istediğim sayfa gelecek fakat diğerleride ekrandan geçmeden direkt açılsın.
teşekkürler.
iyi çalışmalar.

 

[fedeal]

sayın uzmanamele'nin bir calışması vardı. gerçi şifreli girişle ilgiliydi işe yarayan kısmını kullanırsınız. iyicalışmalar.
http://www.excel.web.tr/f129/yetkisi-olmayan-dosyay-acamas-n-t52380.html

 

[dbicer83]

uyguladım fakat ddeiğim gibi sıkıntılı olan kısmı mevcut etkinleştir devre dışı bırakta tek tek sayfalar yeniden tek tek sıralanarak görüntüleniyor bunu görüntülensin istemiyorum ben.
yardımlarınızı bekliyorum teşşekkürler.

 

[dbicer83]

arkdaşlar yardımlarınızı bekliyorum.

 

[leumruk]

Örneği deneyiniz.

 

[dbicer83]

teşekkür ederim öncelikle fakat buradaki örnekle önceki örnek arasındaki fark nedir kendi çalışma kitabına öonte etmedim ama işleyiş hakkında biraz bilggi verebilirmiyiz
teşekkürler.

 

[leumruk]

teşekkür ederim öncelikle fakat buradaki örnekle önceki örnek arasındaki fark nedir kendi çalışma kitabına öonte etmedim ama işleyiş hakkında biraz bilggi verebilirmiyiz
teşekkürler.

Küçük bir farklılık var sadece.

Sub Auto_Close()
Application.ScreenUpdating = False
For i = 2 To Worksheets.Count
ThisWorkbook.Sheets(i).Visible = xlSheetVeryHidden  'Sayfaları gizler
Next i
[COLOR="red"]Sheets("Sayfa1").Select[/COLOR]
End Sub
Sub Auto_Open() 'Sayfaları gösterir
Application.ScreenUpdating = False
Dim i As Integer
For i = 2 To Worksheets.Count
ThisWorkbook.Sheets(i).Visible = xlSheetVisible
Next i
[COLOR="Red"]Sheets("Sayfa1").Select[/COLOR]
End Sub

Application.ScreenUpdating = False

Bu kod işlem yapılırken diğer sayfalara geçişi engeller. Ancak, kodun sonunda Anasayfayı seçmeye yarayan satır yoksa hiçbir işe yaramaz.
Benim yaptığım değişiklik kırmızı satırlarda da görüldüğü anasayfayı seçtirmek oldu.

 

[dbicer83]

kapatırken makrolar devre dışı bırakıldığından ötürü tek tek açılırken yaşanan sorun kapanırken yaşanıyor onun için ne ekleyebiliriz.

 

[leumruk]

kapatırken makrolar devre dışı bırakıldığından ötürü tek tek açılırken yaşanan sorun kapanırken yaşanıyor onun için ne ekleyebiliriz.

Belirttiğiniz hatayı ben yaşamıyorum. 365 sayfalık bir dosyada denedim. Sayfa seçme kodunu kapatma kodunuzun sonuna eklediniz mi?

 

[dbicer83]

kapatma kodu derken pek anlamıyorum. sizin verdiğiniz kodu kopyaladım ama yapamadım sanırım.tekrar ekleyebilrmisinzi kodu size zahmet farkındayım çok zahmet eriyorum ama teşekkürler.

 

[leumruk]

Sub Auto_Close()
Application.ScreenUpdating = False
For i = 2 To Worksheets.Count
ThisWorkbook.Sheets(i).Visible = xlSheetVeryHidden  'Sayfaları gizler
Next i
[COLOR="red"]Sheets("Sayfa1").Select[/COLOR]
End Sub

Sub Auto_Open() 'Sayfaları gösterir
Application.ScreenUpdating = False
Dim i As Integer
For i = 2 To Worksheets.Count
ThisWorkbook.Sheets(i).Visible = xlSheetVisible
Next i
[COLOR="Red"]Sheets("Sayfa1").Select[/COLOR]
End Sub

Birinci kod kapanırken çalışır ve sayfaları gizler.
İkinci kod açılışta çalışır ve sayfaları gösterir.
Kırmızı kodlar da sonradan eklediğim satırlar. Kendi kodlarınızda, bunların bulunup bulunmadığını kontrol edin.
Bir de Application.ScreenUpdating = False bu satırın kodlarınızın başında olmasına dikkat edin.