[[20190328133837]] 『オートフィルタが使えない』(brad) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『オートフィルタが使えない』(brad)

フィルタの詳細設定で報告書シートから今週分の予定を抽出するマクロを作成しました。
フィルタの詳細設定を使用するとリスト範囲のオートフィルタが解除されてしまうため、再度オートフィルタをかける設定をしています。
抽出元・抽出先いずれもシート保護をかけて使用しています。
マクロを実行した時は報告書シートのオートフィルタは使用できますが、
ファイルを一度閉じて再度開くとオートフィルタが使用できない状態になってしまいます。

作成したマクロは以下の通りです。
何か設定が間違っているのでしょうか?

Sub Macro1()
'
' Macro1 Macro

    Sheets("今週の予定").Select
    Worksheets("今週の予定").Unprotect Password:="AAA″"
    Range("5:50").Delete
    ActiveSheet.UsedRange
    Sheets("報告書").Range("A11:AC3343").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A2:B3"), CopyToRange:=Range("C4:h50"), Unique:=False
        Cells(Rows.Count, 1).End(xlUp).Select
        Range("C4").Select
        Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
        Selection.Font.Color = 1
        Range("C:E").HorizontalAlignment = xlCenter
         Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Borders.LineStyle = xlContinuous
        Dim sheet1 As Worksheet
        Set sheet1 = Worksheets("今週の予定")
        sheet1.Protect Password:="AAA″"
        Sheets("報告書").Activate
        ActiveSheet.Unprotect Password:="AAA"
        Rows("11:11").Select
        Selection.AutoFilter
        Sheets("報告書").EnableAutoFilter = True
        Sheets("報告書").Protect UserInterfaceonly:=True
        ActiveSheet.Protect Password:="AAA"
  End Sub

< 使用 Excel:Excel2010、使用 OS:Windows7 >


 ActiveSheet.Protect Password:="AAA" , AllowFiltering:=True
 オートフィルタを使えるシート保護にする必要があるかと思います!

 もう少し直したいところあるけど・・・

(稲葉) 2019/03/28(木) 13:58


うまくいきました。
ありがとうございました!
(brad) 2019/03/28(木) 14:20

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.