وليد زقزوق قام بنشر مارس 11, 2013 مشاركة قام بنشر مارس 11, 2013 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 هذان الكودان لاظهار واخفاء الاشرطة ما اريدة تعديل علية لكي لا يخفي شريط الحالة مع الاخفاء رابط هذا التعليق شارك More sharing options...
حسين العصلوجى قام بنشر مارس 11, 2013 مشاركة قام بنشر مارس 11, 2013 (معدل) 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 بواسطه حسين العصلوجى رابط هذا التعليق شارك More sharing options...
وليد زقزوق قام بنشر مارس 11, 2013 الكاتب مشاركة قام بنشر مارس 11, 2013 للاسف اخي بتخفي كل شي برضو اين اضعها اصلا مديول او حدث الملف رابط هذا التعليق شارك More sharing options...
وليد زقزوق قام بنشر يناير 28, 2015 الكاتب مشاركة قام بنشر يناير 28, 2015 للرفع رابط هذا التعليق شارك More sharing options...
GasserReda قام بنشر يناير 28, 2015 مشاركة قام بنشر يناير 28, 2015 (معدل) في الإجراء الفرعي الثاني أضف هذا السطر Application.DisplayStatusBar = False تم تعديل يناير 28, 2015 بواسطه GasserReda رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.