بلانك قام بنشر يونيو 10, 2023 قام بنشر يونيو 10, 2023 تنفيذ ماكرو في وجود جماية للورقة ما الخطأ في هذا الكود.xlsm
محمد حسن المحمد قام بنشر يونيو 10, 2023 قام بنشر يونيو 10, 2023 السلام عليكم أخي الكريم أرجو أن يكون تصحيح الخطأ في هذا الملف تقبل تحياتي ما الخطأ في هذا الكود.xlsm 2
محمد هشام. قام بنشر يونيو 10, 2023 قام بنشر يونيو 10, 2023 (معدل) وعليكم السلام ورحمة الله تعالى وبركاته بعد ادن الاستاد @محمد حسن المحمد 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 3
محمد حسن المحمد قام بنشر يونيو 10, 2023 قام بنشر يونيو 10, 2023 (معدل) بارك الله بكم أخي الكريم @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 بواسطه محمد حسن المحمد 3
ابوحبيبه قام بنشر يونيو 10, 2023 قام بنشر يونيو 10, 2023 حوار الكبار ! ليس في السن بل في العلم واجمل مافي هذا المنتدى هو احترام الكل للكل ومساعدة الاخرين ... بارك الله فيكم وزادكم من علمه ودمتم في خدمة العلم 2
محمد حسن المحمد قام بنشر يونيو 10, 2023 قام بنشر يونيو 10, 2023 أشكرك أخي الكريم @ابوحبيبه على كلامك الطيب المشجع ،وأقول لك أخي الكريم ولكم بمثل ما دعوتم....آمين نحن كما ذكرت نكبر ببعضنا ونتشارك العلم الذي وهبنا الله إياه ...وكما رأيت لكلِ أسلوبه ولذلك فإن هذا المنتدى هو مرتع خصب للتحصيل العلمي ولشرف الريادة والسبق في ميادين العلم الذي قال الله تعالى عنه: (وقل ّربّ زدني علماً) وقال تعالى أيضاً : ( وفوق كل ذي علمٍِ عليمٌ) جزاك الله خيراً على حسن الظن بإخوانك ، تقبل تحياتي العطرة والسلام عليكم 4
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.