الكود التالي يحدف الملف بعد مرة واحدة من استعماله تلقائيا و بدون اشعار المستخدم !
ضع الكود في ThisWorkbook Module
Option Explicit
Private Const MAX_USES As Long = 1
Private Sub Workbook_Open()
Dim lNumberOfUses As Long
On Error Resume Next
lNumberOfUses = Evaluate("NumberOfUses")
If Err.Number = 13 Then
Me.Names.Add "NumberOfUses", 1, False
Me.Save
Exit Sub
End If
Me.Names.Add "NumberOfUses", Evaluate("NumberOfUses") + 1, False
Me.Save
If Evaluate("NumberOfUses") > MAX_USES Then Kill_Myself
End Sub
Private Sub Kill_Myself()
With Me
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End Sub
ينصح اقفال الكود بباسوورد لمنع المستخدم من رؤية او حدف الكود