تعديل في كود الحذف

[ABOU ELSAAD]

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

قمت بتجربة حذف الشيت بعد تاريخ معين  باستخدام الاكواد الرائعة من هذا المنتدى الرائع ووجدتها تعمل على اتم وجه ولكن عند تحويل الملف الى ملف exe الكود لا يعمل 

فهل من الممكن التعديل على الكود بحيث يعمل على هذا الامتداد ولكم جزيل الشكر 

 

SuicidalWorkbook.rar

[أ / محمد صالح]

مضاد الفيروسات يخبر أن الملف بهذه الصورة شديد الخطورة

ربما لو أرسلت الكود نتعرف على مكان الخطأ

[ABOU ELSAAD]

جزاك الله خيرا استاذ محمد

بالنسبة لمضاد الفيروسات فهو يتعامل مع ملف تحويل الاكسل على انه فيروس ( علما باني قمت بتحميله من موضوع تحويل الاكسل الى ملف تنفيذي بالمنتدى

وبالنسبة للكود 

Option Explicit
 Private Const MSG_TITLE As String = "Deleting Current Workbook ..."
Private Const MSG_TEXT As String = _
"You are about to permanently delete the current workbook located in :"
 Sub Kill_Myself()
     Dim lUserDecision As Long
    Dim sMsg As String
        On Error Resume Next
        sMsg = "Attention !" & vbNewLine & vbNewLine
    sMsg = sMsg & MSG_TEXT & vbNewLine
    sMsg = sMsg & "'" & ThisWorkbook.FullName & "'" & vbNewLine
    sMsg = sMsg & "from Disk!!" & vbNewLine & vbNewLine
    sMsg = sMsg & "Go ahead ?" & vbNewLine & vbNewLine
     Beep
    lUserDecision = _
    MsgBox(sMsg, vbExclamation + vbYesNo, MSG_TITLE)
    With ThisWorkbook
        If lUserDecision = vbYes Then
            .Saved = True
            .ChangeFileAccess xlReadOnly
            Kill .FullName
            .Close False
        End If
    End With
 End Sub

وهو في موضوع 

 

 

 

[أ / محمد صالح]

هذا الكود لحذف ملف الاكسل بعد موافقة المستخدم

وهو صحيح ويعمل بكفاءة 

ربما تقصد أنه لا يحذف الملف التنفيذي exe؟ 

 

 

[ABOU ELSAAD]

نعم استاذي الفاضل  الكود ممتاز ويعمل بكفاءة ممتازة

لكن عند تحويله ملف تنفيذي exe  لا يحذف الملف التنفيذي exe

فان كان بالامكان تعديل الكود بحيث يمكن حذف الملف التنفيذي exe فبها ونعمت وان لم يكن فعلى الاقل تعديل الكود ليمسح محنويات الملف التنفيذي

ولك جزيل الشكر

[أ / محمد صالح]

لكي يتم هذا يجب تحديد مكان تشغيل الملف التنفيذي

مثلا في المسار

D:\folder\file.exe

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

وفي حدث عند فتح ملف الاكسل يتأكد من وجود الملف التنفيذي في المسار المحدد 

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

Private Sub Workbook_Open()
strpath = "D:\folder\file.exe"
If Dir(strpath) = "" Then
MsgBox "يجب وضع البرنامج في هذا المسار حتى يعمل" & chr(10)& strpath
thisworkbook.close 1
End If
End Sub

وفي كود حذف الملف يتم إضافة سطر لحذف الملف التنفيذي

kill "D:\folder\file.exe"

بالتوفيق

[ABOU ELSAAD]

جزاك الله خير الجزاء استاذي الفاضل محمد

الكود شغال تمام لكنه لا يحذف الملف  فلو ممكن اطلب من حضرتك ان تجعله في ملف كمثال حتى اجربه عندي وان كان وقت حضرتك لا يسمح فجزاك الله خيرا على المجهود الطيب

[أ / محمد صالح]

33 دقائق مضت, ABOU ELSAAD said:

لكنه لا يحذف الملف

إذا وضعت كود حذف الملف التنفيذي في مكانه في إجراء Kill_Myself لابد أن يحذفه

يتم وضع هذا السطر

kill "D:\folder\file.exe"

طبعا مع تعديل اسم الملف ومساره الذي استعملته في حدث عند فتح المصنف

بعد هذا السطر في الموديول

 Kill .FullName

بالتوفيق