エクセルの「読み取りパスワード」を、エクセルを開かずに設定する方法はありますか？

Question

前提・実現したいこと

エクセルの「読み取りパスワード」を、エクセルを開かずに設定したいです。
プログラムの使用者は非エンジニアで、大量にあるエクセルへの鍵付けを自動化したいからです。

試したこと

(1) VBAで行う場合、下記のコードで可能でした

ActiveWorkbook.SaveAs Filename:="FilePath", Password:="password"

しかしいちいちマクロ画面を開く必要があり、非エンジニアにはわかりづらい事。
またすでに編集が完了してある大量のファイルに同様の設定を行い為、最善の解決とは思えません。

(2) PythonのOpenPyxlで設定する

OpenPyxlにはシートにパスワードをかける事は可能ですが、ブックにかける事はできないようです。

まとめ

どんな方法でも結構です（言語でもshellでも）
何か解決に近づく方法がございましたらお教え頂ければ幸いです。

解決策

できました。
まさに理想の形で！
otunさんありがとうございました！

Option Explicit

Sub setPasswordExcelFile()
  Dim delimiter As String
  If Application.OperatingSystem Like "*Mac*" Then
    delimiter = "/"
  Else
    delimiter = Chr(92)
  End If

  'バックグラウンド実行
  Application.ScreenUpdating = False

  'ファイル名作成
  Dim strFileName As String
  strFileName = "a4.xlsx"

  'ファイルパス指定
  Dim strFilePath As String
  strFilePath = ThisWorkbook.Path & delimiter & strFileName

  Dim wb As Workbook
  Set wb = Workbooks.Open(strFilePath)
  ActiveWindow.Visible = False
  wb.Activate

  'ファイル保存
  Application.DisplayAlerts = False '警告メッセージ非表示
  wb.SaveAs FileName:=strFilePath, _
                      Password:="Password"
  Application.DisplayAlerts = True  '警告メッセージ非表示解除

  '完了メッセージ
  MsgBox "ファイルの保存が完了しました" & vbCrLf & _
         "保存先は" & strFilePath & "です。"
  Application.ScreenUpdating = True
End Sub



'Sub Clic()
'    Module2.setPasswordExcelFile
'End Sub

Comments

[nandymak]

Excelマクロ(VBA)で特定のフォルダー内のExcelファイルに対して、処理をするのではダメでしょうか？

[退会済みユーザー]

ご回答ありがとうございます。
VBAに疎く、フォルダ内全てのエクセルに実行できる事を知りませんでした。

早速調べながら試してみます。

[m.ts10806]

ボタンなどを押して実行するようにはなってないということでしょうか

[退会済みユーザー]

m.ts10806さん

コメントありがとうございます。
仰る通りの状態でしたが、ベストアンサー様のコメントで段々と理解が追いつき現在は「ボタンを押して実行する」方向で作成中です。

完成次第、質問にも追記致します。

[m.ts10806]

はい。大抵はマクロ直接実行ではなくボタン押下などをトリガーとして動作させるように作ります。

Answer 1

「同じフォルダーにある全部のExcelファイルを順番に開いて、パスワードを付けて保存する」というVBAスクリプトを書けばいいのでは？
それを書いたxlsmファイルを開いてボタンを押すという操作にすればいいと思います。
#追記
こんな感じで。
１．VBAを書いてあるxlsmファイルの絶対パスを調べる
２．ディレクトリを取り出す
３．そこをカレントディレクトリにする
４．Dir関数でxlsファイルを順に取り出す
５．そのファイルをWorkbooks.Openする
６．処理する
７．保存する
８．Dirで次のファイルへの繰り返しに戻る

Comments

[退会済みユーザー]

ご回答ありがとうございます。
VBAに疎く、フォルダ内全てのエクセルに実行できる事を知りませんでした。

早速調べながら試してみます。

[退会済みユーザー]

ご回答の追記を頂きありがとうございます。

フローチャート、とてもわかりやすくて本当に感謝しかありません。
このように駆動するプログラムが、

1. 「main.xlsm」をダブルクリックするとエクセルが開く
2. 画面の中にボタンが存在して、それをクリックすると動作

という流れを期待して作り始めておりますが、同じ認識でしょうか・・・？
ダブルクリックした時点で画面が開かず実行できるのでしたら、その方法を調べてやってみたいと思っています（情報が見つからなかった）

[otn]

はい。同じ認識です。
xlsmファイルを開いた時点でスクリプトを実行するのは可能(Workbook_Open)ですが、開かずにというのは多分無理だと思います。処理の初めでvisible=falseにすれば一瞬開いて見えなくなりますが、エラーの時にどうなるのか？？？

[退会済みユーザー]

エラーの時にfalseにするとデバッグが不可能かつ修正も行えない？ようになりそうですね。

理解の少ない人間にもわかりやすく説明してくださりありがとうございました。
まずは1ファイルパスをつける事ができたので、完成次第質問にも追記します。

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

[退会済みユーザー]

otnさん

解答を導けました????に追記

本当にありがとうございました!
(こうした方がもっといいってのがあったら教えてくれると嬉しいです・・・)

[otn]

対象が1ファイルのみということですよね。
良いと思います。
Application.Visible=Falseを使ってもいいと思いますけど。
細かい点だと、パス名の区切りはWindowsでも"/"でもいいです。

後で思いましたが、
私が作るなら、VBScriptで書いて、処理対象のExcelファイル複数をVBSファイルにドラッグ＆ドロップするようにすると思います。

[退会済みユーザー]

後々for文で回して複数ファイルにするつもりですが、一旦単一ファイルのコードを作成しました。

ありがとうございます！
Windowsでも`/`で大丈夫なのですね・・・

ほう、VBScriptでも！
ちょっと見てみます！

Answer 2

Option Explicit

Sub setPasswordExcelFile()
  Dim delimiter As String
  If Application.OperatingSystem Like "*Mac*" Then
    delimiter = "/"
  Else
    delimiter = Chr(92)
  End If

  'バックグラウンド実行
  Application.ScreenUpdating = False

  'ファイル名作成
  Dim strFileName As String
  strFileName = "a4.xlsx"

  'ファイルパス指定
  Dim strFilePath As String
  strFilePath = ThisWorkbook.Path & delimiter & strFileName

  Dim wb As Workbook
  Set wb = Workbooks.Open(strFilePath)
  ActiveWindow.Visible = False
  wb.Activate

  'ファイル保存
  Application.DisplayAlerts = False '警告メッセージ非表示
  wb.SaveAs FileName:=strFilePath, _
                      Password:="Password"
  Application.DisplayAlerts = True  '警告メッセージ非表示解除

  '完了メッセージ
  MsgBox "ファイルの保存が完了しました" & vbCrLf & _
         "保存先は" & strFilePath & "です。"
  Application.ScreenUpdating = True
End Sub



'Sub Clic()
'    Module2.setPasswordExcelFile
'End Sub