الاخ الحبيب ابو نصار شكرا علي هذه المعلومه القيمه ولكن حين جربتها وصلت الي الاكواد الاتيه لان الاكواد الاولي لم تعمل بشكل كامل معي
لو كانت كلمت السر 123 يكون الكود كالاتي:
ActiveSheet.Unprotect Password:="123"
البرنامج
ثم
ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True