الاثنين، 27 مايو 2019

التشفير وحماية البيانات macro excel

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

درس اليوم مفيد جدا ومهم وكود مميز من مكتبة اكواد macro excel
 كود مهم جدا من اكواد  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 

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

هناك تعليقان (2):

  1. كود قصير وممتع كعادتك استاذ عماد مواضيع رائعة بجد

    ردحذف

من نحن

authorمرحبا، أسمي عماد غازى وهذه مدونتي أسعى دائما لأقدم لكم أفضل المواضيع الخاصة بالاوفيس
المزيد عني →

التصنيفات

نموذج الاتصال

الاسم

بريد إلكتروني *

رسالة *

إجمالي مرات مشاهدة الصفحة