'=========================================================================================
Sub 終了処理()
    画面を更新しない                             '0)すでに指定済みならこの行は不要
    ブックをアクティブにする                      '0)すでにアクティブならこの行は不要
    ブックを保存する                             '1)保存しないならこの行は不要
    画面の最大表示等をもどす                      '2)
    ブックを閉じる                               '3)
    エクセルを終了する                           '4)
    ウインドウズを終了し電源を切れる状態にする     '5)6)
End Sub
'-----------------------------------------------------------------------------------------
Sub 画面を更新しない()
    Application.ScreenUpdating = False          '0)
End Sub
'-----------------------------------------------------------------------------------------
Sub ブックをアクティブにする()
    Windows(ブック名).Activate                  '0) ※１
End Sub
'-----------------------------------------------------------------------------------------
Sub ブックを保存する()
    If ActiveWorkbook.Saved = False Then        '1)ブックの内容が変更されているなら
        ActiveWorkbook.Save                     '1)ブックを上書き保存する
    End If                                      '1)
End Sub
'-----------------------------------------------------------------------------------------
Sub 画面の最大表示等をもどす()
    If 画面最大等 = "Yes" Then                  '2)開始処理で指定してあれば
        Application.DisplayFullScreen = False   '2)全画面表示オフ（メニュー・ツールバー復元）
        With ActiveWindow                       '2)ウインドウオプションを復元
            .DisplayHeadings = True             '2)行列記号
            .DisplayHorizontalScrollBar = True  '2)水平スクロールバー
            .DisplayVerticalScrollBar = True    '2)垂直　　〃
            .DisplayWorkbookTabs = True         '2)シート見出し
        End With                                '2)
    End If                                      '2)
End Sub
'-----------------------------------------------------------------------------------------
Sub ブックを閉じる()
    Application.DisplayAlerts = False           '3)確認メッセージを出さない
    ActiveWorkbook.Close                        '3)現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------
Sub エクセルを終了する()
    Application.Quit                            '4)アプリケーションを終了する
End Sub
'-----------------------------------------------------------------------------------------
Sub ウインドウズを終了し電源を切れる状態にする()
    JB = Shell("c:\windows\taskman.exe", 3)     '5)タスクマンを起動する ※２
    SendKeys "%F", True                         '5)メニューバーのファイルを選択 ※３
    SendKeys "U"                                '5)Ｗｉｎｄｏｗｓの終了
    SendKeys "S"                                '6)電源を切れる状態にする
    SendKeys "{ENTER}"                          '6)        〃
End Sub
'=========================================================================================

'=========================================================================================
Sub 標準のメニューをメニューバーから消す()
    Set worksheetMenuBars = Application.MenuBars(xlWorksheet)
    With worksheetMenuBars
        Application.MenuBars(xlWorksheet).Menus("ﾌｧｲﾙ").Delete
        Application.MenuBars(xlWorksheet).Menus("編集").Delete
        Application.MenuBars(xlWorksheet).Menus("表示").Delete
        Application.MenuBars(xlWorksheet).Menus("挿入").Delete
        Application.MenuBars(xlWorksheet).Menus("書式").Delete
        Application.MenuBars(xlWorksheet).Menus("ﾂｰﾙ").Delete
        Application.MenuBars(xlWorksheet).Menus("ﾃﾞｰﾀ").Delete
        Application.MenuBars(xlWorksheet).Menus("ｳｨﾝﾄﾞｳ").Delete
        Application.MenuBars(xlWorksheet).Menus("ﾍﾙﾌﾟ").Delete
    End With
    新しいメニューをメニューバーへ追加する
End Sub
'-----------------------------------------------------------------------------------------
Sub 新しいメニューをメニューバーへ追加する()    '「復元」と言う名のMenuを追加する例
    MenuBars(xlWorksheet).Menus.Add Caption:="復元"
    MenuBars(xlWorksheet).Menus("復元"). _
        MenuItems.Add Caption:="復元", _
        OnAction:="メニューバー復元_click"      '※１
End Sub
'-----------------------------------------------------------------------------------------
Sub メニューバー復元_Click()
    メニューバーとサブメニューのすべてを初期化する
End Sub
'-----------------------------------------------------------------------------------------
Sub メニューバーとサブメニューのすべてを初期化する()
    MenuBars(xlWorksheet).Reset
End Sub
'=========================================================================================
Sub 新しいメニュー項目を既存のメニューに追加する()  '「ﾂｰﾙ」MENUに「保存」項目を追加する例
    MenuBars(xlWorksheet).Menus("ﾂｰﾙ"). _
        MenuItems.Add Caption:="保存", _
        OnAction:="ツールメニューの保存_click"  '※１
End Sub
'-----------------------------------------------------------------------------------------
Sub ツールメニューの保存_click()
    Sheets("SSS").Select                        '※２
    ActiveWorkbook.Save                         '上書き保存
End Sub
'-----------------------------------------------------------------------------------------
Sub メニュー項目を削除する()
    MenuBars(xlWorksheet).Menus("ﾂｰﾙ").MenuItems("保存").Delete '※１
End Sub
'=========================================================================================
Sub 新しいメニュー項目とサブメニュー項目を既存のメニューに追加する() '※１
    Set m = MenuBars(xlWorksheet).Menus("ﾂｰﾙ")
    m.MenuItems.AddMenu Caption:="フォーム設定"
    m.MenuItems("フォーム設定").MenuItems.Add Caption:=("行追加"), OnAction:="行追加_click"
    m.MenuItems("フォーム設定").MenuItems.Add Caption:=("行削除"), OnAction:="行削除_click"
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 行追加_click()
    Sheets("SSS").Select                        '※２
        Rows("2:2").Insert Shift:=xlDown        '※３
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 行削除_click()
    Sheets("SSS").Select                        '※２
        Rows("2:2").Delete Shift:=xlUp          '※３
End Sub
'-----------------------------------------------------------------------------------------
Sub メニュー項目とサブメニュー項目を削除する()
    MenuBars(xlWorksheet).Menus("ﾂｰﾙ").MenuItems("フォーム設定").Delete '※１
End Sub
'=========================================================================================