السلام عليكم ...
يمكنك ذلك عن طريق كود VBA وباستخدام الأسلوب Protect ، والشفرة التالية تحل مشكلتك :
Sub password()
' إجراء لحماية كافة الأوراق الموجودة في مصنف دفعة واحدة
' "كلمة السر هي "بسم الله
Dim password As Worksheet
For Each password In ActiveWorkbook.Worksheets
password.Protect password:="بسم الله", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next password
End Sub
الأسلوب Protect يحتوي على عدد كبير من البارامترات يمكنك الإطلاع عليها من خلال نظام المساعدة الموجود في محرر الفيجوال ، واستخدامك لهذه البارامترات يتوقف على نوعية الحماية التي ترغبها في ورقة العمل ...