Excel2000でセルの書式設定を変更させたくない

質問

Excel2000でセルの書式設定を変更させたくない
Excel2000を使用しています。
Excel2002？以降では、書式設定を保護できるらしいですが、2000ではそのような機能がありません。でも、データを貼り付けた際に書式設定を変更させたくないのですが、何か方法がありますでしょうか？

具体的には、シート内のある範囲内(B3-F43)までを書式設定で「縮小して全体を表示」に設定してあり、「折り返して全体を表示する」のチェックを外してセル１行で表示するよう設定しています。
ここに改行付きの文字列データをコピーして貼り付けると、「折り返して全体を表示する」に勝手にチェックが入ってセル１行では表示しきれなくなり、文字全体が読めなくなるのですが、この勝手にチェックされてしまう「折り返して全体を表示する」のチェックをマクロを使って、自動で外す方法とかありますでしょうか？

とりあえず現状は貼り付け前に一度、テキストエディタで改行を削除する編集をしてからデータを貼り付けるようにしてるのですが、面倒なのでできれば改行付きデータを直接Excelに貼り付けても「折り返して全体を表示する」にチェックが入らないようにしたいのです。
マクロの知識はまったくないので、どなたかお知恵を貸していただけないでしょうか？
現在、他の件でマクロを教えていただいて、Thisworkbookという所に、Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)とかいうマクロを記述してあります。
Excelデータを上書きセーブする際にこのマクロが走るようなんですが、これに追記する形で、B3からF43までのセルの書式設定の「折り返して全体を表示する」のチェックを強制的に外すことができると助かるのですが。
同じシート内に、「折り返して全体を表示する」を使用しているセルもあるので、シート全体の書式設定を変えてしまうのではなく、あくまでB3からF43までの範囲のセルで設定したいのですが、こういうことはマクロで可能なのでしょうか？

回答No.2

MackyNo1 · ベストアンサー

＞また、ShrinkToFit = Trueって文字列を縮小表示させるだけで、「折り返して全体を表示する」のチェックを外せるわけでないですよね？

折り返して全体を表示するのチェックを外す以下の１行も追加してください。

Range("B3:F43").WrapText = False

お礼

ありがとうございます！
できました。
忌々しい折り返し表示がきれいになくなりました。

回答No.1

MackyNo1

わざわざマクロを使用してセルの書式を変更するのではなく、貼り付けるときに右クリックして「形式を選択して貼り付け」で「テキスト」を選択すれば、セルの書式を保存したままコピー貼り付けができます。

また、このような作業をファイルを保存するときのイベントマクロで実行するのは、あまりお勧めできないのですが、もしB3からF43セルの「折り返して全体を表示する」のチェックを外したいなら以下のようなコードを追加してください。

Range("B3:F43").ShrinkToFit = True

補足

レスありがとうございます。
形式を選択して保存をすると、改行されてる分だけ複数のセルに文字が貼り付けされてしまい、私の意図しているあくまでその１行のセル内に文章を保存したいという意図から外れてしまいます。
また、ShrinkToFit = Trueって文字列を縮小表示させるだけで、「折り返して全体を表示する」のチェックを外せるわけでないですよね？
縮小表示はすでに設定してあるんですが、改行コードを含む文字列を貼り付けると、強制的に「折り返して全体を表示する」が有効になり「文字列を縮小表示」が機能しなくなります。