Excelでパスワードなしで上書き保存するマクロ

パスワードが設定されているExcelファイルを開いた後、今後はパスワードを入力しなくても開くようにするには、名前を付けて保存を選択し、ツール – 全般オプションで読み取りパスワードを空欄にして保存します。

面倒なので、マクロを作りました。
読み取りパスワードと書き込みパスワードを空欄にして保存します。

Sub パスワードなしで上書き保存()
With ActiveWorkbook
.Password = ""
.WritePassword = ""
.Save
End With
End Sub

[…] 以前、パスワードが設定されているExcelを開いた後、パスワードなしで上書き保存するマクロを紹介しましたが、今回はそのWord版です。 Excel2013で確認しました。 […]