Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
30268 / 76738 ←次へ　｜　前へ→
【51737】Re:セル編集に対してのプロテクト
発言  n  - 07/10/3(水) 0:30 -
引用なし
パスワード
   こんにちは。
//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

などとすればできそうです。
オートフィルタは右クリックメニューから実行します。
0 hits
▼ 【51608】セル編集に対してのプロテクト hirop 07/9/27(木) 11:02 質問
【51610】Re:セル編集に対してのプロテクト ぱっせんじゃー 07/9/27(木) 11:28 発言
【51612】Re:セル編集に対してのプロテクト hirop 07/9/27(木) 11:46 質問
【51613】Re:セル編集に対してのプロテクト Kiyoko 07/9/27(木) 11:58 回答
【51614】Re:セル編集に対してのプロテクト ぱっせんじゃー 07/9/27(木) 12:01 発言
【51620】Re:セル編集に対してのプロテクト hirop 07/9/27(木) 13:08 質問
【51621】Re:セル編集に対してのプロテクト ぱっせんじゃー 07/9/27(木) 13:11 発言
【51622】Re:セル編集に対してのプロテクト hirop 07/9/27(木) 13:50 質問
【51623】Re:セル編集に対してのプロテクト ぱっせんじゃー 07/9/27(木) 13:58 発言
【51624】Re:セル編集に対してのプロテクト hirop 07/9/27(木) 14:13 質問
【51625】Re:セル編集に対してのプロテクト ぱっせんじゃー 07/9/27(木) 14:15 発言
【51626】Re:セル編集に対してのプロテクト hirop 07/9/27(木) 14:20 質問
【51627】Re:セル編集に対してのプロテクト ぱっせんじゃー 07/9/27(木) 14:31 発言
【51628】Re:セル編集に対してのプロテクト ぱっせんじゃー 07/9/27(木) 14:34 発言
【51629】Re:セル編集に対してのプロテクト hirop 07/9/27(木) 14:45 質問
【51630】Re:セル編集に対してのプロテクト hirop 07/9/27(木) 14:52 質問
【51631】Re:セル編集に対してのプロテクト ぱっせんじゃー 07/9/27(木) 14:55 発言
【51632】Re:セル編集に対してのプロテクト hirop 07/9/27(木) 14:58 質問
【51633】Re:セル編集に対してのプロテクト ぱっせんじゃー 07/9/27(木) 15:04 発言
【51737】Re:セル編集に対してのプロテクト n 07/10/3(水) 0:30 発言≪
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
30268 / 76738 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free