اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود يمنع نسخ الملف


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

السلام عليكم

الاساتذة الكرام ..... الاخوة الكرام

هلى من كود يمنع نسخ الملف او حذفه

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

 

تم تعديل بواسطه دغيدى
  • Like 1
رابط هذا التعليق
شارك

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

أخي العزير 

هذا كود لأحد الزملاء قد يفي غرضك إن شاء الله

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

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

أخي أولا حدد مسار الملف الذي ستضع فيه الكود وضعه

MyPath = "Z:\SHARED GENERAL"

وكذلك إسم الملف

 MyFlName = "TEST-1.xls"

ثم ضع هذين الكودين في ThisWorkbook

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
رابط هذا التعليق
شارك

أخي ريان 

في الجزء الخاص بإسم الملف سيكون 

 MyFlName = "contra.xls"

بإفتراض أن إمتداد الملف xls

سيتم تسمية فولدر في D بإسم officena

سيكون إمتداد الملف كالتالي

MyPath = "d:\officena"

وبقية الكود كما هو لن يتم به أي تغيير

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

اخواني الأعزاء لاهمية الموضوع بالنسبة لنا ولكثيرين من الأعضاء الكرام 

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

لان بصراحة جربنا وحاولنا ولا فائدة لم نستطيع تطبيق الكود حيث الملف لا يعمل نهائي بعد ادراج الكود وحسب التعليمات اعلاه 

تمنياتي للجميع بدوام الصحة ولمزيد من العطاء . مع التقدير 

اخوكم ابو شرف 

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

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

أخي ريان أحمد

أخي هاني أبو أدهم

أخي أبو شرف

جربت الملف والكود أكثر من مرة والكود شغال تمام

بس في تنويه

أولا : وهو إمتداد ملف الإكسل لابد أن يكون مطابق في الكود أي xls أو xlsx أو xlsb وهكذا

ثانيا : وهو مكان الملف لابد يكون مطابق لما في الكود 

وسيكون الملف جاهز

أخوكم : أحمد فؤاد 

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

اخواني الأعزاء هذا الموضوع مهم جدا الفائدة للجميع 

هل بالأمكان من اي عضو او مشرف ان يضع لنا شرح بالفديو للعملية لان حاولت كثيرا وطبقت كل ما مكتوب ودون جدى الملف لا يفتح عندي 

مع التقدير 

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

  • 4 weeks later...

السلام عليكم

الاساتذة الكرام ..... الاخوة الكرام

هل من كود يمنع تنقل الخليةالتي ادخال البيانات فيها الي الخليةالتالية بعد الضغط علي Enter بشرط يتم تنفيذه علي الملف فقط وليس الاكسيل  ككل

 

تم تعديل بواسطه mohammd goda
رابط هذا التعليق
شارك

  • 11 months later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information