Excel 2007 互換性チェックを表示させない方法について

Question

Excel (Office 2007) の互換性チェック表示について質問となります。

xlsファイルを編集後に保存しようとすると、互換性チェックの画面が表示されます。

この画面を表示させない設定がありましたら、ご教示ください。

※互換性チェック画面の「このブックを保存するときに互換性を～」チェックを外すことで

　表示されなくなることは理解しております。

　今回の質問としましては、上記対応を行っていない全てのファイルに対して、互換性チェック画面を表示させない設定についてとなります。

Answer 1

Makapuさん

返信が遅くなり申し訳ありません。

また、ご回答ありがとうございます。

手動で個別に外す他には、VBAを利用するしか無いのですね。

記載頂いたマクロを参考に、対応方法を検討したいと思います。

参考情報まで載せて頂き、ありがとうございました。

Answer 2

こんにちは。

互換性チェックを無効にする方法で調べてみたのですが、手動で互換性のチェックを外す以外ですと、VBAを使用する方法になりそうです。

Excel 2007 および Excel 2010 の互換性チェックの操作

◆同じフォルダ内の .xls のファイルの互換性チェックを外して保存するマクロ

・お試しになる場合は、テスト用のファイルから試して、且つバックアップを取った上でお試し下さい。

・ExcelでAlt + F11 を同時に押してVBAの画面を開き、「挿入」>「標準モジュール」を開きOption Explicit~End subまでにコピーして貼り付けます。

・同じくVBEの画面で「ツール」>「参照設定」とし、一覧からFileSystemObjectで使用する「Microsoft Scripting Runtime」を探してチェックを入れてOKとします。

・マクロ名：Mainを実行します。

Option Explicit

Private Const XLS_EXT As String = ".xls"

Private Const PROCESS_END_MSG As String = "処理が完了しました"

Public Sub Main()

    'マクロ実行中の画面の動きを抑止する

    Application.ScreenUpdating = False

    'セーブ時の関数の再計算をさせない

    Application.CalculateBeforeSave = False

    'イベントを発生させない

    Application.EnableEvents = False

    Dim fileSysObj As New FileSystemObject

    Dim file As file

    Dim currentBookCount As Integer

    '現在開かれているブック数を記録しておく

    currentBookCount = Workbooks.Count()

    For Each file In fileSysObj.GetFolder(ThisWorkbook.Path()).Files

        'ファイル名がこのマクロブックもしくは拡張子にxlsが含まれないファイルの場合、何もしない

        If file.Name = ThisWorkbook.Name Or InStr(LCase(file.Name()), XLS_EXT) = 0 Then

            ' 何もしない

        Else

            Workbooks.Open (file.Path)

            '互換性のチェックをしない

            Workbooks(file.Name).CheckCompatibility = False

            Workbooks(file.Name).Save

            Workbooks(file.Name).Close

        End If

    Next

    Set fileSysObj = Nothing

    '起動時に設定したプロパティを元に戻す

    Application.ScreenUpdating = True

    Application.CalculateBeforeSave = True

    Application.EnableEvents = True

    '処理完了メッセージ出力

    MsgBox PROCESS_END_MSG

End Sub

上記のマクロはこちらのページを参考にしました。

カレントディレクトリ内のエクセルブック内の任意のシートの文字列をすべて置換するマクロ