エクセル、ワードが使えません

ごめんなさい。余分のものが張り付いてしまいました。 それにしても、 >「Workbook_BeforeCloseマクロで設定を戻すようにしたはずなんですが、、、戻りません。」 が原因でWordまで影響するとは、ちょっと変ですね。 違う所に原因があるのかも・・・

では、原因を特定しない場合の回復方法です。次の手順で操作してみてください。 (1) 「ファイルを指定して実行」で[名前]欄に　Excel /s と入れ[OK]します。 (2) もし「・・・見つかりません」のときは、下記の1行をコピーして[名前]欄に 　　貼り付けてください。" " を含めフルパスで指定します。 　"C:\Program Files\Microsoft Office\Office\EXCEL.EXE" /s 　これでExcelが、Safe Mode で起動になれば、ユーザー設定部分が、 　起因していますので次に進み、もしSafe Mode でも起動しなければ、 　EXCEL.EXE 自体の問題です。(5)へ進みます。 (3) Safe Modeで起動できることを確認できましたら、Excelを終了し、 　[スタート]-->[検索]-->[ファイルやフォルダ]で、 XLSTART フォルダを 　検索し、中のファイルを全部削除します。（フォルダごと削除しても良い） 　※ XLSTART フォルダは、複数ある場合、現在使用しているのは、環境によって 　違ってきます。（パス名にログイン名が入っているものが該当します。） 　通常の方法で Excelを起動してみます。 ダメなら次項へ。 (4)　同様に Excel*.xlb を検索し、削除します。 　　複数見つかったときは、(3)同様のパス名にログイン名が入っているものです。 　（XLSTARTフォルダ & Excel*.xlb は、起動し直すと、新らしく作成されます。） 参考:Excel95=Excel5.xlb , Excel97=Excel8.xlb 　　　　　　 Excel2000=Excel.xlb , WindowsNT系="ユーザ名".xlb 　　　　　　 Excel 2002 =Excel10.xlb 　　　　　　 Excel 2003 =Excel11.xlb 　　通常の方法で Excelを起動出来るか確認してみます。 (5) (1)か(2)でダメなら、Excel.exeおよび構成ファイルの異常です。 　念のためスキャンディスク（クラスタスキャン）を実施し、異常なかったら 　Excelを一度アンインストールし、更にインストールしたホルダを削除後に、 　再インストールしてみたらよいでしょう。 ---------------------------------------------- > これって原因として考えられることは何なんでしょうか？ このような時は使用しているOSの種類とExcelのバージョンを明記しましょう。 この内容から原因を特定することは困難ですが、一応次の手順で確認してみると良いでしょう。 スタートから「ファイルを指定して実行」で[名前]欄に　Excel /s と入れて ExcelがSafe Modeで起動し、正常に使えることを確認します。 ※ 上記のExcel /s で　「～が見つかりません」となったときは、下記をコピーして [名前]欄に貼り付けてください。（EXCEL.EXEをフルパスで指定し、/sスイッチを付加） "C:\Program Files\Microsoft Office\Office\Excel.exe" /s これでExcelが正常に使える状態であればExcel自体の問題ではなくて、ユーザー設定 部分に原因があると思われますので、一応、次の操作をしてみてください。 スタートから「検索」-->[ファイルやフォルダ]で、Excel.XLB を検索し、見つかったら このファイルを削除します。（Excel2000の場合。 その他は下記のファイル名かも？） Excel95=Excel5.XLB , Excel97=Excel8.XLB , WinNT系OS="ユーザ名".XLB , Excel2002=Excel10.XLB これで、通常の方法で動作を確認します。 Safe Modeでもダメなら、Excel.exeおよび構成ファイルの異常です。 念のためスキャンディスク（クラスタスキャン）を実施し、異常なかったら Excelをアンインストールし、インストールしたホルダを削除後に、 再インストールしてみたら良いでしょう。

もし、メニューバー／標準ツールバーを初期化しても良いのなら、 前レスと同じく、次の２行を貼り付けて各行で<Enter>します。 つまり、１行目で<Enter>、２行目で<Enter>します。 CommandBars("Worksheet Menu Bar").Reset CommandBars("Standard").Reset

Excelの場合です。 ・ [スタート]-->[プログラム]からExcelを起動します。 ・ Alt + F11 を押します。 ・ 「イミディエイトウィンドウ」(表示されていなかったらCtrl+G)に下記１行を ・ コピーして貼り付け、その行で<Enter>を押します。 Application.CommandBars("Worksheet Menu Bar").Enabled = True これでメニューが表示されると思います。