エクセルの列挿入に関して

質問１
全てのワークシートを選択し列の挿入をすると「Excelが原因でEXCEL.EXEにエラーが発生しました。Excelは終了します。」というエラー表示が出てしまいます。ただし、１枚のワークシートだけだと列の挿入はできます。ワークシートは２２枚有り、１枚のワークシートの大きさは（列CE行１６）で、計算式は約６０ぐらいのセルに入れてあります。原因と対処を教えてください。
質問２
上記のエラー発生後、同じファイルを選択すると「〇〇は編集のためロックされています。」という表示が出て読取専用になり、編集後の上書保存ができません。プロパティの下にある属性欄の「
読取専用」にはチェックが入っていません。読取専用をはずすにはどうしたらいいですか。
よろしくお願いします。

No.1 回答者： yuu200 回答日時： 2002/02/18 17:39

質問１は分からないです。

質問２のほうは異常終了したからではないですか？
再起動すれば直るような・・・
直らなかったらすみません。

この回答へのお礼

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

お礼日時：2002/02/19 08:10

No.2 回答者： k_345 回答日時： 2002/02/18 20:40

Excelは、一つのファイルにシート数が多いとエラーを起こしやすくなります。

ですから、質問1に関しては、一度に全てのシートに列を挿入せずにナンシートずつかに分けて挿入するか、ファイル自体のシート数を10くらいに減らされたほうがいいかと思います。

質問2については下の方も書かれているように、Excelを再起動、それでもダメならWindows自体を再起動すれば直るのではないでしょうか？

この回答への補足

シート数が２２シートあります。これが問題なのでしょうか。

補足日時：2002/02/19 08:21

この回答へのお礼

回答ありがとうございました。確認してみます。

お礼日時：2002/02/19 08:10

No.3 回答者： kbonb 回答日時： 2002/02/18 21:54

こんにちは

　以下のページがご参考になるのでは？

[XL2000] 「ファイルは編集のためロックされています」メッセージについて
http://www.microsoft.com/japan/support/kb/articl …

[XL2000]強制終了およびハングアップの際のチェック項目
http://www.microsoft.com/japan/support/kb/articl …

参考URL：http://www.microsoft.com/japan/support/kb/articl …

この回答へのお礼

回答ありがとうございました。確認してみます。

お礼日時：2002/02/19 08:11

No.4 ベストアンサー 回答者： kenken0001 回答日時： 2002/02/19 11:24

質問１に回答します。

繰り返し同じ作業をするのであれば
下記のマクロを使ってみてください。
１．シートを選択
２．列を選択
３．「挿入」とするところで
下のマクロを実行します。

内容は、指定されたシートを
１枚ずつ個別に選んで
選択された列の挿入をしていきます。
一度にやらずにわざと分解作業にしています。
効果があるか分かりませんが、
良ければ試してみてください。

'*****ココカラ*****
Sub 一括列挿入()
Dim シート名 As Worksheet

選択範囲 = Selection.Address

For Each シート名 In Worksheets

シート名.Select

Columns(選択範囲).Select
Selection.Insert Shift:=xlToRight

Next
End Sub
'*****ココマデ*****


マクロの使い方、準備について
不明な点は質問ください。

alt+F11を押してＶＢＥを起動
挿入－標準モジュールを選択し
ココカラ～ココマデの部分をコピーして貼付け。
エクセルシートに戻り作業開始
１．シート選択、２．列選択、
３．ツール－マクロ－マクロ－「一括列挿入」を選択して実行

行挿入はできません。（列挿入のみ）
これでもうまくいかない時は
各作業ごとに少し時間を置いてやらせる
方法もあります。

１回だけとか、たまになら
シート数を減らして
何回かに分けた方が早いです。

この回答へのお礼

ありがとうございました。確認します。

お礼日時：2002/02/19 14:08