إخفاء اسم الصفحة

[أحمد عبد العاطي رشيدي]

الأخوة الأحبة

أريد كود لإخفاء اسم الصفحة 

بحيث أفتحها من ارتباط في الصفحة الرئيسة

[Ragabmax]

Private Sub CommandButton7_Click()
Application.Visible = True
Sheet1.Activate
Sheet1.Visible = True                 'الشيت المراد اظهاره
Sheet2.Visible = False
Sheet3.Visible = False
Unload Me
End Sub

تفضل الكود

 

تم تعديل يوليو 25, 2019 بواسطه Ragabmax

[Ali Mohamed Ali]

تفضل  بعد اذن الأستاذ رجب

 

إخفاء الصفحات.xlsm

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

يمكنك متابعة هذه الصور لمعرفة  كيف يتم ذلك (بدون اي كود)

 

اذا اردتها بالماكرو 

الكود

Sub hide_tabs()
ActiveWindow.DisplayWorkbookTabs = False
End Sub

لاعادة اظهارها استبدل False  بـــ True

[أحمد عبد العاطي رشيدي]

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

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