كود عمل نسخه من الملف

[أيهاب ممدوح]

الاخوة الكرام

اريد كود عمل نسخه طبق الاصل من الملف بنفس الاسم ونفس الشروط لكن بدون اي اكواد

اي الملف الاصلي به اكواد ولا اريدها في الملف الجديد

يعني نسخه من الملف للبيانات فقط

شكرا

تم تعديل مارس 8, 2015 بواسطه ايهاب ممدوح

[ياسر خليل أبو البراء]

جرب الكود التالي (من مكتبة الأكواد ..المشروع الكبير الذي توقف)

 يقوم الكود بتحويل امتداد الملف الحالي من XLSM إلى XLSX (أي ملف بدون أكواد).
   الكود مفيد في حالة أردت إعطاء نسخة من المصنف الذي تعمل عليه لشخص ما ، للتخلص من الأكواد ، لأنه
   يقوم بحفظ المصنف بصيغة XLSX ، وهذه الصيغة لا تحفظ الأكواد.

Option Explicit

Public Sub ConvertXLSMtoXLSX()
    'عرف متغيرات تشير للملف الحالي
    Dim SourceFile As String: SourceFile = ThisWorkbook.FullName
    Dim SourceName As String: SourceName = ThisWorkbook.Name
    Dim SourcePath As String: SourcePath = ThisWorkbook.Path & "\"
    
    'عرف ملف مؤقت من أجل التحويل
    Dim TempFile As String:  TempFile = Replace(SourceFile, ".xlsm", "_TEMP.xlsm")
    
    Application.DisplayAlerts = False
    
    'احفظ الملف أولاً
    ThisWorkbook.Save
    
    'عرف متغير للوصول لملفات
    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
    
    'احذف الملف المؤقت إذا وجد
    On Error Resume Next
    fso.deletefile TempFile, True
    On Error GoTo 0
    
    'اعمل نسخة من الملف الحالي
    fso.CopyFile SourceFile, TempFile, True
    
    'افتح النسخة المؤقتة
    Dim TempWB As Workbook
    Set TempWB = Workbooks.Open(TempFile)
    
    'احفظ باسم و حول امتداد الملف
    ActiveWorkbook.SaveAs Filename:=SourcePath & Left(SourceName, Len(SourceName) - 5) & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    'أغلق النسخة
    TempWB.Close
    
    Application.DisplayAlerts = True
    
    'احذف النسخة المؤقتة
    On Error Resume Next
    fso.deletefile TempFile, True
    On Error GoTo 0
End Sub

تم تعديل مارس 8, 2015 بواسطه YasserKhalil

[أيهاب ممدوح]

تسلم اخي ياسر

جاررري التجربه

[أيهاب ممدوح]

اخي ياسر

الاخوة الاحباء

لو عندي كود وفي خطواته اردت ان ينفذ كود اخر ثم يكمل الكود الحالي

هل ممكن كتابهcall.اسم الكود الجديد؟؟؟؟

[ياسر خليل أبو البراء]

هذا صحيح ، ولكن يجب أن يكون منطقي .. جرب وشوف حسب الكود اللي عندك

[أيهاب ممدوح]

اخي ياسر

الاخوة الكرام

يوجد طلبين

الاول جعل الكود يعمل اثناء اخفاء الصفحه ( حاولت لان الكود يوجد داخل الحدث )

الثاني هو دمج الكودين الاول في المديول والثاني في اليوزفورم الاول

وهما عبارة عن الكود في اليوزرفورم هو عبارة عن تسجيل الحضور ومن ثم حفظ الملف ثم ارسال الملف الي الايميل

الكود الثاني يعمل نسخه من الملف بدون اكواد

عايز ادمج الكودين سويا

بحيث ان بسجل الحضور ثم ينشأ نسخه من الملف بدون اكواد بنفس الاسم وثم الارسال الي الايميل وارفاق النسخه الي الايميل

 

الباسورد ehab123

 

المستودع.rar

[أيهاب ممدوح]

للرفع

[أيهاب ممدوح]

للرفع

[أيهاب ممدوح]

للرفع

[أيهاب ممدوح]

للللرفع

[أيهاب ممدوح]

للرفع