|
こんにちは。
//www.asahi-net.or.jp/~ef2o-inue/shiki/sub03_010_03.html
//www2.moug.net/bbs/exvba/20070813000013.htm
この辺りを参考にして、ThisWorkbookモジュールに
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Cell").Reset
End Sub
Private Sub Workbook_Open()
With Application.CommandBars("Cell").Controls.Add( _
Type:=msoControlButton, Before:=1, Temporary:=True)
.Caption = "オートフィルタ"
.OnAction = "ThisWorkbook.filter"
End With
With Worksheets("Sheet1")
.Unprotect
.EnableAutoFilter = True
.Protect UserInterfaceOnly:=True
End With
End Sub
Private Sub filter()
On Error Resume Next
Selection.AutoFilter
End Sub
などとすればできそうです。
オートフィルタは右クリックメニューから実行します。
|
|