Sayfalar Arası Geçiş Makro

[leonadies]

Merhaba üstadlar makro kaydet yöntemi ile bir çalışma yaptım. Bu kayıtlarda zaman zaman sayfalar arası geçişte bulunuyor. Makroyu çalıştırdğımda bu geçişleri hissediyorum ve çirkin görüntüler oluşuyor. Önüne geçmenin bir yolu varmı ? Dosyam ağ üzerinde bağıntılı fomüllerler dolu bu nedenle paylaşamıyorum.

Birde "Sayfa 1" sekmesi hep gizli kalsın göster denildiğinde şifre sorsun istiyorum. Mümkünatı var mı?

 

[ÖmerBey]

Merhaba,
Kodlarınızın başına Application.ScreenUpdating = False sonuna da Application.ScreenUpdating = True satırlarını ilave ederseniz ekrandaki değişimleri görmezsiniz.

Sayfa1'i de kod ile gizleyebilirsiniz bu durumda göster menüsünde gözükmez.
Gizlemek için Sheets("Sayfa1").Visible = xlSheetVeryHidden
Göstermek için Sheets("Sayfa1").Visible = xlSheetVisible
kodlarını kullanabilirsiniz.

 

[kulomer46]

Merhaba

Makrolarımız çalışırken sayfalar arası geçişler bize gösterilir.
Makro çok kısa sürede işini bitirsede sayfalar arası anlık geçişler hissedilir ve bu kullanıcının göz zevkini rahatsız eder.

Bunun önlenmesi için;

Application.ScreenUpdating = False

kodunu makromuzda kullanırız.

Makro kodunun başlarına bu kodu yazarak ekran güncellenmesi kullanıcıya gösterilmez.
Fakat makro kodlarımızın sonlarına doğruda

Application.ScreenUpdating = True

kodunuda yazmalıyızki makro işini bitirdiğinde ne olup bittiğini yani sonucu ekranda görebilelim.

Kolay Gelsin..

 

[leonadies]

Merhaba,
Kodlarınızın başına Application.ScreenUpdating = False sonuna da Application.ScreenUpdating = True satırlarını ilave ederseniz ekrandaki değişimleri görmezsiniz.

Sayfa1'i de kod ile gizleyebilirsiniz bu durumda göster menüsünde gözükmez.
Gizlemek için Sheets("Sayfa1").Visible = xlSheetVeryHidden
Göstermek için Sheets("Sayfa1").Visible = xlSheetVisible
kodlarını kullanabilirsiniz.

Ömer Bey Merhaba teşekkür ederim Application.ScreenUpdating ile olay çözüldü Ancak sayfa gizleme kodlarını nereye yazmam gerekitğini anlayamadım. Makrolarım hep sayfa 1e bazı veriler atıyor bu nedenle de gizli kalması önemli. Makrolar burayla alışverişte bulunsun ama gözükmesin derdindeyim. Kullanıcı göster diyerek de açamamalı. Gizleyince çalışmassa da işim olmuyor

 

[ÖmerBey]

Müstakil bir makro kodunun içine yazıp deneyiniz. Mesela;

Sub gizle()
Sheets("Sayfa1").Visible = xlSheetVeryHidden
End Sub

Bununla birlikte makrosuz olarak yapmak isterseniz gözden geçir sekmesi altındaki çalışma kitabını koru menüsünü de deneyebilirsiniz.
Ancak makro kodlarınız gizlemek istediğiniz bu sayfayı aktifleştirerek işlem yapıyorsa sayfayı gizlemeniz kodlarınızın hata vermesine neden olacaktır.

 

[leonadies]

"Ancak makro kodlarınız gizlemek istediğiniz bu sayfayı aktifleştirerek işlem yapıyorsa sayfayı gizlemeniz kodlarınızın hata vermesine neden olacaktır. "

Tam olarak bu durum içindeyim

 

[ÖmerBey]

Kullandığınız makro kodlarının baş ve son tarafını aşağıdaki mantığa göre düzenleyiniz.

Sub xxxxxx()
Application.ScreenUpdating = False
Sheets("Sayfa1").Visible = xlSheetVisible
.
.
.
.
Sheets("Sayfa1").Visible = xlSheetVeryHidden
Application.ScreenUpdating = True
End Sub

 

[leonadies]

Teşekkür ederim bu şekilde oldu Göster pasifize de oldu.
Azcık deneyimli birisi kurcalasa Vba ağacından açabilecek durumda oldu bu şekilde. buraya nasıl bir önlem alırız? bu yüzden sekmeyi şifre ile açmak mantıklı geliyordu bana yolu varmıdır?

 

[ÖmerBey]

Deneyimli birisi için önlem alamazsınız Belki biraz zorlaştırırsınız o kadar.
Şifre ile koruyacağınızı düşünüyorsanız vba'ya şifre koyabilirsiniz. (Vba editör içerisinde Tools>VBA project properties>Protection adımını takip ediniz)
İyi çalışmalar...

 

[leonadies]

Aynen öyle çok teşekkür ederim