パワーポイントなどのアクセス制限を解除する操作を自動化したいです

Question

###前提・実現したいこと
パワーポイントなどのユーザーアクセス制限を解除する操作を自動化したいです

###発生している問題・エラーメッセージ
パワーポイントなどのアクセス制限を解除する操作を自動化したいのですが、可能でしょうか？

例えば、コマンドプロンプトのバッチファイルを作ってそれを実行するだけで、自動でアクセス制限を解除するといった感じです。

できれば、コマンドプロンプト、VBScriptで実現できればうれしいのですが、そのほかでもできる方法があれば知りたいです。

よろしくお願いいたします。

Answer 1

Set ppt = CreateObject("PowerPoint.Application")

On Error Resume Next
Set doc = ppt.Presentations.Open(WScript.Arguments(0) & "::" & WScript.Arguments(1))
If Err Then
  WScript.Echo "error:" & Err.Description
  ppt.Quit
  Set ppt = Nothing
  WScript.Exit(1)
End If

doc.Password = ""
doc.Save
doc.Close
ppt.Quit
Set ppt = Nothing

実行は以下の様に

cscript unprotect.vbs C:\path\to\your\document.ppt my-password

ファイルへのパスはフルパスである必要があります。

Comments

[sayama]

ありがとうございます。