シート保護解除のエラーで苦戦しています

質問

シート保護解除のマクロを作成して(コピペですが）使用していました。
（順調でした・・・）事情があり、マクロの編集からパスワードを変更し、上書きし、いざ使用してみよう!!と思ったら・・・
【実行時エラー　1004：入力したパスワードが間違っているかCapslockキーがオフになっていることを確認し、大文字小文字が正しく使われているか確認・・・】とエラーメッセージが出ました(T_T)

以前のパスワードを消し、新たなパスワードを入れたのですが、これではダメなのでしょうか?

説明がうまくできないのですが、わかる方ご回答お願いいたします<(_ _)>

回答No.2

merlionXX · ベストアンサー

No1の補足で提示されたコードは、BOOK内のすべてのシートを順繰りに保護解除していくようですが、eke1205さんはそのBOOKのすべてのシートの保護を解除しましたか？

Sub シートの保護解除02()
Dim myWS As Worksheet
Application.ScreenUpdating = False
On Error GoTo line
For Each myWS In Worksheets
myWS.Unprotect Password:="****"
Next myWS
Application.ScreenUpdating = True
MsgBox "シート保護解除しました。"
Exit Sub
line:
MsgBox myWS.Name & "が解除できません。"
Application.ScreenUpdating = True
End Sub

これを試してみてください。
どのシートでエラーが出たかわかります。

補足

ありがとうございました。

全部保護解除して、やってみましたが…
上記を試してみて、どのシートでエラーなのかは出たのですが、どう処理すればよいのかがわかりません。

再作成した方が良いのか…と思いながらも、何がおかしいのか模索中です(T_T)

回答No.5

有田 賢治（@ARIKEN43）

eke1205さん　今日は！
>以前のパスワードを消し、新たなパスワードを入れたのですが、これ
>ではダメなのでしょうか?
パスワードが完全にリセットされて無いのでは？
確認の為フリーソフトで確認されたら如何でしょうか。
▲パスワード管理ツール ID Manager V7.6（ダウンロード・使用法）↓http://www.woodensoldier.info/soft/idm.htm
▲パスみえ 2000 ↓
http://quickware.a-quest.com/passmie/about.htm
概要：フリーソフトでパスワードの****を英数字に戻し忘れたパスワードを表示してくれる便利なツールです。
入手法：パスみえ20001.00↓http://www.vector.co.jp/soft/dl/win95/util/se194796.html
一つの選択肢として。

お礼

ありがとうございます。
確認してみます。

回答No.4

merlionXX

merlionXXです。
当方ではそのような現象を再現することが出来ませんでした。
ファイルが壊れているのかもしれません。

お礼

いろいろとありがとうございましたm(__)m

再作成してみようと思っています。
わかりづらい説明に回答いただきありがとうございました。

回答No.3

merlionXX

> どのシートでエラーなのかは出たのですが、どう処理すればよいのかがわかりません。

全部手動で保護解除したのにエラーがでたのですか？
そのシート名はわかりましたよね。
そのシートにほんとに保護がかかっていませんか？

補足

シート保護解除しました。と出ました。

が、全部保護解除して、

Sub シートの保護()

Dim myWS As Worksheet

For Each myWS In Worksheets
With myWS
.EnableSelection = xlUnlockedCells
.Protect Password:="****"
End With
Next myWS

End Sub
↑で上書きして再度開くと、エラーなんです…

ちなみに、あとこんなのもあります。
Private Sub Workbook_Open()
Dim myWS As Worksheet

For Each myWS In Worksheets
With myWS
.EnableSelection = xlUnlockedCells
.Protect
End With
Next myWS

End Sub

お分かりになりますか?

回答No.1

merlionXX

マクロコードのパスワードは変更しても、シートのパスワードはまだ変更前の状態なのではないですか？
一旦手動で保護を解除してから実行してみてください。

お礼

merlionXXサン…

できました～再度、保護解除を1つずつ確認し、やってみたところできました。
何度もありがとうございました。

補足

回答ありがとうございます。
シートも保護を解除してみました。
上書き保存して・・・マクロの保護解除　実行～してみたのですが、またもや実行時エラーだったので、

デバッグを選択してみたら、

Sub シートの保護解除()
Dim myWS As Worksheet

Application.ScreenUpdating = False

For Each myWS In Worksheets
myWS.Unprotect Password:="****"
↑この上の1行が黄色くなって、左側に↑がついているのですが、何でしょうか?
Next myWS

Application.ScreenUpdating = True

MsgBox "シート保護解除しました。"

End Sub

初心者の為、お手数おかけしますが、回答お願いいたします<(_ _)>