Çözüldü Sayfa Hareket Etmesin

[RBozkurt]

Merhaba
5 sayfadan oluşan dosyada, 1. sayfanın mause ile yukarı aşağı hareketini nasıl kapatabilirim?
Kaydırma çubuklarını kapatmam gerekiyor. Teşekkürler.

 

[İbrahim Görgülü]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[RBozkurt]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

İlgili sayfanın kod görüntüle kısmına ekledim fakat çalışmadı.

 

[RBozkurt]

Bu şekildede denedim oda olmadı

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[İbrahim Görgülü]

Option Explicit

Private Sub Worksheet_Activate()
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
End Sub

hangi sayfada uygulamak istiyorsanız o sayfanın Worksheet_Activate() ne yazınız

 

[RBozkurt]

Option Explicit

Private Sub Worksheet_Activate()
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
End Sub

hangi sayfada uygulamak istiyorsanız o sayfanın Worksheet_Activate() ne yazınız

Hocam sayfa2 ye eklemeniz mümkünmüdür?

 

[himmgarip]

Bu şekildede denedim oda olmadı

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Sayın RBozkurt siz yukarıdaki kod ile çalışma kitabı açılınca bu kod çalışsın diyorsunuz. Workbook_activate ile.

Hangi sayfada istiyorsanız o sayfanın kod satırlarında yazınız. Worksheet_ activate ile.

 

[RBozkurt]

Sayın RBozkurt siz yukarıdaki kod ile çalışma kitabı açılınca bu kod çalışsın diyorsunuz. Workbook_activate ile.

Hangi sayfada istiyorsanız o sayfanın kod satırlarında yazınız. Worksheet_ activate ile.

Sayın himmgarip
Sayfa2'nin kod kısmına alttakini ekledim fakat pasifize olmuyor.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[himmgarip]

Siz sayfanın hareket etmemesini mi istiyorsunuz? Ki öyleyse bu kodlar sadece sağ ve alttaki kaydırma çubuklarını gizler.

Ekte dosyada sayfa 2 inceleyin. Bölmeleri dondur işinizi görecektir.

 

[Ümit Bakacak]

Sayın RBozkurt kaydırma çubuklarını gizlemek farklı bir iş kaydırmayı devre dışı bırakmak farklı bir iştir.
Arkadaşların paylaştıkları kodlar kaydırma çubuklarını gizler ama kaydırmayı devre dışı bırakmaz.
Kaydırmayı devre dışı bırakmak için şu kodu kullanabilirsiniz:

Sayfa1.ScrollArea = Range("A1").Address

Mesela A1: A250 arasını görsün daha aşağı ve sağa gidemesin istiyorsanız adresi isteğinize göre düzenlemeniz yeterlidir.
Sayfa1.ScrollArea = Range("A1: A250").Address

Engeli kaldırmak istediğinizde ise:
Sayfa1.ScrollArea =""

Dosya kapatılıp açıldığında kaydırma alanı varsayılan olarak açıldığı için kodu workbook open içine yazınız.

Ancak bu işlem adres kutusuna hücre adresi yazarak hücre seçmeyi engellemez. Mesela şunu yaptınız:
Sayfa1.ScrollArea = Range("A1").Address
Ve dosyayı açtığınızda ekranda görünen en alt satır diyelim ki 40. satır.
Kullanıcı kaydırma yapamaz. Ama adres kutusuna a123 yazarak o hücreye erişebilir.
Ekranı a123 hücresine kaymaz ancak a123 hücresi seçili olur, hücreye veri girilebilir ve formül çubuğu içinde hücredeki değer okunabilir.

 

[RBozkurt]

Sayın RBozkurt kaydırma çubuklarını gizlemek farklı bir iş kaydırmayı devre dışı bırakmak farklı bir iştir.
Arkadaşların paylaştıkları kodlar kaydırma çubuklarını gizler ama kaydırmayı devre dışı bırakmaz.
Kaydırmayı devre dışı bırakmak için şu kodu kullanabilirsiniz:

Sayfa1.ScrollArea = Range("A1").Address

Mesela A1: A250 arasını görsün daha aşağı ve sağa gidemesin istiyorsanız adresi isteğinize göre düzenlemeniz yeterlidir.
Sayfa1.ScrollArea = Range("A1: A250").Address

Engeli kaldırmak istediğinizde ise:
Sayfa1.ScrollArea =""

Dosya kapatılıp açıldığında kaydırma alanı varsayılan olarak açıldığı için kodu workbook open içine yazınız.

Ancak bu işlem adres kutusuna hücre adresi yazarak hücre seçmeyi engellemez. Mesela şunu yaptınız:
Sayfa1.ScrollArea = Range("A1").Address
Ve dosyayı açtığınızda ekranda görünen en alt satır diyelim ki 40. satır.
Kullanıcı kaydırma yapamaz. Ama adres kutusuna a123 yazarak o hücreye erişebilir.
Ekranı a123 hücresine kaymaz ancak a123 hücresi seçili olur, hücreye veri girilebilir ve formül çubuğu içinde hücredeki değer okunabilir.

Herkese teşekkür ederim.
Sayın ubak istediğim bu şekildeydi. Giriş sayfasını kitledim. Veri girişi için en son koruma atacağım. O yüzden problem olmaz. Elinize sağlık.

 

[Ümit Bakacak]

Rica ederim, iyi günler.