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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excelにて入力済セルへの再入力禁止
Excel(エクセル)
-
EXCELで入力したセルを変更できないようにしたい
Excel(エクセル)
-
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
-
4
A1セルに入力したら、入力時間をA2セルに自動挿入
Excel(エクセル)
-
5
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
6
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
7
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
8
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
9
Excel マクロ VBA プロシージャが大きすぎます のエラー対処方法
Visual Basic(VBA)
-
10
EXCELの特定セルを編集不可にする
Excel(エクセル)
-
11
【タブレットPC】フォーム画面にキーボードを作成して入力したい
Access(アクセス)
-
12
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
13
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
14
VBA 数値を文字列として貼付したい
Excel(エクセル)
-
15
VBAで困っています。
Excel(エクセル)
-
16
マクロを実行中に、msgbox を表示させたまま、ワークシートを上下左右に移動表示させたい。
Excel(エクセル)
-
17
セルの上書き禁止について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで数式内の文字色を一部だ...
-
【エクセル】IF関数 Aまたは...
-
Excelでのコメント表示位置
-
エクセルの一つのセルに複数の...
-
エクセルで指定したセルのどれ...
-
セルをクリック⇒そのセルに入力...
-
投資番組の専門家は どういうと...
-
エクセルのセルの枠を超えて文...
-
エクセル 足して割る
-
貼り付けで複数セルに貼り付けたい
-
(Excel)数字記入セルの数値の後...
-
対象セル内(複数)が埋まった...
-
Excel2003 の『コメント』の編...
-
【Excel】 セルの色での判断は...
-
EXCEL VBA セルに既に入...
-
エクセル オートフィルタで絞...
-
セルの高さ(行高)を求めるには?
-
複数のセルのいずれかに数字が...
-
LARGE関数 飛び飛びの範囲を指定
-
Excelで住所を2つ(町名迄と番...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル 足して割る
-
【エクセル】IF関数 Aまたは...
-
エクセルで指定したセルのどれ...
-
Excelで数式内の文字色を一部だ...
-
Excelでのコメント表示位置
-
貼り付けで複数セルに貼り付けたい
-
対象セル内(複数)が埋まった...
-
セルをクリック⇒そのセルに入力...
-
【Excel】 セルの色での判断は...
-
エクセルの一つのセルに複数の...
-
EXCEL VBA セルに既に入...
-
エクセル “13ヶ月”を“1年1ヶ月...
-
エクセル オートフィルタで絞...
-
エクセルのセルの枠を超えて文...
-
excelのCOUNTIF関数で、『範囲=...
-
(Excel)数字記入セルの数値の後...
-
枠に収まらない文字を非表示に...
-
Excel2003 の『コメント』の編...
-
Excel 例A(1+9) のように番地の...
-
複数のセルのいずれかに数字が...
おすすめ情報