منع فتح الملف والحفظ

[أبو شرف]

بسم الله الرحمن الرحيم

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

اخوكم

ابو شرف

[يوسف عطا]

الرجاء من أحد المشرفين الأفاضل حذف هذا الموضوع أو دمجه مع موضوع آخر لنفس اليوزر بنفس الإسم لأنه مكرر

[أبو شرف]

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

اخوكم ابو شرف

[أبو شرف]

بسم الله الرحمن الرحيم

اخواني الأعزاء مشرفين واعضاء الموقع الكرام

ارجو مساعدتي في هذا الملف حيث اني وجته مشاركة في الموقع وعندما جئت اطبق خاصية منع اللصق والتغير الأسم ( اي العمل على مسار واحد ) لم افلح ولم اعرف كيف اني اشتغل الملف على مسار واحد والغي خاصية المنع اتمنى مساعدتي قدر الأمكان مع شيء من التوضيح والشرح على الكود وتقبلوا احترامي

اخوكم ابو شرف

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

[الـعيدروس]

السلام عليكم

بعد تعديل المسار ونوع الملف

إنسخ الكود إلى حدث المصنف ThisWorkbook

Private Sub Workbook_Open()

Dim MyPath As String

'*****************************

' مسار الملف

  MyPath = "D:\SHARED GENERAL" ' هنا

'*****************************

  If ThisWorkbook.Path <> MyPath Then

	  Application.DisplayAlerts = False

    ThisWorkbook.Close

   End If

Dim MyFlName As String

'*******************

' نوع الملف 2003 او 2007

  MyFlName = "TEST-1.xls" ' 2003 = xls : 2007 = xlsm

'*******************

    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

[أبو شرف]

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

اخوك ابو شرف

[منياوى]

الف الف شكر

[أبو محمد عباس]

السلام عليكم

اخي العزيز jo11 الملف يعمل بعد نسخ كود الاستاذ ابونصار حفظه الله لكن من الضروري عند تحميل الملف تختار ان تحفظه في القرص D حتى يعمل الملف

ولايمكن تغيير مساره او حفظه باسم

مع دعواتي لك بالموفقية والنجاح

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

تم تعديل ديسمبر 14, 2012 بواسطه عباس السماوي