بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع ومدونة عالم الاوفيس
كود مهم جدا من اكواد macro excel فى برنامج excel 2010 وهو كود حماية جميع اوراق العمل بباسورد من خلال macro معين
نتفترض انا عندنا ملف عمل مكون من عدد من الشيتات ونريد ان نحمى جميع الشيتات بباسورد فبالتالى سوف نذهب الى شريط الادوات ونختار review ونختار protect sheet فى كل مرة
ولكن هذا الامر مرهق جدا ولذلك وجب علينا ان نجد كود يسهل علينا حماية جميع اوراق العمل دفعة واحده
كيف نقوم بعمل هذا الكود
ندخل على محرر الاكواد ونفتح visiual basice ونعمل وحدة نمطية جديدة insert modoule
ونبدا نعرف المتغيرات التى لدينا
dim ws as worksheet
ودة بيعبر عن كل اوراق العمل الموجودة عندى فى ملف العمل
dim pass as string
وهذا المتغير سوف نضع فية كلمة السر
والخطوة الاولى سوف نقوم بوضع قيمة المتغير pass
pass=inputbox"ادخل كلمة السر"
ثم نقوم بعمل حلقة تكرارية
for each ws in activeworkbook.worksheets
ws.protect password:=pass
next ws
وهى هذة الحلقة التكرارية سوف يقوم بالمرور على كل اوراق العمل ويقوم بحمايتة اوتوماتيكا بنفس كلمة السر
والمفيد فى هذا الماكرو انة يوفر الوقت والمجهود بطغطة زر واحدة يقوم بتنفيذ العديد من المهام بسرعة فائقة .
وسوف نتعرف ان شاء الله فى الدرس القادم على كيفية الغاء الحماية عن كل اوراق العمل
اذا اعجبك الكود لاتنسى مشاركتة مع اصدقائك