[[20061130105520]]　『複数シートを保護＆解除するマクロ』（つまり）　ページの最後に飛ぶ

『複数シートを保護＆解除するマクロ』（つまり）

 いつもお世話になってます。
 こちらで調べて複数のシートを保護＆解除するのに、
 下記のようなマクロで出来るとあったので、
 やってみたのですが、保護は出来るのに、
 解除は出来ませんでした。
 どこか修正すべき所がありましたら教えてください。
 また、パスワードは入れられないというレスと、
 入れられるというレスがあったのですが、
 下記コードにパスワードの設定を入れられるのでしたら、
 その点も合わせて教えていただけないでしょうか？
 よろしくお願い致します。

 Sub test2()
    Dim sh As Worksheet
    For Each sh In Worksheets
        sh.Protect
 '      sh.Unprotect  保護解除
    Next
 End Sub

 パスワードは入れられますが、どう扱うかが問題です。
 コード中に書いてしまっては、セキュリティが低くなるので。

 Protect に関しては、他にもオプションがあるので、マクロの記録等で調べてください。

 Sub AllProtect
    Dim sh As Worksheet
    Dim myPassword As String
    myPassword = InputBox("パスワードを入力してください", "パスワード")

    For Each sh In Worksheets
        sh.Protect Password:=myPassword
    Next
 End Sub

 Sub AllUnprotect
    Dim sh As Worksheet
    Dim myPassword As String
    myPassword = InputBox("パスワードを入力してください", "パスワード")

    For Each sh In Worksheets
        sh.Unprotect Password:=myPassword
    Next
 End Sub

 フォームのtextbox で入力するようにすれば、PasswordChar プロパティを * 等に
 することで、 伏字で入力することもできます。
 （Mook）

 Mookさん、ありがとうございます！
 早速やってみました（伏字で）
 希望通りです！
 どうもありがとうございました。
 （つまり）

コメント返信：

[ 一覧(最新更新順) ]

[[20061130105520]] 『複数シートを保護＆解除するマクロ』（つまり） ページの最後に飛ぶ

[[20061130105520]]　『複数シートを保護＆解除するマクロ』（つまり）　ページの最後に飛ぶ