[[20151203133341]]　『マクロでフィルタのクリア』（宙）　ページの最後に飛ぶ

『マクロでフィルタのクリア』（宙）

シートが保護されていて、オートフィルタの使用にロックがかかっているため、フィルタを解除してしまうのは困るので、フィルタのクリアがしたいです。

今までは下記のように記述していたのですが、これですとフィルタごと解除されてしまって困っています。

Workbooks(ファイル名).Worksheets(1).Activate
Workbooks(ファイル名).Worksheets(1).ActiveSheet.ShowAllData

フィルタだけクリアする方法はないでしょうか。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 まず、

 >>シートが保護されていて、オートフィルタの使用にロックがかかっているため

 シート保護条件で　オートフィルターの使用を許可するチェックが入っているということではないのですか？

 その前提で、

 >>今までは下記のように記述していたのですが、これですとフィルタごと解除されてしまって困っています

 ほんとですか？
 Workbooks(ファイル名).Worksheets(1).ActiveSheet.ShowAllData　では、プロパティがサポートされていないと
 コンパイラーから叱られませんか？
 また、シート.SHowAllData と記述をかえても、実行時エラーになりませんか？

 フィルターごと解除されてしまうというところがわからないのですが？
 シートは保護されているんですよね？

（β） 2015/12/03(木) 17:12

言っている事が実は逆で、オートフィルタが使用できるようにチェックして保護をかけたが、
保護がかかった状態ではマクロでフィルタ操作ができない、とか？

マクロなんだし、保護解除して、終わったらまた保護するだけではないかと思います。こんなとか。

 Sub test()
    With ActiveSheet
        .Unprotect
        .AutoFilterMode = False
        .Rows(1).AutoFilter
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
    End With
 End Sub
（???） 2015/12/03(木) 17:21

コメント返信：

[ 一覧(最新更新順) ]

[[20151203133341]] 『マクロでフィルタのクリア』（宙） ページの最後に飛ぶ

[[20151203133341]]　『マクロでフィルタのクリア』（宙）　ページの最後に飛ぶ