كود VBA اكسل - لا يمكن فتح ملف الاكسل على اي جهاز كمبيوتر حتى يتم السماح له بذلك

[CFAMURAD]

كود VBA  اكسل - لا يمكن فتح ملف الاكسل على اي جهاز كمبيوتر حتى يتم السماح له بذلك

[محمد هشام.]

يمكنك وضع الكود التالي في  Private Sub Workbook_Open

Private Sub Workbook_Open()
' هنا اسماء الاجهزة المسموح للمصنف الاشتغال عليها

If Environ("computername") <> "CFAMURAD" And Environ("computername") <> "Officena" Then

'عند عدم تحقق الشرط يتم اظهار الرسالة وغلق الملف
    
  Application.DisplayAlerts = False
    MsgBox " لا يمكنك تشغيل هدا المصنف على هدا الكمبيوتر " & _
         vbLf & vbLf & "  .......... المرجوا الاتصال", _
         vbOKOnly + vbExclamation + vbDefaultButton1 + vbApplicationModal, "معلومات"
    ThisWorkbook.Close
   Application.DisplayAlerts = True
End If
End Sub

يستحسن وضع باسوورد لمحرر الاكواد لكي لا يتم التلاعب بالملف 

 

 

 

فتح المصنف على اجهزة محددة.rar

[CFAMURAD]

هل يمكن عمل ذلك من خلال UUID ?