Page 700 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ INDEX ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼シートを保護した場合の選択できるセルを限定する mz 02/10/8(火) 10:56 ┗Re:シートを保護した場合の選択できるセルを限定する Taka-mk2 02/10/9(水) 10:24 ┣Re:シートを保護した場合の選択できるセルを限定する mz 02/10/9(水) 10:57 ┃ ┗うーん。 Taka-mk2 02/10/10(木) 9:51 ┗Re:シートを保護した場合の選択できるセルを限定する A.K. 03/2/7(金) 15:54 ─────────────────────────────────────── ■題名 : シートを保護した場合の選択できるセルを限定する ■名前 : mz ■日付 : 02/10/8(火) 10:56 -------------------------------------------------------------------------
どうもmzと申します。 アンケート等をエクセルのシートで行う場合に回答してもらう個所以外を変更されないように シートに保護を掛けることあると思います。 その際、VBAで ActiveSheet.EnableSelection = xlUnlockedCells ActiveSheet.Protect と書いて、ロックのかかってないところ以外は選択できないようにするというこの構文をマクロを使用せずに行うことは可能でしょうか? なぜなら相手にファイルを送る場合にマクロを使用していると敬遠されてしまうことが多いため、なるべく通常、会社で使う普通のエクセルファイルで送りたいのです。 どなたか方法を知っている方はいませんか? よろしくお願いします。 |
雨上がりの東京から。 こんにちは! お助けになればいいのですが。 >ロックのかかってないところ以外は選択できないようにするというこの構文をマクロを使用せずに行うことは可能でしょうか? これは、保護をかけたあとも変更を可能にしたいセルの書式を変更すれば可能です。 セルの書式変更で「保護」のタブを選んで、「ロック」に入っているチェックをはずしてください。 これを行った後で、「ツール」→「保護」→「シートの保護」でシートに保護をかければ、ロックのチェックをはずしたセル以外は変更できなくなります。 といっても、2000でのみ確かめたことなので、ヴァージョンが違っていたら、あしからず、です。 いじょ、参考になれば。 |
▼Taka-mk2 さん: >これは、保護をかけたあとも変更を可能にしたいセルの書式を変更すれば可能です。 >セルの書式変更で「保護」のタブを選んで、「ロック」に入っているチェックをはずしてください。 >これを行った後で、「ツール」→「保護」→「シートの保護」でシートに保護をかければ、ロックのチェックをはずしたセル以外は変更できなくなります。 > >といっても、2000でのみ確かめたことなので、ヴァージョンが違っていたら、あしからず、です。 どうもレスありがとうございます。 ヴァージョンは2000で同じなのですが、 私の説明が悪かったのだと思いますが、ちょっと意図と違います。 上記のご提示いただいたやり方は、ロックをかけていない位置のデータの変更を制御するということだと思うのですが 私の意図は例えば全てのロックをかけた状態でA1とC1のロックをはずしてシートに保護をかけます。通常この状態ですとA1でENTERを押した場合にカーソルは編集で制御された方向(下にしていればA2)に移動すると思います。 しかし、私が載せたコードを実行するとA1を選択しているときにENTERを押すとロックが外れているC1に移動します。 つまりご提示いただいた方法は変更はできないかもしれませんが選択(カーソルをそのセルに移動する)することはできると思いますが選択することもできないようにしたいのです。 やはり無理でしょうか・・・ 引き続きよろしくお願いします。 |
東京は快晴です。 おはようございます。 誤解があったようですね。 申し訳ありません。 >私の意図は例えば全てのロックをかけた状態でA1とC1のロックをはずしてシートに保護をかけます。通常この状態ですとA1でENTERを押した場合にカーソルは編集で制御された方向(下にしていればA2)に移動すると思います。 これですね。 いろいろやってみたのですけれど、どうも私にはできない様子です。 ぐむ・・・お力になれずすみません。 シートのプロパティって保存できないのでしたっけ・・・(汗? |
▼Taka-mk2 さん: 今回のご回答参考にさせていただき、私の問題が解決 いたしました。 ありがとうございました。 |