You can replace the command to toggle ribbon visibility

Code:
Application.SendKeys ("^{F1}")
with this

Code:
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & DisplayRibbon & ")"