• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Sayfa Hareket Etmesin

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
RBozkurt

RBozkurt

Yeni Üye
Katılım
25 Ara 2021
Mesajlar
322
Çözümler
36
Aldığı beğeni
205
Excel V
Office 2021 TR
Konu Sahibi
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.
 
Çözüm
Ü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...
Tarihe göre sırala Oylara göre sırala
HTML:
CSS:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
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
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
İbrahim Görgülü' Alıntı:
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
Genişletmek için tıkla...

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

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
RBozkurt' Alıntı:
Bu şekildede denedim oda olmadı

HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...

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.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
himmgarip' Alıntı:
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.
Genişletmek için tıkla...

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

HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
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.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
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.
 
Son düzenleme:
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
ubak' Alıntı:
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.
Genişletmek için tıkla...

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.
 
Olumlu oy 0 Negatif oyla
Rica ederim, iyi günler.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst