Quiero quitar todas las barras de herramientas de un libro, solo de ese libro.

Quiero quitar todas las barras de herramientas de un libro de Excel 2016, solo de ese libro, aunque trabaje paralelamente con otro libro, que éste si tendría las barras y que me permita copiar celdas de un libro a otro indistintamente.

En ThisWorkbook he puesto el siguiente código

Private Sub Workbook_Activate()
nomuestra
End Sub

___________________________________________________________________

En un Módulo he puesto los siguientes códigos

Sub Muestra()
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
Application.displayfulscreen = False
ExecuteExcel4Macro ("show.toolbar(""ribbon"",1)")
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
.DisplayGridlines = True
End With
End Sub

______________________________________________________________
Sub nomuestra()
Application.DisplayFormulaBar = False
ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)")
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayGridlines = False
End With
End Sub