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

[ابو طيبه]

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

تعديل كود حماية الصفحات-1.xls

[ابو طيبه]

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

 

تعديل كود حماية الصفحات).xls

[حسين مامون]

اخي الكريم

تم ادخال بعض التعديلات في كود الحماية واضافة كود الغاء الحماية اتنمى ان يكون هذا في مستوى تطلعاتك

تحياتي

الباس pwd

تعديل كود حماية الصفحات-1 (2).xlsm

[ابو طيبه]

شكرا جزيلا استاذ حسين  الان الكود يعمل ١٠٠% بارك الله بيك على جهودك ومساعدتك الأعضاء في هذا المنتدى الجميل. 

هل يمكن جعل الباسورد يكون بشكل نجوم وليس ارقام

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

[حسين مامون]

الحمد لله  ان تم الامر على خير

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

جرب المرفق

تعديل كود حماية الصفحات-1 (2).xlsm

[ابو طيبه]

شكرا جزيلا استاذ وبارك الله بيك الله يكثر من امثالك الله يحفظ احبابك ويرحم امواتك