الحفاظ على ملف اكسل

[محمد الوحيلي]

السلام عليكم 

لدي ملف اكسل يحتوي على جداول 

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

هل توجد طريقه ان ينسخ الملف مره واحده فقط

او منع الخرين من رويه الدوال او نسخها 

الملف فيه دالة وكود لا اريد احد ان ياخذها 

[محمد الوحيلي]

ارجو المساعدة 

[Ali Mohamed Ali]

الكود التالي يحدف الملف بعد مرة واحدة من استعماله تلقائيا و بدون اشعار المستخدم !
ضع الكود في 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

ينصح اقفال الكود بباسوورد لمنع المستخدم من رؤية او حدف الكود