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

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

قام بنشر

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

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

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

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

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

ووشكرا

و

  • 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

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

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

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

Important Information