اكواد إخفاء وإظهار كل التبويبات وزر الأوفيس

[Yasser Fathi Albanna]

الأول إخفاء كل التبويبات وزر الأوفيس

Sub hhh()
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",false)"
End Sub

 

الثاني إظهار كل التبويبات وزر الأوفيس

Sub sss()
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",true)"
End Sub