Sub DefEnv()
Dim i%, S$
Application.ScreenUpdating = False
On Error Resume Next
For Each bar In Application.CommandBars
If bar.Visible = True Then
bar.Visible = False
S = bar.Name
Worksheets(1).Cells(1 + i, 1).Value = S
i = i + 1
End If
Next
End Sub
Sub MemoCBRestore()
Dim i%, S$
S = Worksheets(1).Cells(1 + i, 1).Value
Do While S <> ''
Application.CommandBars(S).Visible = True
Worksheets(1).Cells(1 + i, 1).ClearContents
i = i + 1
S = Worksheets(1).Cells(1 + i, 1).Value
Loop
End Sub