エクセルのセルの編集制限（保護）の仕方

質問

いつもお世話になっております。
エクセル2016で、範囲を設定して、操作（並べ替え等）を指定して制限することができるのですが、入力するセルにはロックは当然かけらません。
しかし多人数で同じシートを使用する場合の保護として、データ入力後いったん保存したら、既存の入力セルの編集、上書きを禁止するような制限のかけ方はないのでしょうか？

回答No.6

HohoPapa

VBAを使わない（使えない）のであれば、
>多人数で同じシートを使用する
という皆さんがそれぞれ、
入力する都度、入力したセルをロックする必要があります。

保護の機能は既に使っているとのことですので、
マクロでは、あらかじめ指定した範囲について
期待の保護が動作するようにしてみました。

なお、マクロの配置先は、添付画像のとおり、
workbookです。
また、
ソースコードにシート保護のパスワードを書き込むことになりますので
ソースコードを利用者が覗けないようにする必要があります。

よかったら挑戦し、わからなければ聞いてください。

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

　Const RowS = 1　　　　　　　'ロック範囲開始行
　Const RowE = 7　　　　　　　'ロック範囲終了行’
　Const ColS = 1　　　　　　　'ロック開始列
　Const ColE = 8　　　　　　　'ロック終了行
　Const MyPassword = "hoge"　 'パスワード
　Const MySheet = "Sheet1"　　'保護したいシート名
　Dim RowCnt As Long
　Dim ColCnt As Long

　With ThisWorkbook.Sheets(MySheet)
　　.Unprotect Password:=MyPassword
　　For RowCnt = RowS To RowE
　　　For ColCnt = ColS To ColE
　　　　If .Cells(RowCnt, ColCnt).Value <> "" Then
　　　　　.Cells(RowCnt, ColCnt).Locked = True
　　　　Else
　　　　　.Cells(RowCnt, ColCnt).Locked = False
　　　　End If
　　　Next ColCnt
　　Next RowCnt
　　.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
　　　 Password:=MyPassword
　End With

End Sub

お礼

HohoPapaさん
お手数をお掛けしております。

さて、時間ができたので早速下記をThisWorkbookにコピペしてみたのですが全くなにも起こらず、従来かけていた1-15行目だけが保護されています。

入力範囲は16行目以降500行目まで、列はAからHまでの8列です。
パスワードも聞いてきませんでした。
保護したいシート名は「入力表」です。
上の左窓には「Workbook」右窓には「AfterSave]と表示されています。

おそらく基本的なところだと思うのですが、これが当方の実力ですので宜しくお願いいたします。

このマクロを使う場合、元の保護設定は全て外すのでしょうか？
一応従来設定していた、「シートの保護」の設定と「入力許可範囲」の設定は解除してみたのですが同じでしたが。。。

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

Const RowS = 16 'ロック範囲開始行
Const RowE = 500 'ロック範囲終了行’
Const ColS = 1 'ロック開始列
Const ColE = 8 'ロック終了行
Const MyPassword = "hoge" 'パスワード
Const MySheet = "入力表" '保護したいシート名
Dim RowCnt As Long
Dim ColCnt As Long

With ThisWorkbook.Sheets(MySheet)
.Unprotect Password:=MyPassword
For RowCnt = RowS To RowE
For ColCnt = ColS To ColE
If .Cells(RowCnt, ColCnt).Value <> "" Then
.Cells(RowCnt, ColCnt).Locked = True
Else
.Cells(RowCnt, ColCnt).Locked = False
End If
Next ColCnt
Next RowCnt
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
Password:=MyPassword
End With

End Sub

補足

いや～ご丁寧な回答痛み入ります。
必ずチャレンジしてみますが、今苦情対応で手が回らないので後日必ず試行し、結果報告（どうしても駄目そうならGive Uｐ宣言）しますのでしばらく時間をください）

おそらく再度の質問になると思います。
勝手ですがしばし時間をください。

先日顧客監査があり、入力場所以外（参照セルや計算式等）は保護がかけてあるが、既入力データ（入力範囲で保護されていないセル）の意図しない変更に対する対策を指摘されたものです。

つまり悪意のあるデータの改ざんの防止ではなく、ヒューマンエラーの防止が目的です。
よって必要時には他の人もいじれるようにパスワードも周知のものを使います。

他の顧客のデータ管理にも横展開できますので非常に助かります。