VBA でエクセルにパスワードをかけて保存したい

素人で大変申し訳ございません。


エクセルにボタンをつけて、そのボタンを押したら、
そのエクセルに読み取りパスワードをかけて、上書き保存
→エクセルは終了しない。
→もう一度ボタンを押すと、読み取りパスワードを解除して、上書き保存
をしたいのですが、
そのようなことは可能でしょうか？

どのようなＶＢＡソースで可能でしょうか？

誠に申し訳ございませんが、技術者の方よろしくお願いいたします。

No.1 ベストアンサー 回答者： よろずやkinchan 回答日時： 2018/04/29 22:04

ギャラリー向けに回答します。

Option Explicit
Sub ボタン1_Click()
' 読み取りパスワード設定
If ActiveWorkbook.HasPassword Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="\\XXXXX\XXXXX\Desktop\質問箱回答\goo11.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:=""
Else
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="\\XXXXX\XXXXX\Desktop\質問箱回答\goo11.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="password"
End If
End Sub

この回答へのお礼

ありがとうございます！！！

お礼日時：2018/05/07 11:08