اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

تم تعديل بواسطه Mohamed Hicham
  • Like 3
رابط هذا التعليق
شارك

بارك الله بكم أخي الكريم @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

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

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

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

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

تم تعديل بواسطه محمد حسن المحمد
  • Like 3
رابط هذا التعليق
شارك

حوار الكبار !

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

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

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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

  • Like 4
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information