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