السلام عليكم
الكود التالى يقوم باخفاء اشرطه الادولت كلها و بتنفيذ امر (العرض ملء الشاشة)
و هو كود يعمل عند فتح الملف Workbook_Open
Private Sub Workbook_Open()
On Error Resume Next
With Application
.DisplayFullScreen = True
.CommandBars("Full Screen").Visible = False
.CommandBars("MyToolbar").Enabled = False
.CommandBars("MyToolbar").Visible = False
.CommandBars("Worksheet Menu Bar").Enabled = False
End With
On Error GoTo 0
End Sub