Private Sub Workbook_Open()
    Dim cb As CommandBar, i As Integer
    
    i = MsgBox("メニューバー(Worksheet Menu Bar)を表示させます。" & vbCr & "  メニューバー表示   :はい" & vbCr & "  メニューバー非表示:いいえ", vbYesNoCancel + vbExclamation)
    Select Case i
        Case vbYes: i = True
        Case vbNo: i = False
        Case vbCancel: Exit Sub
    End Select
    For Each cb In Application.CommandBars
        With cb
            If .Name = "Worksheet Menu Bar" Then
                .Protection = 0 'msoBarNoChangeDock
                .Enabled = i
            End If
        End With
    Next cb
End Sub