Hide Standard Menu Bars

This is the code I use to temporarily remove menu barsfor a spreadsheet that is managed by user forms. I have code at the close of the program to replace the menu bars. The code work well although and it places a list of enabled bars in the range C1:C50 on the sheet "Bars". The range C1:C50 is not locked before the sub routine 'Hide Menus' runs. However after the sub routine 'Hide Menus' runs, the range C1:C50 is always locked and I don't understand why this is so, I would prefer it not to be.

Sub HideMenus()
Application. ScreenUpdating = False
i = 0
Worksheets("bars").Range("c1:c50").Clear
On Error Resume Next
For Each Allbars In Application. CommandBars
If Allbars.Visible = True Then
i = i + 1
With Worksheets("bars")
.Cells(i, 3) = Allbars.Name
If Allbars.Name = "Worksheet Menu Bar" Then
Allbars.Enabled = False
Else
Allbars.Visible = False
End If
End With
End If
Next
Application.DisplayFormulaBar = False
On Error Goto 0
Application.ScreenUpdating = True
Opening.Show
End Sub