Sayfayı sabitlemek.?

[ZİNDAN]

Merhaba;

Ben excelde sayfanın ekranda gözüken kısmının dışına çıkılmasını istemiyorum.Yani sağda ve altta bulunan "yukarı ve aşağı" ile "sağa ve sola" sayfayı hareket ettiren çubukların sabit kalmasını yada gözükmemesini istiyorum.Bu şekilde yapılmış uygulamaları gördüğümü hatırlıyorum.Bu konuda bilgisi olan paylaşırsa, sevinirim.


Kolay gelsin.
Teşekkürler.

 

[Necdet]

Diyelim ki F sütunundan sonrasını ve 10. satırdan sonrasını engellemek istiyorsunuz :

F sütunu ve sağa doğru sonunu kadar seçiniz(F sütununu seçin ve End tuşuna bastıktan sonra Sağ oka basınız)
Fare ile sağ tuşa basın ve kolonları gizleyiniz.

Aynı yöntemi satırlar için de yapınız. (10. satırı seçin, End tuşuna basın sonra Aşağı Ok tuşuna basın ve gizleyin)

 

[ZİNDAN]

Hocam çok saol.Harikasın walla.Teşekkürler.

 

[Orion1]

Merhaba.
Gerçi Sayın hocam cevap vermişte bende farklı bir alternatif vereyim dedim.
Aşağıdaki kodu boş bir modüle yazarasanız A1-O35 aralığı dışında hareket edemez.Siz aralığı kendinize göre değiştirebilirsiniz.

Sub Auto_Open()
Sheets("Sayfa1").ScrollArea = "A1:O35"
End Sub

 

[tahsinanarat]

aynı cevabı Sezar hoca vermiş

 

[TAŞELİ70]

Hocalarımın müsadesiyle, kaydırma çubuklarının görünmemesi için bi alternatif de ben yazayım:

Araçlar/seçenekler/görünüm/pencere seçenekleri' nde yatay kaydırma çubuğu ve dikey kaydırma çubuğu kutucuklarını temizlersen o kitaptaki çubuklar gözükmez.

İyi geceler...

 

[ZİNDAN]

Merhaba.
Gerçi Sayın hocam cevap vermişte bende farklı bir alternatif vereyim dedim.
Aşağıdaki kodu boş bir modüle yazarasanız A1-O35 aralığı dışında hareket edemez.Siz aralığı kendinize göre değiştirebilirsiniz.

Sub Auto_Open()
Sheets("Sayfa1").ScrollArea = "A1:O35"
End Sub

Sayın Orion2;
İlk başlarda acemi olduğum zamanlarda bu verdiğinizin ne işe yaradığını, nerde kullanılacağını bilmiyordum bile

Makroları, kodları, vbayı öğrendikçe bu kodun ne kadar güzel bir kod olduğunu gördüm.

Teşekkürler.

 

[uzmanamele]

Merhaba.
Gerçi Sayın hocam cevap vermişte bende farklı bir alternatif vereyim dedim.
Aşağıdaki kodu boş bir modüle yazarasanız A1-O35 aralığı dışında hareket edemez.Siz aralığı kendinize göre değiştirebilirsiniz.

Sub Auto_Open()
Sheets("Sayfa1").ScrollArea = "A1:O35"
End Sub

1- işlemin geri gelmesi için ne yapmamız gerekir? (kodları silin cevabı hariç)
2- adres kutusunu seçip formül çubuğunda işlem yapabiliyor. bu açıdan pek güvenli görmedim

 

[Seyit Tiken]

Sub Auto_Open()
Sheets("Sayfa1").ScrollArea = Empty
End Sub

Şeklinde deneyiniz.