اسم المستخدم و كلمة سر

[خالد الشاعر]

السادة الخبراء برجاء المساعدة

مشكلة مع تغيير كلمة السر لا يقبل حماية الملف هذا التغيير

كلمة السر khaled 456

عند تغيير كلمة سر المستخدم لا يقبل حماية الملف هذا التغيير

ولكم كل الشكر

password_22.rar

[نزار سليمان عيد]

السلام عليكم

عدل في الموديول السطر الاول ليصبح

MyPassword = Sheets("khaled").Cells(5, 2)

هذا مافهمته من سؤالك

انظر للمرفق بعد التعديل

مع الشكر

ابو خالد

password_22.rar

[خالد الشاعر]

استاذ / نزار سليمان

شكرا على اهتمامك وردك على الموضوع

ولكن لسة المشكلة موجودة لما تغير اسم و رقم سرى للمستخدم

جرب الملف تانى وسوف ترى

شكرا للمرة الثانية

[عبدالله باقشير]

السلام عليكم

عند تغيير كلمة سر المستخدم لا يقبل حماية الملف هذا التغيير

عند اجراء التغيير لكلمة المرور

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

ثم اعادة الحماية بكلمة المرور الجديدة

============================

مرفق ملف بعد اجراء بعض الاختصارات و التغييرات في الكود

password_21.rar

تم تعديل أبريل 11, 2009 بواسطه خبور خير

[محمدي عبد السميع]

نورت المكان يابطل

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

[عبدالله باقشير]

السلام عليكم

اخي الحبيب محمدي حفظه ربي

الله ينور عليك دنيا وآخرة

تقبل تحياتي وشكري

[محمدي عبد السميع]

[خالد الشاعر]

استاذ / خبور

الف الف شكر وحشنا غيابك و تسلم ايدك

ممكن بعض التوضيح للماكرو لدى بعض الاسئلة

الغاء الحماية ماذا يعمل

MyPassword = myRang.Range("A2").Text

يقصد بـ A2 تانى خلية من pasp ام ماذا

ولك الف شكر يا استاذ خبور

[عبدالله باقشير]

السلام عليكم

و تسلم ايدك

الله يسلمك اخي الكريم

الغاء الحماية ماذا يعمل

يقوم بالغاء الحماية بكلمة المرر القديمة

التي هي موجودة في الخلية A2 من النطاق pasp

لانه لا يمكن اغلاق اي شي بقفل جديد وهو مغلق بقفل آخر من سابق

يقصد بـ A2 تانى خلية من pasp ام ماذا

نعم

راجع دروس الاخ هاجر المصري ستفيدك كثيرا بهذا الشان