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

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

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

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

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

 

تم تعديل سبتمبر 1, 2013 بواسطه دغيدى

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

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

هل من مجيب في ذلك الطلب ......؟

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

[أحمد فؤاد]

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

أخي العزير 

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

منع فتح الملف إذا تم نقله أو تغيير إسمه ومنع حفظه بإسم جديد.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

[ريان أحمد]

الرجاء مساعدتي في تطبيق الكود إسم الملف    contra   والمسار في القرص d

[أحمد فؤاد]

أخي ريان 

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

 MyFlName = "contra.xls"

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

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

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

MyPath = "d:\officena"

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

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ الكريم ...أحمد فؤاد

جزاكم الله خير على الافاده

[ريان أحمد]

طبقت اللشرح ولم ينجح

[طائع]

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

[أبو شرف]

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

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

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

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

اخوكم ابو شرف 

[أحمد فؤاد]

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

أخي ريان أحمد

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

أخي أبو شرف

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

بس في تنويه

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

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

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

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

[ريان أحمد]

لم ينجح

[أبو شرف]

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

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

مع التقدير 

[أبو حنــــين]

السلام عليكم

هذا مثال على الكود

 

مثال.rar

[ريان أحمد]

حربت الخطوات ولم تنجح

 

 

 

---أستاذي عندي طلب مساعدة أرسلتها لك على الخاص

تم تعديل سبتمبر 14, 2013 بواسطه ريان أحمد

[ريان أحمد]

للرفع

[kmgh]

السلام عليكم

هذا مثال على الكود

 

 

السلام عليكم

 

شكراً على الكود لقد نجحت العملية

 

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

وشكراً

[ريان أحمد]

طبقت الخطوات ولم ينجح

 

الرجاء الشرح بالفيديو

[ريان أحمد]

up

[ريان أحمد]

up

[ابو مازن المصري]

السلام عليكم

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

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

 

تم تعديل أكتوبر 25, 2013 بواسطه mohammd goda

[hussein elrashedy]

طبقت ماسبق طلع الكلام مضبوط ولكن المشكلة فى ضبط امان الماكرو

[hussein elrashedy]

طبقت ماسبق طلع الكلام مضبوط ولكن المشكلة فى ضبط امان الماكرو