Ocultar barra de formulas y cinta de opciones

Con código oculto la barra de formulas y la cinta de opciones, pero al hacerlo también se protege la hoja, por lo cual no me permite luego copiar ni pegar nada, ya sea de forma manual o por medio de una macro, lo que quiero saber es como seria el código para solo ocultar la cinta y la barra de formulas, sin proteger la hoja de tal modo que pueda copiar y pegar los datos que extraigo de esta hoja medíante una macro.

Estas son las instrucciones que utilizo:

Private Sub Workbook_Open()

Public Sub DeshabilitarBarraFormulas()
Dim cCtl As CommandBarControl
Application.DisplayFormulaBar = False
Set cCtl = CommandBars.FindControl(ID:=849)
If Not cCtl Is Nothing Then cCtl.Enabled = False
Set cCtl = Nothing

'para ocultar barra de formulas

ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)")

'para ocultar cinta de opciones

Gracias por su ayuda.