• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• Mook2018/05/19 17:39:00

  満足200pt

  まず定番ですが、 pdftk をダウンロードしてインストールします。
  https://www.pdflabs.com/tools/pdftk-the-pdf-toolkit/
  
  
  下記をメモ帳にコピーし、適当な場所（デスクトップなど）に "PDFパスワード化.vbs"
  のような名前で保存します。
  
  このファイルに PDF ファイルをドロップすれば、パスワードを付けたファイルに置き換えます。
  PDF ファイルを複数選択して、一括ドロップしてもかまいません。
  
  パスワードは先頭の Passwors = に設定してください。現在は "12345" です。
  元のファイルを残したい場合は、OverWrite = False に変更してください。
  test.pdf は残り、パスワード付きの test.pw.pdf が作成されます。
  

  Option Explicit
  Const Password = "12345"
  Const OverWrite = True
  
  Public fso
  Public wsh
  
      Set fso = CreateObject("Scripting.FileSystemObject")
      Set wsh = CreateObject("WScript.Shell")
  
  If WScript.Arguments.Count = 0 Then
      MsgBox "ここにPDFファイルをドロップしてください"
      WScript.Quit
  End If
  
  Dim i
  Dim pdfFile
  For i=0 To WScript.Arguments.Count - 1
      pdfFile = WScript.Arguments.Item(i)
      If fso.FileExists( pdfFile ) = True Then
          If UCase( fso.GetExtensionName( pdfFile ) ) = "PDF" Then
             AddPassWord( pdfFile )
          Else
             MsgBox "PDFファイルではありません[" & pdfFile  & "]" 
          End If
      Else
          MsgBox "ファイルがありません[" & pdfFile  & "]" 
      End If
  Next
  
  Sub AddPassWord( pdfFile )
      Dim outPdfFile
      outPdfFile = Replace( pdfFile, ".", ".pw." )
  
      If fso.FileExists( outPdfFile ) = True Then
          fso.DeleteFile outPdfFile
      End If
  
      wsh.Run "pdftk.exe """ & pdfFile & """ output """ & outPdfFile & """ user_pw """ & Password & """", 0, True
  
      If fso.FileExists( pdfFile ) = False Then
          MsgBox pdfFile & "はパスワードがつけられませんでした。"
          Exit Sub
      End If
      If OverWrite = True Then
          fso.DeleteFile  pdfFile
          fso.MoveFile outPdfFile, pdfFile
      End If
  End Sub
  

  スター

その他の回答

この質問へのコメント

• sgo22018/05/18 20:26:54
  pdftk

質問の情報

登録日時

2018-05-18 14:12:53

終了日時

2018-05-21 14:16:26

回答条件

1人1回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…匿名質問者112日前
• 不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者112日前
• 日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者22時間前
• 共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者222時間前
• 内定してほしいポケモンはいますか？匿名質問者22時間前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ