çalışma alanını sabitleme

[Tongunc]

Ekteki dosyada A1 ile S8 arasında çalışma alanı belirledim ve sarıya boyadım.
Makroda ScrollArea = "A1:S34" dedim. Sadece bu sarı alanın görünmesini istiyorum, sayfanın sağa ve aşağı kaymasını istemiyorum.
Bu sarı alanda herhangi bir hücreye tıklanmazsa veya ok tuşları veya TAB tuşu ile hücre seçilmez ise mouse tekerleğini çevirince sayfa aşağıya doğru kayıyor. Yani sayfayı ilk açtığınızda hiç bir şey yapmadan mouse tekerleğini çevirirseniz sayfa aşağıya doğru kayıyor. Ancak herhangi bir hücreyi seçerseniz sayfa sabitleniyor. Sayfanın ilk açıldığında (henüz hiç bir işlem yapmadan) mouse tekerleği ile aşağı kaymasını engelleyebilir miyiz?
Yardımlarınız için şimdiden teşekkürler.

 

[Murat OSMA]

Kodu şu şekilde ThisWorkbook kod sayfasına yazın;

Private Sub Workbook_Open()
    Sayfa1.ScrollArea = "A1:S34"
End Sub

 

[Tongunc]

Sayın Murat Bey;
İlginize çok teşekkür ederim.
Sayfaların adını değiştirdiğimiz zaman, çalışma alanının sabit kalması için makroyu nasıl revize etmemiz gerekir?
Yani çalışma kitabında bulunan tüm sayfalar için aynı sabit çalışma alanı geçerli olsun.

 

[Murat OSMA]

Şu kodları ThisWorkBook kod sayfasına yazın;

Private Sub Workbook_Open()
    ActiveSheet.ScrollArea = "A1:S34"
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    ActiveSheet.ScrollArea = "A1:S34"
End Sub

Ya da şu kodu kullanın;

Private Sub Workbook_Open()
    Dim syf As Worksheet
    For Each syf In Worksheets
        syf.ScrollArea = "A1:S34"
    Next syf
End Sub

 

[Tongunc]

Teşekkürler

Sayın Murat Bey
Çok teşekkür ederim.
Gönderdiğiniz makrolar sorunsuz çalıştı.
Elinize ve aklınıza sağlık.

 

[Murat OSMA]

Rica ederim Sn. Tongunc, iyi günler...