حذف منو از بالای صفحه اکسل و فول اسکرین کامل

[shamsololama]

با درود فراوان
زمانی که صفحه اکسل را بصورت دستی و یا بایک ماکرو و کد تمام صفحه می کنیم (فول اسکرین)نوار منو همچنان دیده می شود و
گاهی نیاز داریم تمام صفحه بصورتی باشد که نوار منو هم مشاهده نشود و یا اینکه نوار منو در دست رس کار بر قرار نگیرد
همانطور که می دانید تولز بار را هم می توان مخفی کرد و هم میتوان غیر فعال کرد که در اینجا مخفی کردن آن را انجام توضیح می دهم
در اینجا این کدها را بصورت دو ماکرو نوشته ایم که اگر آنها را در زیرروال های زیر یعنی
قرار دهیم هنگام ورود به شیت مذکور فول اسکرین و منوبار نیز مخفی می شود و هنگام خروج از شیت به حالت اصلی بر می گردد این دحالتی است
که برای یک شیت در نظر گرفته باشیم که میتوان این کد را روی کل ورک بوک نیز اعمال کنیم
Private Sub Worksheet_Activate()

With Application
.DisplayFullScreen = True
.CommandBars("worksheet menu bar").Enabled = False
End With

End Sub
و

Private Sub Worksheet_Deactivate()

With Application
.DisplayFullScreen = False
.CommandBars("worksheet menu bar").Enabled = True
End With

End Sub



و بصورت ماکرو اینچنین خواهد بود

برای مخفی کردن و فول اسکرین
Sub Toolbars1()
With Application
.DisplayFullScreen = True
.CommandBars("worksheet menu bar").Enabled = False
End With
End Sub


برای خارج کردن از فول اسکرین و نمایش تولز بار
Sub Toolbars2()
With Application
.DisplayFullScreen = False
.CommandBars("worksheet menu bar").Enabled = True
End With
End Sub

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.