Kako da limitiram kretanje korisnika kroz List-ove, pomoću "ScrollArea"?

Hoću da limitiram kretanje korisnika kroz List-ove, pomoću "ScrollArea", međutim kada (nakon "pamćenja" i zatvaranja) opet otvorim fajl podešavanja se izgube. Pokušao sam i sa VBA kodovima) - ali ništa. Zašto?
Kod koji sam najčešće ispisivao:

Private Sub Workbook_Open()
Worksheets("sheet1").ScrollArea = "A1:J101"
End Sub

Ovo kod je sasvim u redu, ali obrati paznju da,

1. naravno dokument mora da bude u .xlsm formatu da bi VBA kod ostao u dokumentu i naravno funkcionisao.
2. VBA makroi moraju da budu omoguceni
3. Pojedini Antivirusi bi mogli da blokiraju izvrsavanje VBA koda, ako s edobro secam Kaspersky ima opcije da pojedine komande blokira

Pozdrav

Sve sam ovo uradio i proverio i... ništa. Ukoliko to označim u Properties-u Lista (ScrollArea $A$1:$J$101), to "drži vodu" dok ne zatvorim fajl.
Sada sam, umesto "sheet1" napisao naziv mog List-a - "Podaci" i kod postavio u VBA tog List-a (ne u "ThisWorkbook"-a):

Private Sub Workbook_Open()
Worksheets("Podaci").ScrollArea = "A1:J101"
End Sub

Uspeo sam. Treba u "ThisWorkbook" napisati:

Private Sub Workbook_Open()
Worksheets("Podaci").ScrollArea = "$A$1:$J$101"
End Sub

Kako sad napisti za ostale "List"-ove? Da li za svaki dodavati novu proceduru:

Private Sub Workbook_Open()
Worksheets("Podaci").ScrollArea = "$A$1:$J$101"
End Sub
_____________________________________
Private Sub Workbook_Open()
Worksheets("Promet").ScrollArea = "$A$1:$M$203"
End Sub
____________________________
itd...

Ili dodavati u drugom redu oznake "List"-ova i rapone ćelija:

Private Sub Workbook_Open()
Worksheets("Podaci").ScrollArea = "$A$1:$J$101"
Worksheets("Podaci").ScrollArea = "$A$1:$J$101"
itd...
End Sub

Ili neki treći način?

Prethodno je rešeno.

Povlačim pitanje (koje je bilo ovde) da ga Administrator ne "skine". Otvoriću novu temu. Pozdrav.

Postavi range u Properties Sheeta u VBE