シート保護で入力規則でオートフィルするには

お世話になっております。

シートに図形と入力規則のあるセルが存在します。
シートの保護をかけると、図形も入力規則も保護され、入力規則で選択した内容をオートフィルすることができません。セルの保護を外しているのですが、入力規則の▼もオブジェクトなんですね。
保護をかけるときに「オブジェクトの編集」にチェックを入れると、入力規則でのオートフィルはできますが、図形で右クリックをして編集できてしまいます。困りました。。

希望は以下の通りです。
シートの保護をかけたときに、
・図形は保護したい。
・入力規則セルは選択後にオートフィルできるようにしたい。

です。

VBAでも大丈夫です。何とかお知恵を拝借できませんでしょうか。
また、現在は何とかならないかと思っていますが、それは不可能です！ということがはっきりとわかればあきらめますのでどうぞご教示よろしくお願いいたします。

bebebe_

2021/11/18 02:31

状況をうまく把握できていないかもしれないですが図形のプロパティの「セルにあわせて移動やサイズ変更をしない」を選択するのはだめですか？

poporon7

2021/11/18 02:48 編集

ありがとうございます。そうなんです。それだと、確かに列幅を変えたときに図形は動かないのですが、右クリックで簡単に図形の大きさなどの変更はできてしまうのですよね。言葉たらずで申し訳ありません。つまりはシートの保護で図形を保護したときと同様、図形に対して右クリックができなくしたいということなのです。（上記質問を修正させていただきました）

bebebe_

2021/11/18 05:03 編集

軽く調べた限りでは希望を挙動ができそうな感じのものは見つかりませんでした。代案としては入力規則されていないセルであればオートフィル可能みたいなので入力規制されているセルの値をコピーするマクロを使いコピーしたセルをオートフィルしてもらうもしくはオートフィルの動作がセルの右下をドラッグでなくても良いのなら ActiveCell.AutoFill Selection などVBAにてオートフィルを実行する形になってしまう気がします。追記オートフィルでコピーされたセルにも入力規則が適用されている必要があるならVBAしかないかもしれません。

poporon7

2021/11/21 00:31

bebebe_様ご回答いただきありがとうございました。１行１レコードとして複数の方に入力していただくシートでありまして、複数回答が必要な列には１セルずつに入力規則を設定しています。上部にボタンを作成し、保護をかけることでボタンは動かされずに入力規則で選択したデータはオートフィルできるようにと考えたのですが、できないようですね。。代案もお考えいただき大変感謝しております。ありがとうございました。

行動規範の内容に同意します

回答3件

ベストアンサー

何かヒントに、なればと思い投稿しました

VBA
1Option Explicit
2Dim yoko As Long, tate As Long
3Private Sub Worksheet_SelectionChange(ByVal Target As Range)
4      yoko = Target.Row
5         tate = Target.Column
6         Cells(yoko, tate).Select
7         If yoko >= 7 And yoko <= 20 And tate = 2 Or yoko >= 7 And yoko <= 20 And tate = 4 Then
8            ActiveSheet.Unprotect Password:=123
9            Else
10            ActiveSheet.Protect Password:=123
11         End If
12End Sub
13

投稿2021/11/22 14:34

syousuke.33

総合スコア312

poporon7

2021/11/23 01:03

syousuke.33様なるほど！範囲を入力規則に絞ってそこをクリックしたときだけ保護を外すのですね！まったく思いつきませんでした。動きとして理想通りですのでベストアンサーにさせていただきます。ありがとうございました！

行動規範の内容に同意します

シートの保護をすると、セルの保護でチェックを外して保護対象外にしていても、入力規則でリスト設定している場合、オートフィルができなくなるということがわかりました。

投稿2021/11/21 01:04

poporon7

総合スコア22

対象のセルだけ『セルの書式設定→保護→ロック』のチェックを外すのでは駄目ですか？

投稿2021/11/20 04:09

jinoji

総合スコア4585

poporon7

2021/11/21 00:35

ご回答いただきありがとうございます。はい、入力規則でリストから選択できるように設定しているセルのロックをはずしていても、シートの保護をすると、セルのオートフィルはできないんです。シートの保護で、オブジェクトの保護にチェックを入れて保護をすると、できるようになります。ですが、他のオブジェクトも右クリックができて大きさを変えたりすることができてしまいます。この実現は難しいということがわかりました。