No.4ベストアンサー
- 回答日時:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
ActiveSheet.Unprotect Password:="1234567"
For Each c In Target
If c.Value <> "" Then
c.Locked = True
End If
Next
ActiveSheet.Protect Password:="1234567"
End Sub
何度もすいませんでした。
やはり、コードの貼付けが間違っていました。
キチンと思うように動くようになりました。
本当に、ありがとうございました。
No.3
- 回答日時:
ちょと気になったので。
。例えば、
10日に入れた予定を取り消す場合とか
10日に入れた予定を15日に変更する場合など
パスワードを知らない使用者にはできませんよね。
そこらあたりは問題になりそうな気もしますが。。。
以上です。
No.2
- 回答日時:
>ここで、管理者しかロック解除できないパスワードの設定は出来ないでしょうか?
パスワード保護
ActiveSheet.Protect password:="1234567"
〃 解除
ActiveSheet.Unprotect password:="1234567"
この回答への補足
外出してて遅くなりました。
ありがとうございます。
ご教示いただいたパスワードの設定コードを入れますと、
セルに入力後エンターキーで確定すると、パスワード入力画面が出てきて、
キャンセルをクリックしてもデバッグとなってしまします。
書き込み方が悪いのだと思います。
どのように書き込めばよいのでしょうか。
たびたびで、申し訳ありませんが、よろしくお願いいたします。
No.1
- 回答日時:
最初に全セルを選択後
[書式]-[セル]-[保護]-[ロック]のチェックを解除してください。
以下をシートモジュールに貼り付けてください。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
ActiveSheet.Unprotect
For Each c In Target
If c.Value <> "" Then
c.Locked = True
End If
Next
ActiveSheet.Protect
End Sub
Changeイベントでセルに何らかの値が入力されると、セルにロックがかかり上書き出来なくなります。
この回答への補足
早速のご教示ありがとうございます。
これは、一度ロックがかかり上書きが出来なくなりますが、
ツールの保護解除(パスワード無し)で、自由にまた入力出来るようになります。
ここで、管理者しかロック解除できないパスワードの設定は出来ないでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) エクセルで条件付き書式を使わずにセルの文字の色を変える方法を教えて下さい 8 2023/07/28 01:15
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- Visual Basic(VBA) VBA ドロップダウンリストを残して値のみクリア 2 2022/10/27 05:42
- Excel(エクセル) マクロ/VBAについて教えてください。 10 2022/05/27 12:59
- Excel(エクセル) エクセルでシート保護のかかり方の違いとセルの非保護の設定 3 2022/08/09 10:02
- Excel(エクセル) セルの上書き禁止について 5 2022/04/02 10:09
- Excel(エクセル) エクセルで日付に続けて連番を表示したい 6 2022/05/25 23:33
- その他(Microsoft Office) エクセルの休日について教えてください。 1 2023/01/06 15:45
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
Excelにて入力済セルへの再入力禁止
Excel(エクセル)
-
EXCELで入力したセルを変更できないようにしたい
Excel(エクセル)
-
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
-
4
UserForm1.Showでエラーになります。
工学
-
5
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
6
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
7
A1セルに入力したら、入力時間をA2セルに自動挿入
Excel(エクセル)
-
8
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
9
EXCELの特定セルを編集不可にする
Excel(エクセル)
-
10
既にデータ入力済のセルに上書きを防ぐ方法
Excel(エクセル)
-
11
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
12
VBA 数値を文字列として貼付したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【エクセル】IF関数 Aまたは...
-
エクセルで指定したセルのどれ...
-
対象セル内(複数)が埋まった...
-
セルをクリック⇒そのセルに入力...
-
貼り付けで複数セルに貼り付けたい
-
エクセルのセルの枠を超えて文...
-
エクセル 足して割る
-
エクセル オートフィルタで絞...
-
Excelでのコメント表示位置
-
Excelで数式内の文字色を一部だ...
-
(Excel)数字記入セルの数値の後...
-
エクセルの一つのセルに複数の...
-
エクセルvba (ByVal Targ...
-
枠に収まらない文字を非表示に...
-
excelのCOUNTIF関数で、『範囲=...
-
Excel2003 の『コメント』の編...
-
excelの特定のセルの隣のセル指...
-
Excelの関数で、性別が男なら『...
-
excelで検索値の入っているセル...
-
エクセルで作成したカレンダー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで指定したセルのどれ...
-
【エクセル】IF関数 Aまたは...
-
対象セル内(複数)が埋まった...
-
エクセル 足して割る
-
Excelで数式内の文字色を一部だ...
-
貼り付けで複数セルに貼り付けたい
-
Excelでのコメント表示位置
-
セルをクリック⇒そのセルに入力...
-
EXCEL VBA セルに既に入...
-
excelのCOUNTIF関数で、『範囲=...
-
【Excel】 セルの色での判断は...
-
エクセル オートフィルタで絞...
-
エクセルのセルの枠を超えて文...
-
(Excel)数字記入セルの数値の後...
-
Excelで、「特定のセル」に入力...
-
エクセルの一つのセルに複数の...
-
複数のセルのいずれかに数字が...
-
excelの特定のセルの隣のセル指...
-
数式を残したまま、別のセルに...
-
ハイパーリンクの参照セルのズ...
おすすめ情報