[[20150417102500]] 『全シート保護、解除マクロ オートフィルター使用』(の) ページの最後に飛ぶ

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

 

『全シート保護、解除マクロ オートフィルター使用出来ない』(の)

全シートを一括でシート保護・保護解除を出来るようにマクロを設定しましたが、オートフィルターが使用出来ません。。。
保護の際のオートフィルター使用にチェックマークが入るようにするにはどのように訂正したらいいのか、誰かご指導願います。

ちなみにマクロは下記の通りです。

−−−−−−−−−−−−−−−−−−−−
Sub 全シート保護Passあり()
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Protect Password:="0000"
Next
End Sub
−−−−−−−−−−−−−−−−−−−−
Sub 全シート保護解除Passあり()
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Unprotect Password:="0000"
Next
End Sub

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


こういう場合は、マクロの自動記録を使って調べると良いです。

    Ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, Password:="0000"
(???) 2015/04/17(金) 11:03

 すでに(???)さんから指摘があるように、マクロ記録をすれば、どういった指定の場合はどういったプロパティの設定が必要かがわかります。

 一方、保護解除->マクロ処理->再保護 ということをしなくとも、マクロでの処理はオールマイティという設定があります。

[[20150325185258]] 『シートに保護をかけるとマクロが動かなくなりまし』(マクロ初心者)

 ↑でアップしたコードを ThisWorkbook_Open で実行すれば、マクロオールマイティ設定に加え、
 その時に設定されていた保護条件をすべて継承した設定が可能です。
 ただし、アップしたコードにはパスワード指定がありませんので Passwrd:=xxxx の追加が必要ですが。

 ご参考まで。

(β) 2015/04/17(金) 11:38


(???)様
回答ありがとうございました。置き換えたらバッチリ出来るようになりました。無知でお恥ずかしいです。。。
(の) 2015/04/17(金) 11:49

コメント返信:

[ 一覧(最新更新順) ]


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