[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『VBA:シート保護した状態で、オートフィルのすべて表示を使用したい』(うめ)
こんにちは、いつもお世話になっています。 過去履歴探したのですが、うまく見つかりません。
本日は、シート保護した状態で、オートフィルの「すべて表示」をマクロボタンで 使用する方法を教えてください。
1.シート保護した状態では、オートフィルの「すべて表示」がしようできない。 2.マクロで「保護解除→すべて表示→保護」を設定しようとしました。(以下)
Sub オートフィルすべて表示() Dim Password As String Password = "AAAA" ActiveWorkbook.Unprotect Password:=Password Application.CutCopyMode = False ActiveSheet.ShowAllData ActiveWorkbook.Protect Password:=Password End Sub
シート保護が解除されないのはなぜですか? Private sub に設定しないといけないのでしょうか? 宜しくお願いします。
オートフィルではなく、オートフィルタですね。 シート保護のコードではないからだと思います。
Sub オートフィルタすべて表示() Const PW As String = "AAAA" With ActiveSheet .Unprotect Password:=PW .ShowAllData .Protect Password:=PW End With End Sub
(ROUGE)
Rougeさん、 ありがとうございました。 出来ました!!
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.