[[20081224132611]] 『VBA:シート保護した状態で、オートフィルのすべax(うめ) ページの最後に飛ぶ

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

 

『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.