اذهب الي المحتوي
أوفيسنا

حماية ملف الاكسل من النسخ


فضل
إذهب إلى أفضل إجابة Solved by Ali Mohamed Ali,

الردود الموصى بها

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

ارجو من سيادتكم المساعدة للوصول الى حل لمنع نسخ ملف الاكسل من على الجهاز الموجود عليه الى جهاز اخر .

ويوجد عند فكرة هل يمكن مثلا ربط ملف الاكسل مثلا بالسريل نمبر الخاص بالهارد ديسك الخاص بالجهاز.

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

المهم هل يمكن فعل هذا او غيره لحماية الملف من النسخ من جهاز الى جهاز اخر .

ووشكرا

و

  • Thanks 1
رابط هذا التعليق
شارك

الاستاذ الفاضل جمال دغيدي

بالفعل الملف جميل جداً ولكن يمكن التغلب علىالكود بتعديل مستوى امان الميكرو الى مرتفع وسيتم تعطيل الميكرو والدخول الى الملف وحفظه ونسخه بسهوله ارجو ان يكون هناك حل لهذه المشكة

ابو حمد

  • Like 1
رابط هذا التعليق
شارك

حقا كما قال الأستاذ ولد مجرب

كود روعة لكن فيه ثغرة أمان

----------------------------

وإدا كان البرنامج فيه زر يعمل نسخة إحتياطية هل سينجح في عملها

وإذكان البرنامج فيه كود يعمل نسخة إحتياطية للبرنامج مجرد إغلاقه هل سينجح

رابط هذا التعليق
شارك

استاذى الفاضل / دغيدى

الف شكر ياحبيبى على الملف الجميل وجزاك الله كل خير

ولكن انا عندى فكرة لتفادى ثغرة الامان وهى ايه رايك لو تحول الملف الى ملف تنفيذى

ووبالتالى لايظهر مربع مستوى الامان فى اول التحميل وبكدة نكون انتهينا من ثغرة الامان .

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

ارجو من سيادتكم التفكير فى الفكرة والمساعدة فى تحويل الملف الى تنفيذى .

الف شكر ياحبيبى للمرة الثانية وجزاك الله كل خير .

رابط هذا التعليق
شارك

اضغط هنــــــــا

استاذى الفاضل / دغيدى

الف شكر ياحبيبى على الملف الجميل وجزاك الله كل خير

ولكن انا عندى فكرة لتفادى ثغرة الامان وهى ايه رايك لو تحول الملف الى ملف تنفيذى

ووبالتالى لايظهر مربع مستوى الامان فى اول التحميل وبكدة نكون انتهينا من ثغرة الامان .

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

ارجو من سيادتكم التفكير فى الفكرة والمساعدة فى تحويل الملف الى تنفيذى .

الف شكر ياحبيبى للمرة الثانية وجزاك الله كل خير .

هذا اقل شي نساعد به ....

البرنامج المطلوب ""تحويل ملف الاكسيل الى تنفيذى ثم تنصيب الملف بالصور ""

الشرح والبرنامج من انتاج هذا الموقع المبدع

يمكنك تحميلة بالكامل على الرابط التالي

http://www.4shared.com/file/Aex4xTln/________.html

رابط هذا التعليق
شارك

  • 2 weeks later...
  • 1 year later...

السلام عليكم

رااائع استاذنا / دغيدي ... جزاك الله خيرا

وفكرة اخونا /  فضل   .... جزاك الله خيرا

فكرة جميله

جزاكم الله خيرا

رابط هذا التعليق
شارك

الاخوه الافاضل

موضوع مهم وشيق

ولكن لى فكره

لتنفيذ المطوب

يمكن اضافة كود منع فتح الملف فى حالة عدم تفعيل الماكرو

وبذلك اذا تم تقليل مستوى الامان كما ذكر الاستاذ الفاضل دغيدى

فلن يتم فتح الملف اساسا

والله اعلم

وفى انتظار ردود عمالقه المنتدى

رابط هذا التعليق
شارك

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

حماية برقم الهارد ديسك.rar

  • Like 4
رابط هذا التعليق
شارك

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

ملف رائع رغم عدم التجربة

جزاك الله خيرا على التقاسم و بارك في صاحبه

رابط هذا التعليق
شارك

  • 3 weeks later...
  • 2 months later...
  • 2 weeks later...

وظف أخي لغة الاوتوبلاي  و أمنع استعمال التجميعة إلى على جهاز المستخدم

بعد استخلاص أرقام معينة من الهارد  لتعطيه رقما خاصا به  لا يعمل إلا على جهازه

تضع الملف تحت أحد الازرار  على  أن تفرض تخفيض في مستوى الامان برمجيا

جهز ورقة الايكسل فقط بعدم  حفظ باسم  أما الباقي من نسخ او سحب و افلات  أو الدخول

إلى التومب فهذا تستطيع التحكم فيه  و شفر ملف الايكسل تشفير أحاديا 

 

وفقكم الله

  • Like 1
رابط هذا التعليق
شارك

  • 2 years later...
  • 2 years later...

حاولت تطبيق الملف بيقفل الملف المحفوظ اصلا ما الحل من فضلكم

 

وطبقت الكود ده 
 

Private Sub Workbook_Open()
Dim MyPath As String

 MyPath = "Z:\SHARED GENERAL"
 
  If ThisWorkbook.Path <> MyPath Then
      Application.DisplayAlerts = False
    ThisWorkbook.Close
 
   
   End If
Dim MyFlName As String
  MyFlName = "TEST-1.xls"
 
    If ThisWorkbook.Name <> MyFlName Then

    Application.DisplayAlerts = False
    ThisWorkbook.Close
  End If
End Sub
Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim lReply As Long

  If SaveAsUI = True Then

lReply = MsgBox("ÚÝæÇð áÇíãßäß ÍÝÙ åÐÇ ÇáãáÝ ÈÅÓã ÌÏíÏ .. åá ÊÑíÏ ÍÝÙ ÇáãáÝ ÈÅÓãå ÇáÍÇáí ¿", vbQuestion + vbOKCancel)

     Cancel = (lReply = vbCancel)

   If Cancel = False Then Me.Save

     Cancel = True

  End If

End Sub
 

منع فتح الملف إذا تم نقله أو تغيير إسمه ومنع حفظه بإسم جديد.xls

رابط هذا التعليق
شارك

  • 1 month later...
  • 9 months later...
في ١٣‏/٣‏/٢٠١٣ at 23:47, يوسف السيد said:

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

حماية برقم الهارد ديسك.rar

طيب انا لو غيرت السيريل اقدر افتح الشيت تانى ازاى علشان اعمل السيريل الصحيح

رابط هذا التعليق
شارك

  • أفضل إجابة

تفضل حل بسيط وبدون برامج

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

http://www.ensode.net/xls-crack.jsf

 

Untitled.png

  • Like 3
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information