السلام عليكم ،،
أخي العزيز قطان ضع الكود التالي في حدث Workbook_Open
'For Each MySheet In ActiveWorkbook.Sheets
' MyPass = "123"
' MySheet.Protect _
' Password:=MyPass, _
' DrawingObjects:=True, _
' Contents:=True, _
' Scenarios:=True, _
' UserInterfaceOnly:=True
'Next MySheet
هذا الكود سيجعل جميع أوراق الملف محمية تلقائياً دون أن يتأثر عمل الأكواد الأخرى
مع العلم أن كلمة سر فك الحماية هي كما مذكورة في الكود (123)