I need your help again in this little problem. Thank you in advance !

I want to disable the ribbon (or option bars) including the headers of Excel but only in a specific workbook. I have this code but couldn't do that:


Private Sub Workbook_Activate()
Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",False)"
End Sub

Private Sub workbook_open()
Application.Visible = False
Application.OnKey "^p", ""
Application.OnKey "^x", ""
uf_login.Show
ActiveWindow.DisplayHeadings = False
End Sub

Initially when I open my workbook (which has the code) and then other workbooks, these open and have not the bars and headers like usually. I don't know if I explain well but this is my problem this time.

Note: I have a keyboard command to enable the bars and headers but I don't want to share it with the users, because I don't want they can manipulate the macros inside and with that I give more protection.