sayfanın sağa ve sola kaymasını engellemek

[PLİNT]

Sayfanın sağa ve sola kaymasını engellemek
Private Sub Worksheet_Activate()
ScrollArea = "a1:k30" 'sadece bu aralıkta çalışabilirsiniz
End Sub

Private Sub Worksheet_Deactivate()
ScrollArea = ""
End Sub

kodu sayfanın koduna ayazınca alan sabitleniyor, ancak, tekrar dosyayı açtığımda eski haline dönüyor, kod etkin olmuyor
yardım edebilirminiz

Merhaba
Yukarıdaki kodlarınız yine ilgili sayfanın kod sayfasında iken aşağıdaki kodları
"BuÇalışmaKitabı" (Thisworkbook) kod sayfasına ekleyip, kaydedip kapatın.
(Kırmızı bölümü istediğiniz sayfanın adı ile değiştirirsiniz)

[SIZE="2"]Private Sub Workbook_Open()
If ActiveSheet.Name <> "[COLOR="Red"]Sayfa1[/COLOR]" Then Exit Sub
ActiveSheet.ScrollArea = "a1:k30"
End Sub[/SIZE]