[[20041117150403]]　『シート保護を使った状態でフィルタの解除』（シーマス）　ページの最後に飛ぶ

『シート保護を使った状態でフィルタの解除』（シーマス）
質問があります。フィルタオプションで空白以外の行を抽出するようにマクロ記録を使って設定しました。その後シート保護をかけたのですが、抽出は出来るのですがフィルタを解除するさいの「すべて表示」が押せなくなっています。シート保護を解除すれば表示されるのですが、シート保護を解除しないでフィルタの解除をする方法はありますか？検索で調べたのですが該当するものが見つかりませんでした。

いいアドバイスがあればお願いします。

 フィルタってオートフィルタでしょ？？
EnableAutoFilter
をヘルプで調べてみてください。
多分出来ると思います。今、ちょっと手が放せないもんで、、
（SoulMan）

いえ、オートフィルタではありません。
オートフィルタで実行する場合は、オプションで使用可能にすれば操作が出来ます。

Sub リスト集計()

    Range("A6:AN208").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("A1:A2"), Unique:=False
End Sub

以上のように書かれたマクロをシート保護をした状態で使用すると解除するときに単純に

ActiveSheet.ShowAllData

では、デバッグしてしまうのです。

初歩的な質問でもうしわけありません。
＜シーマス＞

 コードの中で、保護の解除をしてから、
 ActiveSheet.ShowAllData
 その後、再度保護のコードを入れてはどうですか。
 （川野鮎太郎）

なるほど!!
わかりました。ありがとうございます。

気が付きませんでした。＜シーマス＞

コメント返信：

[ 一覧(最新更新順) ]

[[20041117150403]] 『シート保護を使った状態でフィルタの解除』（シーマス） ページの最後に飛ぶ

[[20041117150403]]　『シート保護を使った状態でフィルタの解除』（シーマス）　ページの最後に飛ぶ