[ mirko1949 @ 06.12.2006. 19:08 ] @
Da bi onemogucio skrollovanje u worksheetu u VB Editoru u Properties Window pod ScrollArea upisao sam raspon u kojem zelim omogucavanje kretanja (npr $A$1:$C$20). Da bi omogucio da posle zatvaranjai ponovnog otvaranja workbooka ovo ostane upamceno dodao sam u željeni worksheet sledeci kod:

Private Sub Worksheet_Activate()
ScrollArea = "$A$1:$C$20"
End Sub

Medjutim posle ponovnog otvaranja workbooka ovo ne funkcionise. U cemu je problem? Gde je greska?
[ Jpeca @ 06.12.2006. 19:49 ] @
Probao sam i ovo kod mene funkcioniše (nadam se da su ti omogućeni makroi). Problem je što se kod izvršava tek kada se aktivira worksheet, tj. potrebno je da pređeš na drugi worksheet pa da se vratiš na njega. Naravno, to može da se simulira kodom, ali je mnogo jednostavnije da umesto događaja Worksheet_Activate, obradiš događaj Workbook_Open (dakle na nivou radne sveske). Dakle sledeći kod:
Code:

Private Sub Workbook_Open()
   Worksheets(1).ScrollArea = "$A$1:$C$20" 
End Sub

Na taj način samo jednom podesiš svojstvo ScrollArea i ono traje do zatvaranje.