excel2003でシートの保護を解除したい。

質問

excel2003でシートの保護を解除したい。
お世話になります。
今勤怠表を作っているのですが従業員に変更されないように書式設定でロックをしシートの保護にて変更できないようにしています。
ところが後に不具合が見つかったため編集しようとしているのですがシートを保護しているためシート単位でパスワードを入れ編集しないといけません。
2・3枚程度なら手入力するのですが枚数が多いため大変時間がかかります。
どなたかパスワードを入れなくても編集できる方法ご存知ないでしょうか？
よろしくお願いいたします。

例：PCnameや使用者を見て自動でパスワードが解除されるマクロ等

回答No.1

nattocurry · ベストアンサー

> パスワードを入れなくても編集できる方法

そんな方法があったら、シートの保護の意味がなくなりますよ。

すべてのシートのパスワードが同じ場合に、すべてのシートの保護を一気に解除する方法はあります。

Sub test()
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Unprotect Password:="abcde"
Next Sh
End Sub

abcdeは本当のパスワードに変更してください。

お礼

やはりそうですよね～・・・
記載の方法で解除してまた保護します。
ありがとうございました。