『エクセル便利・ツールバークリア1.2』

ExUtTb12.xls（フリーソフト）v1.1 作者kazu 2000.06.26

○このExcel書類は『おかしくなったメニューバーやツールバーを元に戻す』
VBAが組み込まれています。
Windows98＋Excel97及びWindows2000＋Excel2000で動作確認してあり、
Excel 5.0/95形式で保存してありますので、Excel5.0やExcel95でもMacでも動くはずです。
VBAにはパスワードなどかけてありませんので自由に見ることができます。

[ExUtTb12.xls を開く前に]
（１）企業などで標準ツールバーや書式設定ツールバーなどを変更して使用している場合
このソフトを動かすとクリアされてしまいます。実行前によく知っている人に相談ください。

（２）かならずお手持ちのヴィールスのチェックソフトでヴィールスのチェックをしてください。

（３）ヴィールスのチェックソフトをお持ちでない方は[マクロを無効にする(D)]で開いて
よく知っている人に助けてもらってVBEを開き
(3-a)モジュールに
　　　Sub Excel_Tool_Clear()
　　　　　If MsgBox("メニュー...
　　　　上記以外のSub Auto_Open などが含まれていないか、
(3-b)Readme12.txtの一番下の-- VBA の中身 見本 --以下の内容以外が含まれていないか確認してください。

[ExUtTb12.xls を開くとき]
（１）『XXXX はマクロを含んでいます。マクロにはウィルスが含まれている可能性があります。
マクロを無効にすると安全です...』と表示されます。
　　　ここで[マクロを有効にする(E)]ボタンを押します。

（２）『Visual Basic マクロはのモジュールはVisualBasicEditorで編集します...』
と表示されます。
　　　ここで[ＯＫ]ボタンを押します。

[ExUtTb12.xls を開いたあと]
（１）ワークシートが表示されます。
　　　ここでセルＢ６あたりにある緑色のボタンを押します。

（２）『メニューバーやツールバーを初期状態にもどしますか？』と表示されます。
　　　ここで[はい]ボタンを押します。

これでおかしくなったメニューバーやツールバーが初期状態に戻るはずです。

[ボタンを押したあと]
○メニューバーなどの表示順序が正しく戻らない場合があります。
　　メニューバーの左端の細長い縦棒をマウスでドラッグして
　　正しい位置に移動して下さい。

○うまくメニューバーやツールバーが戻った場合は
自分の環境など併記して『よかった』メールを下さい。
http://www.excel.studio-kazu.jp/img/mail1.jpg ←メールアドレス

○メニューバーやツールバーが戻らない場合も
自分の環境など併記して『こまった』メールを下さい。

『エクセルの学校』へ遊びにきてください。
http://www.excel.studio-kazu.jp ←メールアドレス

---------- ---------- VBA の中身 見本 ---------- ---------- ----------
Sub Excel_Tool_Clear()
    If MsgBox("メニューバーやツールバーを初期状態にもどしますか？", vbYesNo) = vbYes Then
        
        USMainDisplay
        
        USCommandBarReset "Worksheet Menu Bar"
        USCommandBarReset "Standard"
        USCommandBarReset "Formatting"
        
        USCommandBarReset "Drawing"
                
        Cells(1, 1).Select
    End If
End Sub

Sub USCommandBarReset(bnam)

        CommandBars(bnam).Enabled = False
        CommandBars(bnam).Enabled = True
        If bnam <> "Worksheet Menu Bar" Then
            CommandBars(bnam).Visible = False
        End If
        CommandBars(bnam).Reset
        CommandBars(bnam).Visible = True
        Select Case bnam
            'Case "Worksheet Menu Bar": CommandBars(bnam).Position = msoBarMenuBar
            Case "Worksheet Menu Bar": CommandBars(bnam).Position = msoBarTop
            Case "Standard": CommandBars(bnam).Position = msoBarTop
            Case "Drawing": CommandBars(bnam).Position = msoBarBottom
        End Select
        CommandBars(bnam).Top = 0
        CommandBars(bnam).Left = 0
        
End Sub

Sub USMainDisplay()

    If Application.WindowState = xlMaximized Then
        Application.WindowState = xlNormal
    End If

    Application.Left = 0
    Application.Top = 0
    Application.Width = 570
    Application.Height = 410
    
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True

End Sub