Microsoft Office Excel
uređuje Dragan Grbić

Istovremeno čuvanje više datoteka

Nivo:
NIVO 3 - Prilozi na ovom nivou su namenjeni naprednim korisnicima, onima koji se već dobro snalaze u programima i onima koji već imaju iskustva u naprednim tehnikama. Ovom nivou pripadaju preporuke i trikovi koje bi trebalo da savlada svako ko teži dugotrajnom i efikasnom radu u Office programima.

U Wordu raspolažete komandom za istovremeno čuvanje svih otvorenih datoteka; u Excelu nemate takvu mogućnost. Ništa zato: zasukaćemo rukave i angažovati VBA operaciju koja radi taj posao.

Korisnici Worda verovatno već znaju: kada kliknete na stavku menija Datoteka (File) držeći pritisnut taster Shift, umesto komande Sačuvaj (Save), zateći ćete komandu Sačuvaj sve (Save All), kojom ćete u jednom potezu sačuvati sve otvorene datoteke. Excel, na žalost, ne raspolaže takvom komandom; a kao za inat, verovatno bi baš u tom programu takva komanda bila od veće koristi. Doduše, klik na prvu stavku menija uz Shift otkriva komandu Zatvori sve (Close All). Istina, pri zatvaranju možete sačuvati sve datoteke, ali to nije pravo rešenje ako samo želite da periodično sačuvate svoj rad, ne prekidajući ga na takav način.

Kako to obično biva u Excelu, rešenje ćemo napraviti uz pomoć VBA. Ovog puta, objašnjavam manevar koji će ići na ruku neiskusnim korisnicima: upotrebićemo elemente interfejsa da bismo rukovali makroom.

Pozovite dijalog Alatke / Makro / Zapiši novi makro (Tools / Options / Record New Macro), pa u polje za ime makroa upišite SacuvajSve; u listi Uskladišti makro u (Store macro in) odaberite stavku Radna sveska ličnih makroa (Personal Macro Workbook). Kliknite na OK, pa, recimo, unesite neki sadržaj u ćeliju i odmah zaustavite snimanje klikom na dugme u privremeno otvorenoj traci sa alatkama. Pritisnite Alt+F11 da biste ušli u VBE, pa u oknu Project locirajte stavku VBAProject (PERSONAL.XLS) i u njoj pronađite modul koji sadrži proceduru SacuvajSve. Izbrišite sav sadržaj između prvog i poslednjeg reda procedure, pa tačno prepišite sadržaj iz listinga i na kraju zatvorite VBE.

Sub SacuvajSve()
Dim sveska As Workbook
For Each sveska In Workbooks
  If Not sveska.ReadOnly And _
    Windows(sveska.Name).Visible Then
    sveska.Save
  End If
Next
End Sub

Sad vam preostaje da smislite optimalni način pokretanja nove komande koja će sačuvati svaku otvorenu radnu svesku, pod uslovom da nije skrivena ili otvorena u režimu samo za čitanje. Možete dodati stavku u traku sa alatkama ili u meni, što sad neću objašnjavati kako da učinite. Umesto toga, predložiću vam da napravite novu prečicu: otvorite dijalog Makro (Alt+F8), pa u spisku obeležite stavku PERSONAL.XLS!SacuvajSve; sad kliknite na dugme Opcije (Options), pa u polje prečice unesite veliko slovo S; kao rezultat, formiraćete prečicu Ctrl+Shift+S. Malo slovo s bi značilo Ctrl+S, što je već rezervisano za komandu čuvanja aktivne radne sveske.