セルの書込み禁止

質問

Excelでセル、または行・列の書き込みを禁止する事は出来ますか？

回答No.12

imogasi

>一度入力したセルは誤入力の恐れがあるので、書き込みを禁止したい。
２重打ち・上書きの防止のようなことだと思いますので、やりたい気持ちもわかります。
入力済みのセルは入力の都度増えていきます。したがって回答既出の操作では、入力を一休みするときに保護していくのも出来なくは無いが、現実的に
可能な方法ではない。そこでＶＢＡの出番です。
ただＶＢＡになれた方に対して以外はお勧めできませんが。下記はあくまでもヒントで、修正して使いやすくしないといけないので。
（１）A1:A8がブランクで値を入力したい。Ａ９に値をいれておく。
Sub lock01()
ActiveSheet.Unprotect
Cells.Locked = True
MsgBox ActiveSheet.UsedRange.Address
ActiveSheet.UsedRange.SpecialCells( _
Type:=xlCellTypeBlanks).Locked = False
ActiveSheet.Protect
End Sub
これでＡ９以下は入力ダメ、Ｂ列より右は入力ダメになります。
Ａ１：Ａ８は入力、訂正は何度でも可能です。
Ａ１：Ａ３に入力済みの段階で上記を実行するとＡ４からＡ８までブランク
のセルのみ入力可能です。
（２）一度入力したセルを入力不可にする。
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
r = Target.Row
c = Target.Column
ActiveSheet.Cells(r, c).Locked = True
ActiveSheet.Protect
End Sub

お礼

確認が遅れて申し訳ありませんでした。
回答ありがとうございました。

回答No.11

taisuke555

すいません。こちらに変えてください。

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Value <> "") Then
ActiveSheet.Unprotect
Target.Locked = True
Target.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

入力時に、何も入力されていなくてもロックが掛かってしまうので変更しました。
何度もすいません。

お礼

確認が遅れて申し訳ありませんでした。
回答ありがとうございました。

回答No.10

taisuke555

VBAで作ってみました。
間違えて入力してしまった時などの事は、何も書いていなかったので処理していません。

使い方が分からなければ、また質問してください。

（１）まず、シート全体のロックをはずす。（下記回答を見れば操作は分かると思います。）
（２）シートを保護します。（今回は、パスワードは指定しない方法です。）

（３）VBEditerでシートに下記を貼り付ける。
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
Target.Locked = True
Target.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

これで入力した場所は入力不可になります。
やっている事は、
（１）入力があった場合に
（２）シートの保護を解除し
（３）セルにロックをかけ
（４）シートを保護する
です。

お礼

確認が遅れて申し訳ありませんでした。
回答ありがとうございました。

回答No.9

h_narunaru

>Excelを使用していて、
>順々にセルを使用していきます。
>そこで、一度入力したセルは誤入力の恐れがあるので、
>書き込みを禁止したい。

それは、入力したつどに自動的に保護がかけれないかと言うことですか？
それは、無理だと思います。
出来た表のこれから、入力する所意外の入力済みの所を保護したいのなら、私の方法か他の人の方法でＯＫだと思いますヨ

お礼

確認が遅れて申し訳ありませんでした。
回答ありがとうございました。

回答No.8

imogasi

ご回答は既に出ていますが、私はかって、常識と違う順序の操作で戸惑いました。下記が理解の一助になれば。
（原理）
(1)・ワークシート保護＋セルのロックで変更不可
　　　ワークシート保護＋セルのアンロックで変更可
　　　なんです。
　　・ワークシートはシート全体、ロックはセル単位なんです。
　　・セル単位のロックをしただけでは、入力は不可にならない。
　　ワークシート保護がかかってはじめて、そのセルが変更不可になる。
（操作）
（２）入力可のセル範囲を選択する。書式－セル－ロックのチェックを外す。
（３）ワークシートの保護を掛ける。
・（３）を先にすると（２）の書式－セルのセルが指定できず、この操作が
　出来ない。したがって（２）を先にしなければならない。

お礼

確認が遅れて申し訳ありませんでした。
回答ありがとうございました。

回答No.7

h_narunaru

taisuke555さんへ

気分は害していませんので、ご心配なく
私の書き方が悪かったんですネ
今度は、もっと分かりやすく書きます。
taisuke555さんのレスを見て、最近のバージョンからやり方が変わったのかと思いました。
私もここで、助けていただいていますので、分かる範囲内で応援したいと思っています。

ljr9527さんがんばってくださいネ
皆さん良い人ばかりですヨ

補足

皆さん、回答ありがとうございました。

もう一度この質問をした経緯を説明いたします。

Excelを使用していて、
順々にセルを使用していきます。
そこで、一度入力したセルは誤入力の恐れがあるので、
書き込みを禁止したい。

という事です。
そのような方法が設定できましたら、
教えてください。
宜しくお願いします。

回答No.6

taisuke555

h_narunaruさんへ

同じ事を言っていたようですね。失礼しました。

私の解釈が悪くて、入力禁止にしたい場所のロックをはずし・・・と解釈してしまいました。

気分を害されたら申し訳ありません。

回答No.5

h_narunaru

#1での回答をした物です。
変ですネ
私はこれで保護していますヨ
ロックのチェックをはずした所は入力は出来ますが、それ以外は保護されます。
保護をかけると書式設定は出来なくなるので、保護をはずしてからする必要がありますヨ
一度試してください。

回答No.4

taisuke555

書き方が悪かったですね。

＃３の方のおっしゃるように、シートの保護をかける前に
入力可能にしたいセルのロックをはずしてください。

回答No.3

hanabisi73

こんにちわ（＾－＾）

書き込み禁止（シートの保護）をしたセルは編集は出来ません。

もし編集したい場合はシートの保護を解除（「ツール」→「保護」→「シートの保護の解除」）を実行してください。

もし、変更しても一向に構わないセルであれば＃２さんが後半で述べられているとおりそのセルだけ保護をかけない方法が良いと思います。