ذخیره فایل با یک عنوان دلخواه مثل ساعت کنونی

[m_d6712]

[font=Times New Roman]دوستی سوال فرمودند:

adi]
سلام

میشه در این مورد راهنمایی بفرمائید.

1-وقتی فایل ذخیره میشود میخواهم به تاریخ و ساعت جاری سیستم ذخیره شود (در واقع می خواهم در سلول B1 فرمول ()now= را درج کنم و اسم برنامه از این سل خوانده شود)



با احترامات فراوان

برای این کار کافی است که کد زیر را در فایل اکسل در قسمت workbook کپی کنید:

Dim ISSAVEAS As Boolean

Private Sub Workbook_Activate()
ISSAVEAS = False
End Sub

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
If Success = True Then
MsgBox ("saved")
Else
MsgBox ("not saved")
End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ISSAVEAS = False Then
Sheet1.Range("B1").Calculate
Dim str As String
str = Sheet1.Range("B1").Value
str = Replace(str, "/", "_")
str = Replace(str, " ", "_")
str = ActiveWorkbook.Path + "\" + Replace(str, ":", "_")
ISSAVEAS = True
ActiveWorkbook.SaveAs (str + ".xlsm")
ISSAVEAS = False
Cancel = True
End If
End Sub



یک فایل هم آماده کردم :
http://www.mediafire.com/view/?tvy8gguwmw3d8lk

موفق باشید.

[hajihadi]

RE: ذخیره فایل با یک عنوان دلخواه مثل ساعت کنونی

سلام
خیلی لطف کردید
متشکرم