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

طريقة حذف قائمة بأعلى الإكسل


PRIINCE

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

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

أتمنى أن تكونوا بخير

لدي إستفسار عن طريقة حذف قائمة بأعلى الإكسل تمت إضافتها بجوار القوائم (ملف ، تحرير ، عرض ، إدراج , وإلخ .... إلخ)

ما هي طريقة الحذف لهذه القائمة ولكم جزيل الشكر ...

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

أخي الكريم

استعمل هذا الماكرو لعمل المطلوب

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 وفي حالة كونه قرصا آخر يمكنك تغييره في الكود

أتمنى أن يكون هو المطلوب

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

إضافة لطريقة الاخ محمد

إذا كانت هذه القائمة ناتجة عن اضافة ملف Add-In

قم بإلغاء هذا الملف من خلال

القامئة

Tools

Add-Ins

و قم بإلغاء علامة الصح من جوار الملف الذي تم إضافته

=============

و طريق أخرى

من القائمة

Viem

ToolBars

Custmize

و ستفتح لكل شاشاة كل ما عليك هو أن تمسك بالقائمة التي تريد حذفها بالماوس و وصعها في مربع الشاشة الذي ظهر لك

و ستختفي بعدها هذه القائمة

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

السلام عليكم

معلومات قيمة جزاكم الله خيرا

أنا أعاني من مشكل عدم القدرة على حذف الأداة المبينة في الصورة

أرجو المساعدة

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

إذا عرف السبب بطل العجب

اشرح لنا كيف حصلت على هذه الأداة ونخبرك كيف نزيلها

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

السلام عليكم

الأداة حصلت عليها بتنصيب برنامج خاص بطباعة الـ pdf

قمت بإزالة البرنامج ولكن الأداة بقيت في ملف إكسل ولم أعرف كيف أزيلها

أقوم بإزالتها من شريط الأدوات وبالكيفية المعروفة وبعد فتح الملف تعود من جديد

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

أخي سالم

هل جربت الطريقة الثانية للأخ يحيى

من القائمة

Viem

ToolBars

Custmize

و ستفتح لكل شاشاة كل ما عليك هو أن تمسك بالقائمة التي تريد حذفها بالماوس و وصعها في مربع الشاشة الذي ظهر لك

و ستختفي بعدها هذه القائمة

وإذا لم تفلح فيبدو أن هذا الشريط ناتج عن ملف dll تابع للبرنامج ولم يتم حذفه

وبالتعرف عليه وحذفه ستختفي المشكلة إن شاء الله

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

السلام عليكم

أخي محمد صالح حياك الله

الشريط وظيفته الطباعة

لقد أدرجت الماكرو الخاص به في هذا الملف للاطلاع عليه

قمت بإزالة الموديل والماكرو في this workbook فزال الشريط

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

السلام عليكم

أخي محمد صالح حياك الله

الشريط وظيفته الطباعة

لقد أدرجت الماكرو الخاص به في هذا الملف للاطلاع عليه

قمت بإزالة الموديل والماكرو في this workbook فزال الشريط

بالفعل أخي سالم

يوجد بالموديول مجموعة من الأكواد الخاصة بالتعرف على الطابعات المثبتة على الجهاز واختيار طابعة والتأكد من تثبيت طابعة ومنها أيضا إضافة شريط أدوات وحذفه

وهذا ما كنت أريد أن أقوله لك في بادئ الأمر

أنك لو تعرف الاسم البرمجي لهذه القائمة يمكنك حذفها بكل سهولة

ويمكنك إزالتها بتنفيذ الماكرو الخاص بإزالة القائمة فقط Sub DelMenu

وشكرا لك على إهدائك الموديول لإخوانك

فبه مجموعة رائعة من الأكواد

جزاك الله خيرا

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

السلام عليكم

أخي محمد صالح حياك الله

كلما أفتح ملف إكسل حتى ولو كان ملف جديد ، أجد في محرر الفيزيل بيسك هذه الأكواد

لكي أزيل الشريط حذفت الأكواد وانتهى المشكل

ولكن المشروع في 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.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information