scrollen beperken

[jong.braster]

Ik werk met office 2000.

Om het scrollen van een werkblad te beperken gebruik ik de volgende formule:

Private Sub Workbook_Open()
Worksheets(1).ScrollArea = "a1:a60"
End Sub

In mijn document heb ik meerdere tabbladen. Hoe geef ik aan dat deze formule voor alle tabbladen is.

Ik heb alles in de formule al gewijzigd maar het lukte me niet.

 

[JKoelman]

Geen idee of het werkt,..
maar goed,. wellicht dat je er wat aan hebt::

ActiveSheet.ScrollArea = "A1:a60"

 

[jong.braster]

bedankt voor je snelle reactie maar..........

het werkt ook, maar op het tabblad wat als eerste geopend wordt en niet op de volgende tabbladen die geopend worden

jammer

 

[Jhon van der Bo]

Plaats onderstaande code in 'Sheet1'

Private Sub Worksheet_Activate()
Worksheets(1).ScrollArea = "a1:a60"
End Sub

Plaats onderstaande code in 'Sheet2'

Private Sub Worksheet_Activate()
Worksheets(2).ScrollArea = "a1:a60"
End Sub

Plaats onderstaande code in 'Sheet3'

Private Sub Worksheet_Activate()
Worksheets(3).ScrollArea = "a1:a60"
End Sub

 

[Jhon van der Bo]

Kan ook met deze code:

Private Sub Worksheet_Activate()
Application.ActiveSheet.ScrollArea = "a1:a60"
End Sub

 

[jong.braster]

Jhon ik kom een heel eind met je oplossing maar.......

Wanneer je de code in "this workbook" zet werkt hij alleen op het eerste tabblad.

Wanneer je de code op ieder tabblad zet werkt hij alleen als je van het éne naar het andere tabblad gaat.
Als je bijvoorbeeld opent op tabblad 2 werkt hij niet. Als je van tabblad 1 naar 2 gaat werkt hij wel.

Ik ga met behulp van een knop op een werkblad direct naar een bepaald tabblad toe. In deze situatie werkt alleen tabblad 1 en de overige niet.

Wil je nog even meedenken met me.

 

[Ingrid B]

Private Sub Workbook_Open()
Dim sh As Worksheet
  For Each sh In ThisWorkbook.Sheets
    sh.ScrollArea = "a1:a60"
  Next sh
End Sub

 

[jong.braster]

Ingrid je lost weer een deel op. Hiermee kan ik op alle tabbladen het scrollen beperken. Voor een deel lost dit mijn probleem op, maar niet voor alle tabbladen.

Wat als de scroll-beperking per tabblad verschillend is.

Bijvoorbeeld:

tabblad 1 van "a1:c50"
tabblad 2 van "a1:e100"

 

[Ingrid B]

Dan zal je, in plaats van de werkbladen in een lus te doorlopen, voor elk werkblad een afzonderlijke regel moeten maken:

Private Sub Workbook_Open()
  Sheets("Blad1").ScrollArea = "A1:C50"
  Sheets("Blad2").ScrollArea = "A1:E100"
  ...
End Sub

 

[jong.braster]

Ingrid bedankt. Werkt perfect.

Wil je ook naar mijn andere vraag kijken.