كود لغلق جميع او فتح جميع الشيتات فى الملف مرة واحدة بباسورد

[siso3]

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

فى البداية: احب ان اقدم شكرى وتحياتى  لجميع اعضاء وافراد المنتدى لما يقدموه من اسهامات ومجهودات فى عطائاتهم الوفيره والغزيره وجزاكم الله عنا خير الجزاء.

ثانيا: انا موظف حكومى بشتغل ببرامج الاكسيل بنظام اليوميات يعنى ملف الاكسيل الواحد بيكون 31شيت ب31يوم فى الشهر

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

المشكلة: انى عندما اريد اجراء اى تعديلات على الملف اضطر الى فتح الحماية عن جميع الصفحات واجراء التعديل واعادة اغلاقها مرة اخرى وهى عملية مملة وتاخذ الكثير من الوقت

الطلب : والمطلوب لو فيه كود لغلق و فتح جميع الشيتات فى الملف مرة واحدة بباسورد اكون شاكر جدا

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

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

[محي الدين ابو البشر]

ممكن

Sub protect_sh()
Dim i
For i = 1 To Sheets.Count
Sheets(i).protect "ggg" '<<< كلمة السر
Next
End Sub


Sub unprotectsh()
Dim i
For i = 1 To Sheets.Count
Sheets(i).unprotect "ggg" '<<< كلمة السر
Next
End Sub

 

[siso3]

اخى الفاضل

كما تعودت منكم دائما علم واسع وعطاء بلا قيود

""زادكم الله من علمه ونفعكم بما تعلمتم ونفعنا بما تعلمنا منكم وجزاكم الله عنا خير الجزاء""

مشكور كتير على الكود يعمل بشكل ممتاز

ولكن المشكلة انه بيقفل كل الشيت ويفتحها بدون مايطلب منى ادخل الباسوورد

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

لو فيه طريقة يبقى اكثر من ممتاز

ولو مافيش يبقى برضه مافيش مشكلة ولك منى جزيل الشكر 

[محي الدين ابو البشر]

بسيطة

Sub protect_sh()
Dim i&
Dim p As String
p = InputBox("ÃÏÎá ßáãÉ ÇáÓÑ")
For i = 1 To Sheets.Count
Sheets(i).Protect p
Next
End Sub


Sub unprotectsh()
Dim i&
Dim p As String
p = InputBox("ÃÏÎá ßáãÉ ÇáÓÑ")
For i = 1 To Sheets.Count
Sheets(i).Unprotect p
Next
End Sub

 

[siso3]

استاذى الفاضل محي الدين ابو البشر

شكرا جزيلا لحضرتك 

الكود يعمل بكفائة "ممتاز"

اسف جدا لتعبك معاية 

واسف للتاخير فى الرد

وفى الاخير تحياتى واحترامى لحضرتك وللجميع

[محي الدين ابو البشر]

الحمد لله

ولك تحياتي وكل عام وأنتم بخير

[siso3]

استاذى الفاضل محي الدين ابو البشر

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

ولى طلب اخير من حضرتك هلى يمكن ان لا اجعل الباسوورد ظاهر يكون على شكل نجوم اثناء كتابته

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

واخيرا لك من خالص التحية وجزيل الشكر

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