السلام علليكم فكرة جميلة لو قمنا بتطبيقها
أين الأكواد
ظهرت رسالة الخطأ التالي
'Hide Status bar
Application.DisplayStatusBar = False
'Hide ribbon If Application.ExecuteExcel4Macro("Get.ToolBar(7,""Ribbon"")") Then
Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"", False)"
Else
Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"", True)"
End If
في السطر الأحمر