PRIINCE قام بنشر أكتوبر 26, 2009 قام بنشر أكتوبر 26, 2009 السلام عليكم ورحمة الله وبركاته أتمنى أن تكونوا بخير لدي إستفسار عن طريقة حذف قائمة بأعلى الإكسل تمت إضافتها بجوار القوائم (ملف ، تحرير ، عرض ، إدراج , وإلخ .... إلخ) ما هي طريقة الحذف لهذه القائمة ولكم جزيل الشكر ...
أ / محمد صالح قام بنشر أكتوبر 26, 2009 قام بنشر أكتوبر 26, 2009 أخي الكريم استعمل هذا الماكرو لعمل المطلوب Sub removetoolbars() Dim username As String, objwsh, fso As Object Set objwsh = CreateObject("WScript.Network") usrname = objwsh.username Set fso = CreateObject("scripting.filesystemobject") On Error Resume Next fso.deletefile "C:\Documents and Settings\" & usrname & "\Application Data\Microsoft\Excel\excel*.xlb" MsgBox "تم حذف جميع شرائط الأدوات الزائدة" End Sub مع ملاحظة أن الكود اعتمد أن قرص النظام هو C وفي حالة كونه قرصا آخر يمكنك تغييره في الكود أتمنى أن يكون هو المطلوب
يحيى حسين قام بنشر أكتوبر 27, 2009 قام بنشر أكتوبر 27, 2009 إضافة لطريقة الاخ محمد إذا كانت هذه القائمة ناتجة عن اضافة ملف Add-In قم بإلغاء هذا الملف من خلال القامئة Tools Add-Ins و قم بإلغاء علامة الصح من جوار الملف الذي تم إضافته ============= و طريق أخرى من القائمة Viem ToolBars Custmize و ستفتح لكل شاشاة كل ما عليك هو أن تمسك بالقائمة التي تريد حذفها بالماوس و وصعها في مربع الشاشة الذي ظهر لك و ستختفي بعدها هذه القائمة
PRIINCE قام بنشر أكتوبر 27, 2009 الكاتب قام بنشر أكتوبر 27, 2009 السلام عليكم ورحمة الله وبركاته أشكر لكما مروركما .... وأبلغكما بأن ما تفضلتما به هو ما قصدته وهو المطلوب شكراً لكما يا سادة وجُعِل في ميزان حسناتكما
سالم شباني قام بنشر أكتوبر 27, 2009 قام بنشر أكتوبر 27, 2009 (معدل) السلام عليكم معلومات قيمة جزاكم الله خيرا أنا أعاني من مشكل عدم القدرة على حذف الأداة المبينة في الصورة أرجو المساعدة تم تعديل أكتوبر 27, 2009 بواسطه سالم شباني
أ / محمد صالح قام بنشر أكتوبر 27, 2009 قام بنشر أكتوبر 27, 2009 إذا عرف السبب بطل العجب اشرح لنا كيف حصلت على هذه الأداة ونخبرك كيف نزيلها
سالم شباني قام بنشر أكتوبر 28, 2009 قام بنشر أكتوبر 28, 2009 السلام عليكم الأداة حصلت عليها بتنصيب برنامج خاص بطباعة الـ pdf قمت بإزالة البرنامج ولكن الأداة بقيت في ملف إكسل ولم أعرف كيف أزيلها أقوم بإزالتها من شريط الأدوات وبالكيفية المعروفة وبعد فتح الملف تعود من جديد
أ / محمد صالح قام بنشر أكتوبر 28, 2009 قام بنشر أكتوبر 28, 2009 أخي سالم هل جربت الطريقة الثانية للأخ يحيى من القائمة Viem ToolBars Custmize و ستفتح لكل شاشاة كل ما عليك هو أن تمسك بالقائمة التي تريد حذفها بالماوس و وصعها في مربع الشاشة الذي ظهر لك و ستختفي بعدها هذه القائمة وإذا لم تفلح فيبدو أن هذا الشريط ناتج عن ملف dll تابع للبرنامج ولم يتم حذفه وبالتعرف عليه وحذفه ستختفي المشكلة إن شاء الله 1
سالم شباني قام بنشر أكتوبر 29, 2009 قام بنشر أكتوبر 29, 2009 السلام عليكم أخي محمد صالح حياك الله الشريط وظيفته الطباعة لقد أدرجت الماكرو الخاص به في هذا الملف للاطلاع عليه قمت بإزالة الموديل والماكرو في this workbook فزال الشريط
A L M A I S T R O قام بنشر أكتوبر 29, 2009 قام بنشر أكتوبر 29, 2009 من قائمة Help اختار : Detect and Repair وقم بالتعليم على المربعين ثم Start
سالم شباني قام بنشر أكتوبر 29, 2009 قام بنشر أكتوبر 29, 2009 السلام عليكم أستاذي الفاضل المايسترو حياك الله وجزاك الله خيرا
أ / محمد صالح قام بنشر أكتوبر 29, 2009 قام بنشر أكتوبر 29, 2009 السلام عليكم أخي محمد صالح حياك الله الشريط وظيفته الطباعة لقد أدرجت الماكرو الخاص به في هذا الملف للاطلاع عليه قمت بإزالة الموديل والماكرو في this workbook فزال الشريط بالفعل أخي سالم يوجد بالموديول مجموعة من الأكواد الخاصة بالتعرف على الطابعات المثبتة على الجهاز واختيار طابعة والتأكد من تثبيت طابعة ومنها أيضا إضافة شريط أدوات وحذفه وهذا ما كنت أريد أن أقوله لك في بادئ الأمر أنك لو تعرف الاسم البرمجي لهذه القائمة يمكنك حذفها بكل سهولة ويمكنك إزالتها بتنفيذ الماكرو الخاص بإزالة القائمة فقط Sub DelMenu وشكرا لك على إهدائك الموديول لإخوانك فبه مجموعة رائعة من الأكواد جزاك الله خيرا 1
سالم شباني قام بنشر أكتوبر 29, 2009 قام بنشر أكتوبر 29, 2009 السلام عليكم أخي محمد صالح حياك الله كلما أفتح ملف إكسل حتى ولو كان ملف جديد ، أجد في محرر الفيزيل بيسك هذه الأكواد لكي أزيل الشريط حذفت الأكواد وانتهى المشكل ولكن المشروع في vba لا يزال موجودا عموما لقد استفدنا من صاحب الطلب الأول (prince) فجزاكم الله خيرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.