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.

_{[Ovu poruku je menjao pcpopovic dana 14.03.2016. u 14:50 GMT+1]}

Postavi range u Properties Sheeta u VBE

Rešio sam postavljajući sve u "Workbook", dodajući linije opsega ćelija (Range) za pojedine "Sheet"-ove - za sada radi:

...
Worksheets("Podaci").ScrollArea = "$A$1:$J$101"
Worksheets("Promet").ScrollArea = "$A$1:$M$203"
Worksheets("Cene").ScrollArea = "$A$1:$DQ$53"
...

@Ivek33
Pogledaj stranu:
http://www.elitesecurity.org/t489772-0
Pa pokušaj da pomogneš. Pozdrav.