با درود فراوان
زمانی که صفحه اکسل را بصورت دستی و یا بایک ماکرو و کد تمام صفحه می کنیم (فول اسکرین)نوار منو همچنان دیده می شود و
گاهی نیاز داریم تمام صفحه بصورتی باشد که نوار منو هم مشاهده نشود و یا اینکه نوار منو در دست رس کار بر قرار نگیرد
همانطور که می دانید تولز بار را هم می توان مخفی کرد و هم میتوان غیر فعال کرد که در اینجا مخفی کردن آن را انجام توضیح می دهم
در اینجا این کدها را بصورت دو ماکرو نوشته ایم که اگر آنها را در زیرروال های زیر یعنی
قرار دهیم هنگام ورود به شیت مذکور فول اسکرین و منوبار نیز مخفی می شود و هنگام خروج از شیت به حالت اصلی بر می گردد این دحالتی است
که برای یک شیت در نظر گرفته باشیم که میتوان این کد را روی کل ورک بوک نیز اعمال کنیم
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
زمانی که صفحه اکسل را بصورت دستی و یا بایک ماکرو و کد تمام صفحه می کنیم (فول اسکرین)نوار منو همچنان دیده می شود و
گاهی نیاز داریم تمام صفحه بصورتی باشد که نوار منو هم مشاهده نشود و یا اینکه نوار منو در دست رس کار بر قرار نگیرد
همانطور که می دانید تولز بار را هم می توان مخفی کرد و هم میتوان غیر فعال کرد که در اینجا مخفی کردن آن را انجام توضیح می دهم
در اینجا این کدها را بصورت دو ماکرو نوشته ایم که اگر آنها را در زیرروال های زیر یعنی
قرار دهیم هنگام ورود به شیت مذکور فول اسکرین و منوبار نیز مخفی می شود و هنگام خروج از شیت به حالت اصلی بر می گردد این دحالتی است
که برای یک شیت در نظر گرفته باشیم که میتوان این کد را روی کل ورک بوک نیز اعمال کنیم
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
کامنت