Čovječe, ti toliko širok dijapazon radnji u Excelu radiš za kratko vrijeme da je to "zadivljujuće". Meni je teško pratiti samo čitajući (ponekada nejasne) tvoje postove.
Kad već nitko ne odgovara a ti si uporan i vrijedan, evo ti primjer snimanja trenutno svih otvorenih Workbook. Nešto sam kemijao i uz pomoć neta kreirao vba, u ZIP datoteci nalaze se 4 XLS datoteke. Experti to mogu vjerojatno jednostavnije i brže
Otvori ih sve redom. U Book1.xls nalazi se Macro i VBA button. Klikom na button Excel zatvara sve otvorene Workbook osim Book1.xls koja služi kao master pokretač
Ako ćeš raditi često ovu radnju tada kreiraj
Personal.xls "shortcut key" i umetni VBA kod u datoteku
PERSONAL.XLS
Dakle pokretanjem VBA u Book1.xls automatski snima i zatvara sve otvorene workbook na isto mjesto/path (pretpostavlja se da su workbook već snimljene jedanput sa nekim imenom, dakle ne novootvorene workbook)
Ako su nove workbook tada će prilikom prvog snimanja tražiti potvrdu lokacije za snimanje.
Code:
Option Explicit
Sub SaveAndCloseAllWbk()
Dim wb As Workbook
For Each wb In Workbooks
Select Case UCase(wb.Name)
Case "Book1.xls", UCase(ThisWorkbook.Name)
'Code, if any
Case Else
wb.Close SaveChanges:=True
End Select
Next wb
Set wb = Nothing
End Sub
Valjda će ti biti od neke pomoći? :)