جزاك الله خيرا استاذ محمد
بالنسبة لمضاد الفيروسات فهو يتعامل مع ملف تحويل الاكسل على انه فيروس ( علما باني قمت بتحميله من موضوع تحويل الاكسل الى ملف تنفيذي بالمنتدى
وبالنسبة للكود
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
وهو في موضوع