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

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

قام بنشر

لابد من عمل ذلك بالكود و الله أعلم

فى حدث التفعيل للشيت

Private Sub Worksheet_Activate()
    Application.CommandBars("Forms").Visible = True
    Application.CommandBars("Standard").Visible = True
    Application.CommandBars("Formatting").Visible = True
End Sub

و طبعا الايقونات اعلاه كمثال فقط و يمكنك تحديد الايقونات التي تريدها

و العكس بالنسبة للشيت الاخر

IconPerSheet.zip

قام بنشر

تأكد من أن الماكرو لديك مفعل

Tools

Macro

security level

Medium أو Low

جربت الملف و يعمل معي

و المفترض ان يعمل علي النسخة العربية ايضا

انزل الملف المرفق و تنقل بين ورقتي العمل و اخبرنا ماذا يحدث

فان لم يعمل بعد التأكد من تفعيل الماكرو

فقم يتسجيل ماكرو جديد عن طريق التسجيل

و قم بحذف ال Toolbars

ثم اوقف التسجيل

ثم اختار تحرير الماكرو

و انظر كيف تم تسجيل أسماء الادوات

و اخيرنا

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

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

Important Information