Excel2010:部分的な行制御（追加）に関し

質問

教えてください。

Excel2010でなのですが、ある部分1行目から20行目位までは、

　・行の新規追加は不可
　・行にあるDataに関しては、編集可能

とし、行11行目からは、

　・行の追加
　・Dataの編集など

は、フリーで出来るといったロック制御・シートの保護は出来ますでしょうか？

下記のURLで

■http://office.microsoft.com/ja-jp/excel-help/HA010096837.aspx
■http://www.atmarkit.co.jp/ait/articles/0709/28/news153.html

シートの保護をした時に行の追加不可はシートの全体に掛かってしまうようで、
部分的に行追加が出来ません。

VBなどマクロを組まないで、また、パスワードなど設定しないで上記のことは可能でしょうか？

以上、ご存じの方いましたら、よろしくお願いいたします。

回答No.1

nishi6 · ベストアンサー

普通に設定のみでは難しいですね。

質問には「20行目位」や「11行目から」があってよく分かりませんが、「1～10行には行が挿入できない」として考えました。下記マクロの「myProtect」を「True」にすると質問のような保護（のような動き）をします。これをシート側に出して、マクロで参照すれば操作性は上がるでしょう。基本的には「UnDo」をしています。

8～12行目のように10行目までをまたいだ挿入もできません。考え通りの動きをするか確かめてください。1～10行目を削除すると新たな1～10行目が制約の対象になります。挿入に制約があって、削除に制約がないのは？ですね。

シートのコードウィンドウに貼り付けます。

Const myProtect As Boolean = True 'Trueにしたら保護有効

Dim TargetRng As Range '選択したセル
Dim TargetAdr As String '選択したセルのアドレス

Sub Worksheet_SelectionChange(ByVal Target As Range)
　　Set TargetRng = Target　　 '選択範囲を記憶
　　TargetAdr = Target.Address
End Sub

Sub Worksheet_Change(ByVal Target As Range)
　　If myProtect = True Then
　　　　If Not TargetRng Is Nothing Then
　　　　　　If Intersect(Target, Range("1:10")) Is Nothing Then Exit Sub

　　　　　　On Error Resume Next

　　　　　　If TargetAdr <> TargetRng.Address Then
　　　　　　　　If Err.Number = 0 Then
　　　　　　　　　　Application.EnableEvents = False
　　　　　　　　　　Application.Undo 'UnDo
　　　　　　　　　　Application.EnableEvents = True
　　　　　　　　End If
　　　　　　End If

　　　　　　On Error GoTo 0
　　　　End If
　　End If
End Sub

お礼

nishi6さん

ありがとうございます。

やはり、設定では難しいのですね。。。

マクロを参考にしてやってみます。

色々とありがとうございました。