منع تغيير اسم الملف

[احمد ابوزيزو]

الساده الاعضاء

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

هل من طريقة لمنع مستخدم اخر من تعيير اسم الملف

لارتباط هذا الملف بملف لدي (وذلك لزوم تحديث البيانات)

[سليم حاصبيا]

استاذ احمد /صباح الخير

لا أعلم اذا كنت تعرف هذه الطريقة اولا

تستطيع ان تحمي الملف ضد التغيير وذلك كما يلي:

بعد فتح الملف  اضغط  F12 >>> من مربع Tool في النافذة(جنب save) اختر
general options>>>>> pssword to modify تضع كلمة سر  وتعيدها (اذا اردت تستطيع ان تجعله للفراءة فقط

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

[أبو سجده]

اخى العزيز الفاضل الاستاذ // احمد ابو زيزو

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

بارك الله فيكم  وجزاكم الله خيرا

ارجو من الله تعالى أن يفى هذا المرفق طلب سيادتكم

NO COPY

NO PASTE

NO SAVE AS

وافر تقديرى واحترامى لسيادتكم

تم تعديل مايو 4, 2014 بواسطه سعيد بيرم

[محمود_الشريف]

بعد اذن اخوانى فى الله

الأستاذ / سليم حاصبيا

وأستاذي القدير // سعيد بيرم

هناك طرق مختلفه بالأكواد

منها

منع الحفظ بإسم ومنع النسخ واللصق تحت هذا الرابط

http://www.officena....743#entry229244

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

http://www.officena.net/ib/index.php?showtopic=51337

 

وتقبل منى وافر الاحترام والتقدير

[احمد ابوزيزو]

السادة الافاضل الكرام

الاستاذ / سليم

الاستاذ / سعيد

الاستاذ /محمود

شكرا علي اهتمام سيادتكم بالموضوع

وآسف اني لم اوفق في توضيح  الطلب كما ينبغي

الموضوع مثلا ملف اسمه حي شرق ( به ثلاث ورقات مصروفات + ورقة تسويات )

هذا الملف يتم اعداده من قبل حي شرق ( وله امكانية تغيير البيانات بداخل الملف  اوتعديلها )

وفي نفس الوقت هناك ملف اسمه المراقبة المالية ( به نفس الثلاث ورقات مصروفات الخاصه بحي شرق + اوراق مصروفات اخري )

بدلا من اعادة تفريغ البيانات الخاصة بحي شرق في ملف المراقبه الماليه تم ربط ملف المراقبة المالية بملف حي شرق ( لصق ارتباط )

وبالتالي عند فتح ملف المراقبه سوف تظهر رساله التحديث

المطلوب هو

عدم امكانية تغير اسم الملف ( الخاص بحي شرق تغيير الاسم فقط ) من قبل حي شرق

حتي تتم عملية تحديث البيانات بالنسبة لملف المراقبه

ارجو ان اكون وفقت في توضيح الصوره

وشكرا مقدما

[أبو سجده]

الاستاذ العزيز الفاضل // احمد ابو زيزو

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

أولاً يجب على سيادتكم تحديد أسم الملف الذي تريد تثبيت أسمه في اول الكود

كما بالمثال   "zizo_Xl"

تقبل وافر احترامى وتقديرى

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

Private Const Nm_Fil As String = "zizo_Xl"

Option Explicit
'======================================================
Private Const Nm_Fil As String = "zizo_Xl"
Sub auto_open()
Dim NewName As String, MyBook As String, MyPath As String, MyTyp As String, MyName As String
'============================
On Error GoTo Err_kh_Name
'============================
If Nm_Fil <> ThisWorkbook.Name Then
'============================
With ThisWorkbook
    MyBook = .Name
    MyPath = .Path & Application.PathSeparator
End With
MyTyp = Mid$(MyBook, InStrRev(MyBook, "."))
MyName = Replace(MyBook, MyTyp, "")
'============================
NewName = MyPath & Nm_Fil & MyTyp
If Dir(NewName, vbDirectory) = vbNullString Then
    ThisWorkbook.SaveAs Filename:=NewName
    Kill MyPath & MyBook
    MsgBox "تم إسترجاع اسم الملف", vbOKOnly, "الحمدلله"
End If
'============================
Err_kh_Name:
If Err Then
    MsgBox "Err.Number : " & Err.Number
    Err.Clear
End If
End If
End Sub

تم تعديل مايو 4, 2014 بواسطه سعيد بيرم

[احمد ابوزيزو]

الاستاذ المحترم / سعيد

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

شكرا لاهتمامكم

                    تم تنفيذ المطلوب بالكود المرسل

تقبل وافر تحياتي للجميع

[أبو سجده]

اخى العزيز الاستاذ الفاضل // احمد ابو زيزو

السلام عليكم

بما أننا أبناء عمومه فى مجال عمل واحد

فأدركت المطلوب مع توضيحكم المشار اليه عاليه

وفقكم الله تعالى وسدد على طريق الخير خطاكم

تقبل وافر احترامى وتقديرى وجزاكم الله خيرا