[[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

コメント返信：

[ 一覧(最新更新順) ]

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

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