بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
نقدم لكم اليوم كود مهم جدا من اكواد ورقة العمل فى مصنف الاكسيل worksheets code
وهو كيفية حماية جميع اوراق العمل دفعه واحدة من خلال باسورد او كلمة سر
من خلال هذا الكود نقوم بتعريف متغير نصى من نوع string
وهذا المتغير سوف نقوم فية بتعيين قيمة الباسورد لتى سنصعها لجميع اوارق العمل
ولكن احذر من حساسية الاحرف سواء انت كبيرة او صغيرة
وسيتم ذلك من خلال فتح مربع النص InputBox لادخال الباسورد فية
بعد تعيين قيمة الباسورد سوف يتم عمل حلقة تكرارية فى جميع اوراق العمل فى المصنف الخاص بنا والتى اخترنا المتغير ws لتمثليها
يتم المرور على كل شيت واضافة الباسورد لة
Dim ws As
Worksheet
Dim ps As
String
ps =
InputBox("Enter a Password.", vbOKCancel)
For Each ws
In ActiveWorkbook.Worksheets
ws.Protect
Password:=ps
Next ws
End Sub