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

نقل قول نوشته اصلی توسط hajih[/font
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

موفق باشید.
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.