Skús toto. Daj si to do makra.

ActiveWorkbook.SaveAs Filename:= _
"C:\Záloha(" & Date & ").xls", FileFormat:=xlNormal, Password:="" _
, WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False _

Ano SUPER funguje.

Ešte som to urobil takto : ... \Záloha(" & Date & ").xlsm", FileFormat:=52, ...
aby mi to uložilo komplet dokument aj s vba ...

Ďakujem za radu marjankaj.

Tie parametre si môžeš prispôsobiť. Najlepšie tak, že si dáš nahrávať makro a potom si to uprav o ten dátum. Ja mám iba Excel 2003, tak som to nemohol urobiť pre excel 2007.

ahoj . nemate nahodou ten vysledny subor kde uzh je nastavene automaticke zalohovanie aj s vba pri kazdom spusteni ? dakujem

Ahoj...

to by bolo ťažké hľadanie pretože to je veľmi obsiahly súbor ...

Vytiahol som proceduru ktorou som to robil - jej gro zbytok si už doladíš...

nicee dakujem uplne postaci ..!

to malo zalohovat raz za mesiac ? ..ja by som potreboval raz za den

nejde to

jj ide to : napriklad takto

Dim Dnes As String
Dim Mesiac As Integer


Private Sub Workbook_Open()
Dnes = Date
Mesiac = Month(Date)


If Dnes <> Worksheets("nazovpracharkukdesanachdza").Label1.Ca ption Then ' label1 je v bunke C4
Worksheets("nazovpracharkukdesanachdza").Label1.Ca ption = Date


Save
If Dir("C:\Zaloha " & Mesiac & "\", vbDirectory) = "" Then
rspCreate = MsgBox("Directory doesn't exist, do you wish to create it?", vbYesNo)

If rspCreate = vbYes Then
MkDir "C:\Zaloha " & Mesiac & "\"
End If
End If



'....
ActiveWorkbook.SaveAs Filename:="C:\Zaloha " & Mesiac & "\testA(" & Date & ").xlsm", FileFormat:=52, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
MsgBox "Ďakujeme, práve ste vytvorili zálohu pre účely zabezpečenia údajov. "


Application.DisplayAlerts = False
Application.Quit
End If




End Sub