アクティブになるセル範囲を限定する方法は？

得意先からいただいたExcel2000のワークシートなんですが、A1:M40までしかアクティブになりません。その範囲の外側はちょうどツールバーと同じ色になっており、移動はおろか、ポイントすることも出来ません。
こういった入力範囲を限定する方法はフリーソフトにも見られましたが、どうやって設定するのでしょう？

この表ですと、大きな表でもマウスだけで範囲を選択しようとしたときに、とんでもなく広い範囲を選択することがなくなるのでは？とひそかな期待を持っています。

No.3 ベストアンサー 回答者： Hageoyadi 回答日時： 2002/10/19 22:51

単純にL列より右の全ての列と４０行より下の全ての行を非表示にすると、おっしゃるように範囲の外側がツールバーと同じ色になりますが、違

います？

この回答へのお礼

まさにその通りでした。
メニュー項目をいろいろいじった私にとっては、意外な方法でした。
ありがとうございます。

お礼日時：2002/10/20 08:43

No.6 回答者： ka3 回答日時： 2002/10/20 01:20

　表示の状況だけですが、［表示(V)］-［改ページプレビュー(P)］が指定されているのでは、無いでしょうか ？

この回答へのお礼

回答ありがとうございます。
単純に、範囲外の行や列が非表示になっているだけでした。
お騒がせしました。

お礼日時：2002/10/20 08:52

No.5 回答者： imogasi 回答日時： 2002/10/19 23:44

#2のものです。

>「Visual Basic Editorを開いてもマクロがまったく記録されていません。」の意味が判りません。下記をやっていただいたでしょうか。念のため
記します。
保存して、また開くと、セキュリｔィレベルが中（Ｍ）なら、マクロの警告は出ると思います。低（Ｓ）なら出ない。
実行のし方は、（１）ワークシートでALT+F11
（２）左側にプロジェクトの画面があればSheet1をダブルクリック。
（３）出ていなければ表示－プロジェクトエクスプローラーをクリック。
　　　その後（２）
（４）真中のオブジェクトのボックスからをWORKSHEETをクリック。
（５）右側のイベントのボックスからSelectionChangeをクリック。
　　　回答からSub-Endで挟まれた部分を貼り付け。
（６）ワークシートに戻り、どこでも良いからセルをクリック
（７）範囲外だとメッセージがでて、入力できない。

この回答へのお礼

申し訳ありません。説明不足でした。
imogasiさんの方法を施したファイルはちゃんとマクロが記録されますし、保存後に開くと警告メッセージが表示されます。
「質問の発端になった得意先からいただいたファイルにマクロが記録されていないようです」と表記すべきでした。
ただ、#3,#4の方々のご回答でVBAを用いずに作られたファイルだと判明しました。
お手数をおかけして申し訳ありません。

お礼日時：2002/10/20 08:50

No.4 回答者： papayuka 回答日時： 2002/10/19 23:21

こんにちは。

#3 さんの回答が今回の状態だと私も思います。

１．N列を列全て選択し、Ctrl + Shift + → キーで残りの列を選択し、右クリックの非表示
２．41行目の行全て選択し、Ctrl + Shift + ↓ キーで残りの行を選択し、右クリックの非表示

この回答へのお礼

ありがとうございます。おかげで行の選択で数分に及ぶドラッグをしないで済みます。

お礼日時：2002/10/20 08:45

No.2 回答者： imogasi 回答日時： 2002/10/19 22:43

現実のソフトにおいて、これが使われるかどうか知りませんが、A1:E5の範囲外はエラーにするとして

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 5 Or Target.Column > 5 Then
MsgBox "範囲を越えています"
End If
End Sub
で似たようなことはできます。ただ複数セルを指定して範囲指定が出きるので、それを考慮するともう少し複雑になりますが。範囲外のセルを色を付ける事は、VBAでも操作でも出来ます。

この回答へのお礼

ありがとうございます。セルをポイントしたときに自動実行されるマクロなんですね。いろいろ方法があるんですね。
しかし、いただいたファイルは「Visual Basic Editorを開いてもマクロがまったく記録されていません。
ファイルを開くときにも「マクロを含んでます」というようなメッセージも表示されませんでした。これは、マクロを用いたワザではないのでしょうか？

お礼日時：2002/10/19 23:10

No.1 回答者： tamagawa49 回答日時： 2002/10/19 22:37

こんなマクロを実行すると出来ます。

Sub 入力制限()
Sheets("sheet1").Select
With Worksheets("sheet1")
.Range("A1:M40").Name = "範囲"
.ScrollArea = "範囲"
.EnableSelection = xlUnlockedCells
.Protect userinterfaceonly:=True
End With
End Sub

このマクロを実行する前にシート上でA1：M40のセルだけロックをはずしておいて下さい。
念のため、実行するシートの名前はSheet1にして下さい。でないと、エラーになります。

この回答へのお礼

ありがとうございます。
範囲外がなぜツールバーと同じになるのかまだわかりませんが、やろうとしていることは教えていただいた方法で十分出来ます。
感謝。

お礼日時：2002/10/19 22:56