EXCEL2003 VBA オートフィルター解除

質問

お世話になります。

EXCEL2003を使用しています。

10列ほど項目が並んだEXCELシートがありますが、このシートを開いた時にオートフィルターを10列すべての項目でオートフィルターを解除する仕組みをVBAで構築したいのです。

EXCEL2007ではオートフィルターモードという便利なプロパティがあるようですが、EXCEL2003で一括でオートフィルターを解除する方法を知りたいです。
(私以外のユーザーがオートフィルターをかけている時がよくあるので)

どなたかお知恵をお借りできませんでしょうか？

よろしくお願い致します。

環境
Windows XP SP3
EXCEL2003

回答No.2

tom04 · ベストアンサー

こんばんは！
一例です。

Alt+F11キー　→　画面左側の「ThisWorkbook」をダブルクリック　→　右側のVBE画面に
↓のコードをコピー＆ペーストし、そのファイルを保存してみてください。
元のファイルがマクロが設定されていないファイルの場合は、保存時の「ファイルの種類」で
「マクロ有効ブック」を選択し、保存しなおしてください。

Private Sub Workbook_Open() 'この行から
Dim k As Long
For k = 1 To Worksheets.Count
If Worksheets(k).AutoFilterMode = True Then
Worksheets(k).AutoFilterMode = False
End If
Next k
End Sub 'この行まで

これでファイルを開くたびにオートフィルタが設定してあるSheetは
すべてオートフィルタが解除されるはずです。m(_ _)m

お礼

tom04さん、ご連絡ありがとうございます！

ご教授いただきました方法で実現できました！

いつもご丁寧なご回答いただきまして本当にありがとうございます！！

回答No.1

kmetu

VBAでなくてもメニューから「データ」「フィルタ」「オートフィルタ」のチェックを外すという作業ではダメなのでしょうか？

お礼

kmetuさん、早速のご連絡ありがとうございます！

今回は別回答者様からご教授いただきましたVBAロジックでオートフィルターをOFFすることにしましたが、kmetuさんの仰る通り[オートフィルターを外す]という作業でも本件は解決できました。

迅速なご回答、本当にありがとうございました！！