الملفات التنفيذيه

[وائل الاسيوطي]

السلام عليكم ورحمه الله وبركاته 

لقد ذكر اخي ياسر ابو البراء من قبل ان اكثر طريقه لحمايه الملفات ضمانا هي تحويلها مما يصعب عمليه كسر الحمايه للملف 

بس انا دلوقتي لو عندي ملف تنفيذي ممكن ببساطه اعمله حفظ بأسم واغير امتداده وارجعه اكسيل تاني بالتالي رجع الملف سهل كسر حمايته 

فهل في طريقه اتغلب بيها علي المشكله دي غير اني اخفي شريط المهام

[ياسر العربى]

حاول تتعامل مع الفورم وخلي كل شغلك بعيد عن الشيتات

واخفي معظم الاشرطة

وخلي البرنامج بتاعك في معظم الوقت

Application.Visible = False

وجرب ارفق ليا ملف كدا عشان افكه ليك

 

[ياسر العربى]

حتى الملفات التنفيذية فشنك

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

جرب تضع الكود التالي في حدث المصنف

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'[Save As] يقوم الكود بمنع خاصية الحفظ باسم
'------------------------------------------
    If SaveAsUI Then
        MsgBox "I have disabled the 'Save As' function." _
        & Chr(10) & "Only 'Save' will work.", vbInformation, "Save As Disabled"
        Cancel = True
    End If
End Sub

 

[ياسر العربى]

ياريت ترفق الملف بعد عمل كل الاضافات اللي فاتت

عشان نشوف مدى الحماية اللي تم عملها

[وائل الاسيوطي]

السلام عليكم ورحمه الله وبركاته شاكر مروركم اخواني الكرام 

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

اخي ياسر ابو البراء الكود بالفعل يعمل علي ملفات الاكسيل العادي لكن لما حولته لتنفيذي اظهر رساله التحذير وبعدها ظهرت رساله الحفظ عادي جدا وتمكنت من حفظه بصيغه اخري

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

ممكن ترفق لنا الملف الأصلي والملف التنفيذي ... للإطلاع عليهما

هل وضعت الكود في حدث المصنف ..؟؟

[وائل الاسيوطي]

انا كنت عملتها في المره الاولي وكانت النتيجه كما اخبرتك لكن لما اعدت المحاوله لم يتحول الملف اساسا وكانت بتظهر رساله خطأ ان بشتغل علي اي ملف مش ملف معين 

combo box.rar

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

جرب تحول الملف إلى ملف تنفيذي أولاً قبل وضع الكود ..ثم قم بالتعديل على الملف التنفيذي ووضع الكود الذي أرفقته لك سابقاً

 

[وائل الاسيوطي]

هاجرب وابلغك النتيجه اخي ياسر