一部セルを保護しながら書込みを続けるエクセルでオートフィルタ的な動きもさせたい

質問

関数を埋め込んだあちこちのセルを不注意で改変されないようにしながらしかもそれ以外のセルには記入を続け、同時にしばしばオートフィルタを使いたいのですが、一部セルのロックとシートの保護をすれば、オートフィルタが使えなくなります。

是非同様な機能を盛り込みたいのですが、何か方法があるでしょうか？お教え下さい。

具体的には全部で500行程度で7項目の小計で出来たごく普通の見積書ですが、実際の使用は100行程度です。
金額欄が空白である行を非表示にすれば印刷が無駄になりませんが、保護をするとオートフィルタが使えません。色々な方法を試みて丸一日経ってしまいました。この見積書を使うのはエクセル操作に慣れた人ではありません。
過去の質問を見ても私の疑問は解決出来ておりません。

見方を変えて、項目行を一行書き込むごとに同じデザインの項目行が生成されて、合計欄はそれを加えながら繰り下がって行く事が出来れば目的が同じでよりスマートな方法ですが、可能でしょうか？
ご質問が二つになってしまいましたが、どちらでも結構です。よろしくお願いします。

回答No.1

Wendy02 · ベストアンサー

こんばんは。

Excelの　Version によって分かれるご質問だと思います。

とりあえず、数式の保護から始めます。
ワークシートの　左上の□の部分をクリックすると、全体が選択されます。

□A
1

そこで、右クリック－[書式]－[保護]－[ロック]
のチェックを外します。

次に、メニューの[編集]－[ジャンプ]－[セル選択]
で、
[数式]をクリック-[OK]をクリック

数式だけが選択されたはずですが、
先ほどと同じ、

右クリック－[書式]－[保護]－[ロック]
のチェックを入れます。

2002 以降でしたら、シートの保護のオプションで、[オートフィルタの使用]を選んで設定してください。

もし、2000以下でしたら、[シートタブ]を右クリックして、[コードの表示]

以下のコードを貼り付けて、カーソルをそのコード内に置いてから、F5 を押します。ポーンと鳴ったら、設定終了です。

なお、パスワードが必要でしたら、以下のPassword ="xx" を入れてください。

'-------------------------------------
Sub SetProtect()
　　　EnableAutoFilter = True
　　　Protect Password:="", UserInterFaceOnly:=True
　　　Beep
End Sub
'-------------------------------------

＞見方を変えて、項目行を一行書き込むごとに同じデザインの項目行が生成されて、合計欄はそれを加えながら繰り下がって行く事が出来れば目的が同じでよりスマートな方法ですが、可能でしょうか？

保護されたシートの状態のままでは、多少、難しいように思います。いずれにしても、VBA で作らなくてはなりませんが、お話の中の、「項目行が生成され」とかいうのは、具体的なイメージが湧きません。ですから、今回は、それは、見送らせていただきました。

お礼

考え直しました。折角欲しいお答えを頂いているのに別の質問をしてはいけませんね。
これで締め切って別の質問を立てましょう。今回は有難うございました。

補足

快刀乱麻のお答え有難うございました。ついでに「ジャンプ」まで教えて頂きました。早速実行してから要旨をメモにして保存しました。バージョンは書き忘れてしまっていましたが2002でした。

最後のご質問は；
見積用紙の明細行は内容・明細・数量・単位・単価・金額・備考の横並びセルから成り、その明細行は下へ適当回繰り返されて、最後にそれらを合算する小計行が来ます。
デフォルトでは明細3行程度＋小計行の簡単なもので、最初の一行を記入すると自動的に4行目が生成されて小計行は計算結果を表示しつつ自動的に一行繰り下がる、というものをイメージしてみました。
それならば明細行の不足を恐れてPC上でトイレットペーパーのように長大な見積用紙を用意した挙句にオートフィルタを使って短縮表示するという無駄がなくなりますね。　それは可能でしょうか。