パスワードでの制限について (ID:86158)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 一例ですが下記のような方法はいかがでしょう。 対象シートの編集制限をかけないセル以外のロック属性をTrueにしてやり 制限をかけないところのロック属性はFalseにしておく。 その後、シートの保護をすれば一つのセル以外は入力できなくなります。 その操作のマクロを以下に貼って起きます。 E10以外のセルは入力できないようになります。 シートの保護を解除するにはパスワード"1234"を入れます。 Cells.Select Selection.Locked = True Selection.FormulaHidden = False Range("E10").Select Selection.Locked = False Selection.FormulaHidden = False ActiveSheet.Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True