Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


54745 / 76732 ←次へ | 前へ→

【26773】Re:シート保護したまま値を入れたい
発言  かみちゃん  - 05/7/17(日) 9:19 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>このような条件で、請求書No.のセル(G3)のみプロテクトをかけず、マクロを知
>らない人が請求書No.を「保護のクリア」を使わず、自在に入れられるようにした
>い

まず、シートの各セルの「保護」の「ロック」を設定します。
基本的には、最初は、全てのセルに「ロック」が設定されています。
そこで、まず、G3セルの「書式設定」の「保護」の「ロック」のチェックをはずします。他のセルの設定は「ロック」がチェックされているので何もしません。
そのあと、「ツール」の「保護」の「シートの保護」を選択して、シートを保護します。

その上で、下記コードを実行してみてください。
シートの保護がかかっているにもかかわらず、G3セルだけは値が入ることがわかると思います。G4セルの値を入力しようとすると、保護がかかっているので、エラー
になりますが。

Sub Test()
' Sheets("請求書").Unprotect
 Range("G3").Value = 1
 Range("G4").Value = 1
' Sheets("請求書").Protect
End Sub

>本来なら改めて質問すべきでしょう

はい。他の方々もご覧になっていますので・・・
ということで、タイトルを変更させていただきました。

1 hits

【26759】最終行のセル値を獲得 nossori 05/7/16(土) 20:06 質問
【26760】Re:最終行のセル値を獲得 かみちゃん 05/7/16(土) 20:20 発言
【26761】Re:最終行のセル値を獲得 nossori 05/7/16(土) 20:59 質問
【26762】Re:最終行のセル値を獲得 かみちゃん 05/7/16(土) 21:08 発言
【26763】Re:最終行のセル値を獲得 nossori 05/7/16(土) 21:26 質問
【26764】Re:最終行のセル値を獲得 かみちゃん 05/7/16(土) 21:46 回答
【26765】Re:最終行のセル値を獲得 ichinose 05/7/16(土) 23:24 発言
【26768】Re:最終行のセル値を獲得 nossori 05/7/17(日) 6:52 お礼
【26770】Re:最終行のセル値を獲得 ichinose 05/7/17(日) 7:11 発言
【26771】Re:最終行のセル値を獲得 nossori 05/7/17(日) 7:56 質問
【26773】Re:シート保護したまま値を入れたい かみちゃん 05/7/17(日) 9:19 発言
【26774】Re:シート保護したまま値を入れたい nossori 05/7/17(日) 11:23 お礼

54745 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free