エクセル初心者です。エクセルの書類が大量にあり、すべてに同じセキュリテ

エクセル初心者です。エクセルの書類が大量にあり、すべてに同じセキュリティが掛かっています。これを一度に解除して別のパスワードを設定したいのです。マクロでの設定になると思いますが、その方法を教えて下さい。

No.1 ベストアンサー 回答者： hoiho11 回答日時： 2010/09/27 19:50

Private Sub Workbook_Open()

Dim ファイル名 As String
Dim i As Long

ファイル名 = Dir(ThisWorkbook.Path & "\*.*")

Do Until ファイル名 = ""
If ファイル名 <> ThisWorkbook.Name Then

Workbooks.Open (ThisWorkbook.Path & "\" & ファイル名), Password:="123"
Workbooks(ファイル名).Password = ""
Workbooks(ファイル名).Save
Workbooks(ファイル名).Close

End If
ファイル名 = Dir()
Loop

End Sub


このコードを記載したブックを作成し
それらのブックと同じフォルダーに入れてからこのコードを実行します
サンプルコードではブックオープン時に動作するようにしてあります
現在パスワードを１２３としてありますが
設定したパスワードに直してください
パスワードを設定しない場合は　空白""をしていすればいいのです

この回答への補足

おかげさまで解決しました。ありがとうございました。

補足日時：2010/09/29 10:45

この回答へのお礼

有り難うございます。難しそうですが、トライしてみます。また後でご報告します。

お礼日時：2010/09/28 10:43