تعديل بسيط مطلوب

[وليد زقزوق]

Sub MACRO20()
ActiveWorkbook.Application.DisplayFullScreen = False
ActiveWorkbook.Application.CommandBars("FULL SCREEN").Visible = True
ActiveWorkbook.Application.CommandBars("WORKSHEET MENU BAR").Enabled = True
ActiveWorkbook.Application.CommandBars("STANDARD").Visible = True
ActiveWorkbook.Application.CommandBars("FORMATTING").Visible = True
ActiveWorkbook.Application.DisplayStatusBar = True
ActiveWorkbook.Application.DisplayFormulaBar = True
End Sub
Sub MACRO21()
ActiveWorkbook.Application.DisplayFullScreen = True
ActiveWorkbook.Application.CommandBars("FULL SCREEN").Visible = False
ActiveWorkbook.Application.CommandBars("WORKSHEET MENU BAR").Enabled = False
ActiveWorkbook.Application.CommandBars("STANDARD").Visible = False
ActiveWorkbook.Application.CommandBars("FORMATTING").Visible = False
ActiveWorkbook.Application.DisplayStatusBar = False
ActiveWorkbook.Application.DisplayFormulaBar = False
End Sub
هذان الكودان لاظهار واخفاء الاشرطة

ما اريدة تعديل علية لكي لا يخفي شريط الحالة مع الاخفاء

[حسين العصلوجى]

Sub MACRO20()
ActiveWorkbook.Application.DisplayFullScreen = False
ActiveWorkbook.Application.CommandBars("FULL SCREEN").Visible = True
ActiveWorkbook.Application.CommandBars("WORKSHEET MENU BAR").Enabled = True
ActiveWorkbook.Application.CommandBars("STANDARD").Visible = True
ActiveWorkbook.Application.CommandBars("FORMATTING").Visible = True
ActiveWorkbook.Application.DisplayStatusBar = True
ActiveWorkbook.Application.DisplayFormulaBar = True
End Sub
Sub MACRO21()
ActiveWorkbook.Application.DisplayFullScreen = True
ActiveWorkbook.Application.CommandBars("FULL SCREEN").Visible = False
ActiveWorkbook.Application.CommandBars("WORKSHEET MENU BAR").Enabled = False
ActiveWorkbook.Application.CommandBars("STANDARD").Visible = False
ActiveWorkbook.Application.CommandBars("FORMATTING").Visible = False
ActiveWorkbook.Application.DisplayFormulaBar = False
End Sub

تم تعديل مارس 11, 2013 بواسطه حسين العصلوجى

[وليد زقزوق]

للاسف اخي بتخفي كل شي برضو اين اضعها اصلا

مديول او حدث الملف

[وليد زقزوق]

للرفع

[GasserReda]

في الإجراء الفرعي الثاني أضف هذا السطر

Application.DisplayStatusBar = False

تم تعديل يناير 28, 2015 بواسطه GasserReda