Prikladám upravené.

Bolo potrebné povolenie filtra pri uzamykaní hárkov aj v makre...

(Neviem prečo nestačí, že je to prednastavené pri uzamykaní - mal by stačiť už povel Protect, keďže predvoľby by sa mali zachovať... Nezachovajú sa.. tak som to ešte zazichroval aj v makre... Detto pri predvoľbe možnosti vybratia uzamknutých buniek...)

Takže teraz to máš tak, ako som vyššie navrhoval, t.j.:

- sú zneprístupnené všetky uzamknuté bunky
- druhý hárok je uzamknutý celý, keďže sú to prenesené stavy také, aké boli v čase prenosu, t.j. nepovoľujeme do nich dodatočné úpravy, keď sú už v "archívnom" hárku
- filtre sú trvale prístupné v prvom i druhom hárku aj v uzamknutom stave

Skús či vyhovuje.

Ak úpravy chceš aplikovať do Tvojho ostrého súboru, tak treba urobiť toto:

Sheets(1).Protect ("qpwo1029")
Sheets(2).Protect ("qpwo1029")

treba upraviť na:

Sheets(1).Protect AllowFiltering:=True, Password:="qpwo1029"
Sheets(2).Protect AllowFiltering:=True, Password:="qpwo1029"

a upraviť udalostnú procedúru Private Sub Workbook_Open()v module ThisWorkbook

nasledovne:

Private Sub Workbook_Open()
Sheets(1).EnableSelection = xlUnlockedCells
Sheets(2).EnableSelection = xlUnlockedCells
End Sub