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

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


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

السلام عليكم

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

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

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

 

تم تعديل بواسطه دغيدى
  • 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...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information