ما الخطأ في هذا الكود

[بلانك]

تنفيذ ماكرو في وجود جماية للورقة

ما الخطأ في هذا الكود.xlsm

[محمد حسن المحمد]

السلام عليكم أخي الكريم

أرجو أن يكون تصحيح الخطأ في هذا الملف

تقبل تحياتي

ما الخطأ في هذا الكود.xlsm

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته 

بعد ادن الاستاد @محمد حسن المحمد

Private Sub Workbook_Open()
MyPassword = ("123")
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.protect Password:=MyPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
Next
End Sub

 

ما الخطأ في هذا الكود.xlsm

تم تعديل يونيو 10, 2023 بواسطه Mohamed Hicham

[محمد حسن المحمد]

بارك الله بكم أخي الكريم @Mohamed Hicham وبعلمكم آمين

كان جوابي على قدر سؤال الأخ السائل إذ تم فصل الأسطر فيما بينها بأسطر فارغة في الكود المدرج من قبله

Private Sub Workbook_Open()
MyPassword = "123"
For Each MySheet In ActiveWorkbook.Sheets
MySheet.Protect _
Password:=MyPassword, _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
UserInterfaceOnly:=True
Next MySheet
End Sub

وبعد ضبط الكود كما يجب تمت تجربته وتزويد الأخ السائل به

أشكرك أخي الكريم على حسن استئذانك و لين جانبك ... وأزيدك من الشعر بيتاً أنني معجب بعلمك ومساعدتك للآخرين وهذا ما نتوسمه بالجميع ولذلك فإنني أغبطك وأسعد بذلك

تقبل تحياتي العطرة.

والسلام عليكم

تم تعديل يونيو 10, 2023 بواسطه محمد حسن المحمد

[ابوحبيبه]

حوار الكبار !

ليس في السن بل في العلم

واجمل مافي هذا المنتدى هو احترام الكل للكل ومساعدة الاخرين ... بارك الله فيكم وزادكم من علمه

ودمتم في خدمة العلم

[محمد حسن المحمد]

أشكرك أخي الكريم @ابوحبيبه على كلامك الطيب المشجع ،وأقول لك أخي الكريم ولكم بمثل ما دعوتم....آمين

نحن كما ذكرت نكبر ببعضنا ونتشارك العلم الذي وهبنا الله إياه ...وكما رأيت لكلِ أسلوبه ولذلك فإن هذا المنتدى هو مرتع خصب للتحصيل العلمي ولشرف الريادة والسبق في ميادين العلم

الذي قال الله تعالى عنه: (وقل ّربّ زدني علماً) وقال تعالى أيضاً : ( وفوق كل ذي علمٍِ عليمٌ)

جزاك الله خيراً على حسن الظن بإخوانك ، تقبل تحياتي العطرة

والسلام عليكم