script(WSH)でExcelの右クリックメニューを表示するマクロについて

質問

以前、何でも質問箱で、Wendy02さんにWscript(WSH)の件で大変お世話になりありがとうございました。

　今回、Excelで右クリックメニューが出ないトラブルがありましたので、ネットで検索し、右クリックメニュー表示マクロの実行と診断実行を行いましたが右クリックメニューがやはり出ません。
　最後は、Excel12.xlbをリネイム（削除）するこことで解決しました。

　つきましては、Windows-XP環境下で、script(WSH)を利用して下記のような「Excel右クリックメニュー表示.vbs」を作成できないでしょうか。

　組み込む機能としては、下記の１．と２．と３．です。
　１．は無理であれば手作業でできますから、２．と３．だけでもできると大変助かります。

　ご教授宜しくお願い致します。

１．エクスプローラ(Ver5.1)の[フォルダオプション]→[表示]→
　　[すべてのファイルとフォルダを表示]を選択→[適用]→[OK]

２．「Excel右クリックメニュー表示.vbs」は、
　　「Excel右クリックメニュー表示.vbs ユーザID」のように
　　ユーザＩＤを指定して実行。

３．下記のようにリネイムする。
変更前：C:\Documents and Settings\ユーザID\Application Data\Microsoft\Excel\Excel12.xlb
変更後：C:\Documents and Settings\ユーザID\Application Data\Microsoft\Excel\OldExcel12.xlb

※トラブル対策としては、
　○「Excel12.xlb」が無かった場合は「Excel12.xlbファイルが
　　　見つかりません」と表示し終了する。
　○「OldExcel12.xlb」がすでに存在していた場合は
　　「OldExcel12.xlb」を削除してからリネイムする。
　○「Excel12.xlb」をリネイムできなかった場合は「Excelを
　　終了してから実行してください」と表示し終了する。

回答No.1

end-u · ベストアンサー

VBSが良いのですか？
ExcelVBAから実行してもxlbファイルのリネームはできると思います。
なので
>　○「Excel12.xlb」をリネイムできなかった場合は「Excelを
>　　終了してから実行してください」と表示し終了する。
このメッセージでは正しくないかもしれません。

また、『ユーザＩＤを指定して実行』する必要はありますか？
実行中ユーザーのAPPDATAのパスを取得してリネーム処理したほうが良いような気がします。
それにVBSで処理するのであれば １． の機能は必要なく、
[フォルダオプション]を変更しなくても処理できます。

一応、VBSの例だと

Option Explicit

Const fName = "Excel12.xlb"
Const reName = "OldExcel12.xlb"
Dim aPath
Dim xlb

aPath = CreateObject("WScript.Shell") _
　　　　.ExpandEnvironmentStrings("%APPDATA%") & "\Microsoft\Excel\"
With CreateObject("Scripting.FileSystemObject")
　　xlb = aPath & reName
　　If .FileExists(xlb) Then
　　　　.DeleteFile xlb
　　End If
　　xlb = aPath & fName
　　If .FileExists(xlb) Then
　　　　.GetFile(xlb).Name = reName
　　　　WScript.Echo "ReName " & reName
　　Else
　　　　WScript.Echo xlb & " is Nothing"
　　End If
End With

...な感じでできるはず。
ただ、全てのバージョンに対応できるわけではありません。
『Excel12.xlb』で固定するなら、Excel2007対象です。

以下余談っぽいですが、
xlbファイルを再構築しないと『Excelで右クリックメニューが出ないトラブル』が
解消できないという状況が、そんなに頻繁に発生するとは思えないんですよね。
CommandBarのEnabledプロパティを弄くるようなマクロがあって、
その復旧に失敗してるだけっていう可能性はないですか？
右クリックメニュートラブル時に

Sub test()
　　Dim cb As CommandBar
　　Dim ret As String

　　For Each cb In Application.CommandBars
　　　　If Not cb.Enabled Then
　　　　　　ret = ret & vbLf & cb.Name
　　　　End If
　　Next
　　If Len(ret) > 0 Then
　　　　MsgBox "使用不可Bar" & vbLf & ret
　　End If
End Sub

こんなチェックをしてみたらどうでしょう。
ビンゴだったら、

Sub test2()
　　Dim cb As CommandBar

　　For Each cb In Application.CommandBars
　　　　Select Case cb.Name
　　　　Case "Cell", "Column", "Row"
　　　　　　cb.Enabled = True
　　　　End Select
　　Next
End Sub

あるいは

Sub test3()
　　Dim cb As CommandBar

　　For Each cb In Application.CommandBars
　　　　cb.Enabled = True
　　Next
End Sub

こんな感じのコードで復旧します。

お礼

end-uさん、早速の回答助かりました。
早速、やってみます。

この掲示をしてから、マクロのデバッグを繰り返し、おっしゃるようにバーを消すマクロが原因であることが分かリました。そして、
　　For Each cb In Application.CommandBars
　　　　cb.Enabled = True
だけでは右クリックメニューがつかえていないのが原因であることを突き止め、
CommandBars("Cell").Reset
で解決しましたが、なぜこれを実行しないと表示されないのかは分かっていません。

　後半でアドバイスいただきましたVB、試してみます。
　状況を表示するVBは参考になります。
丁寧なご回答ありがとうございましたm(__)m