|
そうでした..orz
..Asc(.Trim(.Clean..処理の前にFilter解除が必要なので
やはりBookClose時に解除処理を入れないといけません。
>With Sheets("Sheet1")
> If .FilterMode Then
> .ShowAllData
> End If
>End With
このコードはBeforeCloseイベントに書いてください。
それから、
このBookを閉じる時はどうのような方法で閉じていますか?
ボタンか何かで、ThisWorkbook.Close など、
Bookを閉じるマクロを呼び出したりしていると、
BeforeCloseイベント内での ShowAllData メソッドが無視されると思います。
また Savedプロパティによる制御もうまくいかないようです。
なので、マクロによってそのBookを閉じる場合は、
Sub test()
Application.CommandBars.FindControl(ID:=106).accDoDefaultAction
End Sub
このように、手動で閉じる動作をエミュレートするような内容のマクロに変えてください。
|
|