الجمعة، 20 سبتمبر 2019

حماية جميع اوراق العمل مرة واحدة Excel VBA: Protect All Worksheets At One Step

بسم الله الرحمن الرحيم


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


يسمح لك  هذا الكود بتحديد كلمة المرور داخل الكود.وايضا  ستحتاج إلى كلمة المرور هذه لإلغاء حماية ورقة العمل.

الكود المستخدم
نشرح الكود بالتفصيل
1- نعرف متغيرين وهم ws و password
2- نضع قيمة المتغير password

Dim ws As Worksheet
Dim password As String
password = "Test123"
3- نعمل حلقة تكرارية For Each الغرض منها على جميع اوراق العمل داخل ملف العمل لحمايتها 
For Each ws In Worksheets
   ws.Protect password:=password
Next ws
End Sub
4- ومن هنا انتهى شرح الكود 


هناك تعليق واحد:

من نحن

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

التصنيفات

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

الاسم

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

رسالة *

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