خالد القدس قام بنشر يونيو 25, 2021 مشاركة قام بنشر يونيو 25, 2021 الاساتذة الاجلاء ..السلام عليكم ورحمة الله , ان شاء الله الجميع بخير وعلى احسن حال ..تعلمت منكم الكثير فجزاكم الله خير الجزاء وارجو المساعدة في هذا الكود الذي يقوم في البداية بالغاء تفعيل مشاركة الملف --- والمطلوب اعادة تفعيل المشاركة في نهاية الكود لو امكن Sub akhq() ActiveWorkbook.ExclusiveAccess Sheets("Data").Select Cells.Select Selection.EntireColumn.Hidden = False Columns("A:B").Select Columns("A:C").Select Selection.EntireColumn.Hidden = True Columns("F:O").Select Selection.EntireColumn.Hidden = True Columns("Q:U").Select Selection.EntireColumn.Hidden = True Range("P2").Activate End Sub رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر يونيو 26, 2021 مشاركة قام بنشر يونيو 26, 2021 اخي الكريم على الرغم انه ليس لدي تجربة في مشاركة الملفات ولكن من الكود لا يوجد دليل الملف الذي تم مشاركته عموما جرب هذا السطر ActiveWorkbook.SaveAs FileName, , , , , , xlShared يجب الاعلان عن متغير لدليل الملف ثم تقوم بتعيينه 2 رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر يوليو 2, 2021 الكاتب مشاركة قام بنشر يوليو 2, 2021 كود اكثر من رائع بس لما استخدمته هكذا ActiveWorkbook.xlShared بيجيب رسالة لحفظ الملف اذا كان اسم الملف هو 2021 ومسار حفظه هو C:\Users\kj\Desktop\WOW كيف يكون الكود بحيث ما يجيب رسالة حفظ مع خالص الشكر والتقدير وجزاك الله الجزاء وزادك من فضله رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر يوليو 2, 2021 أفضل إجابة مشاركة قام بنشر يوليو 2, 2021 أخي الكريم @خالد القدس لقد أخبر ك الأستاذ عبد الفتاح أنه يجب وضع مسار واسم الملف في متغير باسم filename ثم استعمال الكود السابق وبناء عليه يكون الكود هكذا كاملا وهذا دورك في استنتاجه dim FileName as strring FileName = "C:\Users\kj\Desktop\WOW\2021.xlsx" ActiveWorkbook.SaveAs FileName, , , , , , xlShared ملاحظتي الشخصية: معظم الاستفسارات ناتجة من أن بعض الأصدقاء لا يصبرون على التعلم وقراءة الموضوعات السابقة والبحث في المنتدى ومحاولة فهم الأكواد والمعادلات التي يعرضها عليهم غيرهم. بالتوفيق للجميع 3 رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر يوليو 10, 2021 الكاتب مشاركة قام بنشر يوليو 10, 2021 صدقت استاذي الفاضل محمد صالح --- فعدم الصبر على التعلم من مشاركات الاساتذة الخبراء هي مشكلتنا الكبرى الف شكر على المشاركة التى شفت ووصفت الدواء واوضحت الدواء 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يوليو 10, 2021 مشاركة قام بنشر يوليو 10, 2021 بالتوفيق لا تنس اختيار أفضل إجابة والإعجاب بالمشاركات المفيدة لك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان