no me funciona el acceso al boton hoja de propiedades , estube trabajando con un  archivo que ya estava empezado para complementarlo con lo que yo manejo pero de rrepente no me funciono el acceso alb oton hoja de propiedades

anexo codigo que encontre en un modulo para qeu alguien me explique si tiene alguna relacion con lo que me paso

y sitiene que ver con algo que yo hice mal

Option Compare Database

Public cuantas As Double
Public ctl As Variant

Sub quitarbarras()
    cuantas = Application.CommandBars.Count
    For contad = 1 To cuantas
        If Application.CommandBars(contad).Name = "Menu Bar" Then GoTo salto
        If Application.CommandBars(contad).Name = "Print preview" Then GoTo salto
        On Error Resume Next
        Application.CommandBars(contad).Enabled = False
salto:
    Next
    For Each ctl In CommandBars("Menu Bar").Controls
    ctl.Visible = False
    Next ctl
    For Each ctl In CommandBars("Print preview").Controls
    If ctl.Caption = "&Cerrar" Then ctl.Visible = True Else ctl.Visible = False
    Next ctl
End Sub

Sub mostrarbarras()
    cuantas = Application.CommandBars.Count
    For contad = 1 To cuantas
        If Application.CommandBars(contad).Name = "Menu Bar" Then GoTo salto
        On Error Resume Next
        Application.CommandBars(contad).Enabled = True
salto:
    Next
    For Each ctl In CommandBars("Menu Bar").Controls
    ctl.Visible = True
    Next ctl
    For Each ctl In CommandBars("Print preview").Controls
    ctl.Visible = True
    Next ctl
End Sub