ذخیره شیت حاوی کد

[ali.b]

سلام کدهایی بیشتر برای ذخیره شدن شیت ها مورد استفاده قرار میگیره بیشتر زمانی کارایی داره که در قسمت محیط Vb شیت مورد نظر کدی وجود نداشته باشه (فایل های با پسوند xlsm)

با این کد میشه به راحتی اون شیت و حتی کد مورد نظر در vb اون شیت رو هم ذخیره کرد

Sub archive()ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="C:\" & Range("A2").Value & "\" & Range("A4").Value & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False


ActiveWorkbook.Close
End Sub

حالا برای خودم سوال شده که ایا راهی هست که از فایل با پسوند xlsm خروجی xlsx گرفت و کد های محیط vb اون هم ذخیره نشن ؟
فقط خود متن داخل رنج های شیت فایل باشه

[~M*E*H*D*I~]

از کد زیر استفاده کن ببین حله

Sub SaveAsName()
Dim save_as As Variant
Dim file_name As String
Dim ProgramName As String
file_name = ProgramName
   
    save_as = Application.GetSaveAsFilename(file_name, _
        FileFilter:="Excel Files,*.xlsx,All Files,*.*")
   
    If save_as = False Then Exit Sub
 
    Application.DisplayAlerts = False
    If LCase$(Right$(save_as, 4)) <> ".xlsx" Then
        file_name = save_as & ".xlsx"
    End If
    ActiveWorkbook.SaveAs Filename:=save_as, FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    
End Sub 

[ali.b]

ممنون اما من نمیخواستم پیغام الارم بیاد
این کد رو نوشتم و مشکلم حل شد
امیدارم به درد دوستان بخوره

Sub archive()
Sheets("sheet1").UsedRange.Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:="E:\" & Range("A4").Value & ".xlsx"
ActiveWorkbook.Close
End Sub