エクセルのVBAコードについて教えていただきたいです エクセルファイルをBullzip PDFプリンターを使用してファイルをPDF化することをマクロを用いて実施したいと考えております 下記のコードでBullzipにてPDF化することまでは可能なのですがパスワードの設定ができていない状態です パスワードを設定するコードわかる方教えていただけますでしょうか パスワードは 所有者のパスワード及びユーザーのパスワードのどちらも設定したいと考えております 実際に使用しているVBAコード Sub PrintSheetAsPDF() Dim objPrinterSettings As Object Dim printerName As String Dim savePath As String Set objPrinterSettings = CreateObject("Bullzip.PDFPrinterSettings") printerName = "Bullzip PDF Printer" 'プリンタ名 Dim fullPrinterName As String fullPrinterName = GetFullNetworkPrinterName(printerName) '保存するためのプリンタ設定を行う savePath = "C:\Users\furukawa151165\Desktop\test.pdf" '保存先 With objPrinterSettings .SetValue "output", savePath .SetValue "showsettings", "never" .WriteSettings True End With 'アクティブなプリンタを一時的にBullzipに変更 printerBuf = Application.ActivePrinter ActivePrinter = fullPrinterName 'PDFに変換 ActiveSheet.PrintOut 'アクティブなプリンタを戻す ActivePrinter = printerBuf End Sub Function GetFullNetworkPrinterName(printerName As String) As String Dim currentPrinterName As String Dim temp_printer_name As String Dim i As Long currentPrinterName = Application.ActivePrinter i = 0 Do While i < 100 tempPrinterName = printerName & " on Ne" & Format(i, "00") & ":" On Error Resume Next Application.ActivePrinter = tempPrinterName On Error GoTo 0 If Application.ActivePrinter = tempPrinterName Then GetFullNetworkPrinterName = tempPrinterName Exit Do End If i = i + 1 Loop Application.ActivePrinter = currentPrinterName End Function