مشكلة عند اخفاء علامات تبويب الاوراق

[منير برهم]

[سليم حاصبيا]

قم بهذه الخطوات حسب الصورة

[منير برهم]

استاذنا الفاضل سليم حاصبيا تم  رفع العلامة كما وضحت ولكن عند اغلاقه وفتحه مرة اخري  تظهر الاوراق 

[سليم حاصبيا]

كي يعمل الماكرو يجب ان تكون اسماء الصفحات ظاهرة

يمكن اظهارها (من خلال الكود نفسه) قبل تنفيذ الماكرو تم اخفائها بعد التنفيذ

[منير برهم]

ممكن استاذنا الطريقة 

[سليم حاصبيا]

مثال عما أقصده

هذا الكود

Sub test()
Dim sh As Worksheet
ActiveWindow.DisplayWorkbookTabs = True
For Each sh In Sheets
sh.Range("A1") = sh.Name
Next
ActiveWindow.DisplayWorkbookTabs = False
End Sub

 

[منير برهم]

بوركت جهودك استاذنا الفاضل