[[20050417083842]]　『オートフィルタ』（５５歳初心者）　ページの最後に飛ぶ

『オートフィルタ』（５５歳初心者）
下のようなマクロを自動で作りました

 　
Sub 納品書()
   Application.ScreenUpdating = False
   Sheets("a").Select
    Range("A1:O33").Select
    Selection.ClearContents
    Sheets("日報入力").Select
    ActiveCell.Select
   Range("A2:O33").Select
    Selection.Copy
    Sheets("a").Select
    Range("A1:O32").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Select
    Sheets("日報入力").Select
    Application.CutCopyMode = False
    Sheets("日報入力").Select
    Range("A1").Select
     Selection.AutoFilter Field:=4
    Sheets("納品書").Select
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub
日報表の中に関数がありますので保護をかけますと、Selection.AutoFilter Field:=4がエラーと表示されます保護をかけられないのでしょうか？。
いつも質問ばかりしてすみません、よろしくお願いします。

 2002以降なら保護する時に「ユーザーに許可する操作」に「オートフィルタの使用」が
あります。それで対応できなければ、シート保護を解除するコードを追加する事で
対応できませんか？
ActiveSheet.Unprotect
（ケン）

ケンさん早速の回答有難うございますオートフィルタの使用にチェック入れています、
エクセルは2003です。
ActiveSheet.Unprotectをどこに入れればいいのでしょうか？

 お邪魔様です。
Excel2000の場合です。
Option Explicit
Sub 納品書()
Application.ScreenUpdating = False
    With Sheets("a")
        .Range("A1:O33").ClearContents
        Sheets("日報入力").Range("A2:O33").Copy
        .Range("A1:O32").PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
    End With
    With Sheets("日報入力")
        .Protect , , , , True
        .EnableAutoFilter = True
        .Range("A1").AutoFilter
    End With
    With Sheets("納品書")
        .Select
        .Range("A1").Select
    End With
Application.ScreenUpdating = True
End Sub
お邪魔しました。
（SoulMan）

 オートフィルタを実行する前で日報入力シートがアクティブなら場所ならどこでも
良いと思います。worksheets("日報入力").unprotectとすれば、オートフィルタを
実行する前なら、どこでもOKです。
（ケン）

ケンさん、有難うございますActiveSheet.protectを実行ご入れなくてもいいのですか、初心者ですみません。
SoulManさん有難うございました、試して見ます。
Selection.AutoFilter Field:=4の上にActiveSheet.Unprotect下にActiveSheet.protect
入れたらできました。ケンさん、SoulManさん、ほんとうに有難うございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20050417083842]] 『オートフィルタ』（５５歳初心者） ページの最後に飛ぶ

[[20050417083842]]　『オートフィルタ』（５５歳初心者）　ページの最後に飛ぶ