بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
حماية جميع اوراق العمل مرة واحدة Excel VBA: Protect All Worksheets At One Step
حماية جميع اوراق العمل مرة واحدة Excel VBA: Protect All Worksheets At One Step
كود اليوم حماية جميع اوراق العمل مرة واحدة بضغطة زر
إذا كان لديك ملف اكسل ويحتوى على الكثير من أوراق العمل في
مصنف وتريد حماية جميع الأوراقمرة واحدة ، يمكنك استخدام هذا الكود .
يسمح لك هذا الكود بتحديد كلمة المرور داخل الكود.وايضا ستحتاج إلى كلمة المرور هذه لإلغاء حماية ورقة العمل.
الكود المستخدم
نشرح الكود بالتفصيل
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- ومن هنا انتهى شرح الكود