Rummaging through all the above to address the simple task of filling in a gap in the Word/Excel object model functionality to save an encrypted PDF and set different security options from VBA, I found that the simplest and quickest solution to make a custom COM wrapper around one of well-known .Net open source libraries. As an in house component, you shouldn’t have to worry about getting IT approval.

If you not familiar with making COM visible .NET DLL, here is an attached Visual Studio 2013 .NET v 4.0 project, written in C# and wrapping a popular library ITEXTSHARP.dll which is an .NET PDF library ported from Java.

For simplicity, ITEXTSHARP.dll is imbedded into single output resulting library ProtectPDF.dll with a single method 
GoPDF.ProtectPdfStandard(string passwordUser,  string passwordOwner, string namepathPDFIn, string namepathPDFOUT )

所以嘗試改成用exe來執行程式碼

基本上就是把ProtectPdfStandard()抓出來，在main()接收參數後執行

流程：

1.在visual studio新增C#解決方案

2.修改預設的Program.cs程式碼，也可以修改名稱，visual studio會自動修改相關的登錄設定

#3 引用 iTextSharp.text.pdf

#20-23 接收命令列傳來的參數

#29 將參數傳到自訂函數ProtectPdfStandard

#39-81 ProtectPdfStandard的內容，都是從ProtectPdfStandard()抓來的

重點是在#61-70執行iTextSharp.text.pdf的PdfReader.Encrypt方法

Program.cs程式碼如下

using System;
using System.IO;
using iTextSharp.text.pdf;

namespace goPdf
{
    internal class Program
    {
        static void Main(string[] args)
        {
            //Console.WriteLine($"parameter count = {args.Length}");
            /*
            for (int i = 0; i < args.Length; i++)
            {
              Console.WriteLine($"Arg[{i}] = [{args[i]}]");
            }*/
            if (args.Length > 0)
            {
                //
                string passwordUser = args[0];
                string passwordOwner = args[1];
                string inputPath = args[2];
                string outputPath = args[3];
                //Console.WriteLine(passwordUser);
                //Console.WriteLine(passwordOwner);
                //Console.WriteLine(inputPath);
                //Console.WriteLine(outputPath);
                //
                string errorText = ProtectPdfStandard(passwordUser, passwordOwner, inputPath, outputPath);
                Console.WriteLine(errorText);
                //
            }
            else
            {
                Console.WriteLine("沒有輸入參數");
            }
        }

        public static string ProtectPdfStandard(string passwordUser, string passwordOwner, string namepathPDFIn, string namepathPDFOUT)
        {
            string text = string.Empty;
            string result;
            if (string.IsNullOrWhiteSpace(passwordUser))
            {
                result = "Error: User Password not set";
            }
            else if (string.IsNullOrWhiteSpace(passwordOwner))
            {
                result = "Error: Owner Password not set";
            }
            else if (string.IsNullOrWhiteSpace(namepathPDFIn))
            {
                result = "Error: User Password not set";
            }
            else if (string.IsNullOrWhiteSpace(namepathPDFOUT))
            {
                result = "Error: Owner Password not set";
            }
            else
            {
                try
                {
                    using (Stream stream = new FileStream(namepathPDFIn, FileMode.Open, FileAccess.Read, FileShare.Read))
                    {
                        using (Stream stream2 = new FileStream(namepathPDFOUT, FileMode.Create, FileAccess.Write, FileShare.None))
                        {
                            PdfReader pdfReader = new PdfReader(stream);
                            PdfEncryptor.Encrypt(pdfReader, stream2, true, passwordUser, passwordOwner, 2564);
                        }
                    }
                }
                catch (Exception ex)
                {
                    text = ex.Message;
                }
                result = text;
            }
            return result;
        }

    }
}

3.在參考引用ITEXTSHARP.dll

備註：ITEXTSHARP.dll是從dnSpy另存出來的

4.測試或者建置，在bin資料夾的Debug資料夾內會產生exe檔跟相關的檔案，包含參考的ITEXTSHARP.dll

5.在Excel VBA內執行

這邊的流程就大同小異，不過因為這個函數接收4個參數

passwordUser 開啟密碼
passwordOwner 編輯權限密碼
inputPath 輸入檔案路徑
outputPath 輸出檔案路徑

所以程式碼稍微修改如下

#42-57 新增了一個陣列，用來存儲輸出的檔案路徑

#72-75 設定參數，密碼的部分之後可以再視情框修改

#78 執行命令列

Public Sub tt3()

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ActiveWorkbook.Sheets(1).Activate
    
    '目前檔案路徑
    nPath = ActiveWorkbook.Path
    '輸出資料夾名稱
    strFolderName = "output"
    
    '完整的輸出資料夾路徑
    outputFolderPath = nPath & Application.PathSeparator & strFolderName & Application.PathSeparator

    '判斷輸出資料夾是否存在
    strFolderExists = Dir(nPath & Application.PathSeparator & strFolderName, vbDirectory)
    
    If strFolderExists = "" Then
        '不存在則新增
        fso.CreateFolder nPath & Application.PathSeparator & strFolderName
    Else
        '存在則移除 再新增
        fso.DeleteFolder nPath & Application.PathSeparator & strFolderName, True 'True 強制刪除
        fso.CreateFolder nPath & Application.PathSeparator & strFolderName
    End If
    
    '將工作表轉存為PDF檔
    For i = 2 To Sheets.Count
        nName = Sheets(i).Name
        Sheets(i).Copy
        ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=outputFolderPath & nName & ".pdf"
        ActiveWorkbook.Close False
    Next
    
    '讀取output資料夾的PDF 如果存在 回傳檔案名稱.副檔名
    pdfFile = Dir(outputFolderPath & "*.pdf")
        
    Dim fileArr() As String
    Dim outArr() As String
    
    i = 0
    Do While pdfFile <> ""
        ReDim Preserve fileArr(i)
        ReDim Preserve outArr(i)
        fileArr(i) = outputFolderPath & pdfFile
        'Debug.Print outputFolderPath & pdfFile
        
        outArr(i) = outputFolderPath & Split(pdfFile, ".")(0) & "_PW.pdf"
        'Debug.Print outputFolderPath & Split(pdfFile, ".")(0) & "_PW.pdf"
        
        i = i + 1
        pdfFile = Dir()
    Loop
        
    'Debug.Print fileArr(0)
    '陣列上限(序位值)
    num = UBound(fileArr)
    
    Dim wsh As Object
    Set wsh = VBA.CreateObject("WScript.Shell")
    Dim waitOnReturn As Boolean: waitOnReturn = True
    Dim windowStyle As Integer: windowStyle = 0
    Dim errorCode As Long
    
    For i = 0 To num
            
        DoEvents
        passwordUser = "123"
        passwordOwner = "456"
        inputPath = fileArr(i)
        outputPath = outArr(i)
        
        '透過WScript.Shell 執行pdf加密程式
        s = Chr(34) & Excel.ActiveWorkbook.Path & "\C#\goPDF\" & "goPDF.exe" & Chr(34) & Chr(32) & Chr(34) & passwordUser & Chr(34) & Chr(32) & Chr(34) & passwordOwner & Chr(34) & Chr(32) & Chr(34) & inputPath & Chr(34) & Chr(32) & Chr(34) & outputPath & Chr(34)
            
'        Debug.Print s
        Shell s

        errorCode = wsh.Run(s, windowStyle, waitOnReturn)

        If errorCode = 0 Then
'            MsgBox "Done! No error to report."
            Debug.Print "輸出:" & fileArr(i) & Chr(32) & "到:" & outArr(i)
        Else
            MsgBox "Program exited with error code " & errorCode & "."
        End If
    Next
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

參考資源

使用vba + 開源函式庫，解決excel 另存pdf 無法加密問題(vba範例)

VBA : encrypted / password protected PDF for MS Office

繼續閱讀

VBA / Excel VBA將檔案另存成PDF再使用自訂python程式加密PDF 2

4月 30, 2024

本篇主要修改 VBA / Excel VBA將檔案另存成PDF再使用自訂python程式加密PDF的程式碼

讓程式執行更為流暢

主要修改的地方有以下兩點

繼續閱讀

2024/04/27

VBA / Excel VBA將檔案另存成PDF再使用自訂python程式加密PDF

4月 27, 2024

VBA能否將excel轉成加密的PDF?

這個是在Line的excel社團看到的提問

其中的管理員提供了一個網路教學

這個教學是使用 Adobe Acrobat 物件

但是前提是必須先安裝付費版的 Adobe Acrobat

我後來想起之前彰化一整天有分享某個客製程式

其中有PDF加密功能，這個功能是在VBA執行他自己寫的python程式

經過自己土炮測試之後

繼續閱讀

2024/04/20

JS / 在Blogger增加”goTop”功能

4月 20, 2024

在很多網站都能夠看到

當瀏覽到頁面結尾時，會出現一個回到最上面的圖示

點擊之後，網頁就會捲到最上面在 tricohobby也有，這是佈景主題內建的

不過在blogger就要自己土炮

繼續閱讀

2024/04/15

Gg / 使用GoogleCharts快速製作QrCode 替代方案 QuickChart

4月 15, 2024

原本在 Gg / 使用GoogleCharts快速製作QrCode 所使用的api

由於google正式關閉了 https://chart.googleapis.com

所以也就無法用來生成Qr Code

繼續閱讀

2024/04/14

Py / 透過selenium-webdriver爬youtube的介紹資訊 2

4月 14, 2024

在 Py / 透過selenium-webdriver爬youtube的介紹資訊(2021/10/28修改)

所引用的selenium-webdriver 在更新之後，目前selenium版本是4.19.0

繼續閱讀

網站 / 使用Google Translate JS將網站變成多語系網站

4月 14, 2024

聽說網站如果能夠具備多語系內容

可以更容易被搜尋到

但是我又不會多語

繼續閱讀

2024/03/23

網站 / 改善wordpress網站的效能

3月 23, 2024

之前網站因為增加了許多自訂的發文推播

導致網站速度變慢，GCP的VM觀測數據顯示發文的時候，CPU的執行率可以達到200%

所以也出現提升CPU等級的建議，但是往上升一級就多了近一倍的費用

對我來說實在吃不消，因為除了GCP的費用之外，還有youtube的月費、google 雲端硬碟的年費

一年付給google公司7~8千元跑不掉，GCP費用占了80%

當初建置網站的目的是為了紀錄一些學習程式的過程，順便紀錄自己感興趣的東西

所以想先試試看能不能透過一些方式來降低網站的執行負荷量

繼續閱讀

2024/03/18

VBA / 使用Excel VBA批次寄信 3

3月 18, 2024

之前在VBA / 使用Excel VBA批次寄信是修改彰化一整天所寫的excel VBA程式

而這個版本是精簡程式，原理是一樣的，都是使用 CDO.Message物件

但是省去了設定頁面，呈現核心程式

只要知道STMP的設定資料

各個郵件伺服器應該都可以使用

本文以Gmail為範例

繼續閱讀

2024/03/15

JS / 在Blogger增加”分享到臉書”功能

3月 15, 2024

之前在網站 / 從wordpress發佈新文章同步發文到臉書粉絲專頁提到

臉書只能夠用分享的方式將訊息貼到個人頁面

於是，開始思考如何在Blogger達成這個效果

繼續閱讀

2024/03/14

JS / 移除或修改 iframe的屬性

3月 14, 2024

前幾天辦公室裡其他計畫的助理

抱怨網站嵌入的google表單出現

「您的瀏覽器尚未啟用javascript...」

繼續閱讀

2024/03/08

網站 / 從wordpress發佈新文章同步發文到臉書粉絲專頁

3月 08, 2024

既然可以透過寄信到Blogger發文

那有沒有可能在臉書粉絲專頁貼文？

繼續閱讀

2024/03/05

網站 / 從wordpress發佈新文章同步寄信到blogger儲存成草稿

3月 05, 2024

google blogger可以接收電子郵件來發佈文章

繼續閱讀

2024/03/02

JS / 在Blogger增加”修改”連結標籤

3月 02, 2024

Blogger 修改文章必須到後台文章列表按指定文章

不像wordpress登入之後文章列表自動會有"Edit"的連接標籤

因此嘗試在文章列表增加文章修改的連結標籤

Blogger的文章修改連結的架構是 https://www.blogger.com/blog/post/edit/blogID/postID

所以需要1.取得postID、2.新增標籤而根據取得postID的方式可以再分成2種方式

繼續閱讀

2024/02/29

JS / 在Blogger建立分頁

2月 29, 2024

Blogger沒有辦法用增加的方式在文章內設定分頁

繼續閱讀

2024/02/27

Gg / 透過Google Apps Script 建立上傳檔案頁面

2月 27, 2024

這個使用Google Apps Script 建立的上傳檔案頁面，參考很多範例跟參考資源

也因為需求而修改、新增功能，例如將檔案資訊呈現在頁面上、限制上傳者、特定檔案格式與檔案大小、可以同時多個檔案上傳

不過詳細參考哪些內容，已經不可考了

唯一能確認的是有參考《Google Apps Script雲端自動化與動態網頁實戰》的範例，這本書也是目前正體中文唯一的相關書籍

整體而言，都是使用Google的相關功能：

以google雲端硬碟為儲存空間，並且將檔案資訊紀錄在google 試算表，呈現在Google Apps Script網頁程式建構的網頁

繼續閱讀

2024/02/24

App / 使用App Inventor 製作取得公車到站時間的App

2月 24, 2024

這個App單純是懶得在台灣等公車多按幾下想直接秀出下班要搭的278公車到站時間

繼續閱讀

2024/01/11

VBA / Excel VBA 播放音檔

1月 11, 2024

這個是臉書社群的問題

繼續閱讀

2024/01/08

VBA / 使用Excel VBA插入圖檔

1月 08, 2024

這個是在Line Excel VBA社群的問題發問者提供了操作影片跟檔案，所以可以很好理解所遇到的問題

原始檔案利用VBA寫了兩個程序

檔案一開始就存在的圖檔可以刪除後來新增的圖檔卻不能刪除研究了一下

發現這是圖檔類型(MsoShapeType)的問題

程式碼是利用 Sheet.Pictures.Insert()方法插入的圖片圖檔類型是msoLinkedPicture 但是檔案一開始就存在的圖片應該是在工作表透過插入/圖片的方式這樣圖檔類型會是msoPicture 從名稱就可以看出差別前者是連結圖檔而已，所以當圖檔改變名稱或位置時工作表就會讀不到圖檔

單就無法刪除圖檔的問題，只需要多一個條件就可以了

原始程式碼只有判別 msoPicture

1
2
3

For Each a In ActiveSheet.Shapes
        If a.Type = msoPicture Then a.Delete
Next

增加另一個 msoLinkedPicture的條件

1
2
3

For Each a In ActiveSheet.Shapes
        If a.Type = msoPicture Or a.Type = msoLinkedPicture Then a.Delete
Next

但是比較好的方式是將匯入程式碼改為利用 Sheet.Shapes.AddPicture()

AddPicture (FileName、 LinkToFile、 SaveWithDocument、 Left、 Top、 Width、 Height) 而且這個方式也可以在參數設定時，設定成以連結方式讀取圖檔原始程式碼工作表的B欄儲存檔案名稱，而圖檔跟工作簿是放在同一個資料夾內

With Sheets("清冊")
	lRow = .[b65536].End(xlUp).Row
	For I = 2 To lRow
	On Error Resume Next
		'strFile = ThisWorkbook.Path & "\" & .Cells(i, 4) & ".jpg"
		strFile = ActiveWorkbook.Path & "\" & .Cells(I, 2) & ".jpg"
		Set oPic = .Pictures.Insert(strFile)
		With .Cells(I, 3)
			oPic.Top = .Top
			oPic.Left = .Left
			oPic.Width = 60
			oPic.Height = 70
		End With
		Set oPic = Nothing
	Next I
End With

修改後的程式碼

With Sheets("清冊")
        lRow = .[b65536].End(xlUp).Row
        For I = 2 To lRow
        On Error Resume Next
            'strFile = ThisWorkbook.Path & "\" & .Cells(i, 4) & ".jpg"
'            strFile = "C:\Users\trico\Pictures" & "\" & .Cells(I, 2) & ".jpg"
            strFile = ActiveWorkbook.Path & "\" & .Cells(I, 2) & ".jpg"
            Set oPic = .Shapes.AddPicture(strFile, msoFalse, msoTrue, Cells(I, 3).Left + 2, Cells(I, 3).Top + 1, 120, 70)
            Set oPic = Nothing
        Next I
End With

補充當 LinkToFile 為msoFalse時， SaveWithDocument必須為msoTrue，插入的圖檔類型為 msoPicture 但是LinkToFile 為msoTrue時， SaveWithDocument無論是msoTrue或msoFalse，插入的圖檔類型都是 msoLinkedPicture

備註1

比較奇怪的點，同樣的圖片寬度設定，使用Shapes.AddPicture()插入的圖檔大小只有Pictures.Insert()的一半所以在 Shapes.AddPicture()的寬度設定為Pictures.Insert()的2倍 (60→120) 不過後來發現在 Pictures.Insert()的寬度跟高度只要擇一設定就好了現在的圖檔是會以高度等比例調整寬度，所以最終寬度其實不是60

備註2

Pictures.Insert()找不到官方的說明資料找到的都是教學類或者論壇的使用範例 vba插入圖片問題 VBA help for a Macro (inserting picture from file)

繼續閱讀

2024/12/05

2024/12/04

如果照抄範例，有修改連線主機跟帳密，程式還是會出錯的

2024/12/03

2024/11/08

2024/11/07

2024/11/03

2024/10/28

2024/10/13

2024/10/05

2024/10/04

2024/10/03

2024/10/02

2024/09/21

2024/09/20

2024/09/14

2024/09/11

2024/09/07

2024/08/31

2024/08/28

2024/08/24

有人發問想在word合併列印之後直接將檔案輸出成PDF

2024/07/21

2024/06/09

2024/05/27

2024/05/24

2024/05/21

2024/05/15

番外1-封裝執行檔被偵測有木馬程式

2024/05/03

2024/04/30

1.在visual studio新增C#解決方案

2.修改預設的Program.cs程式碼，也可以修改名稱，visual studio會自動修改相關的登錄設定

3.在參考引用ITEXTSHARP.dll

4.測試或者建置，在bin資料夾的Debug資料夾內會產生exe檔跟相關的檔案，包含參考的ITEXTSHARP.dll

5.在Excel VBA內執行

參考資源

2024/04/27

VBA能否將excel轉成加密的PDF?

2024/04/20

當瀏覽到頁面結尾時，會出現一個回到最上面的圖示

不過在blogger就要自己土炮

2024/04/15

原本在 Gg / 使用GoogleCharts快速製作QrCode 所使用的api

所以也就無法用來生成Qr Code

2024/04/14

2024/03/23

2024/03/18

2024/03/15

2024/03/14

「您的瀏覽器尚未啟用javascript...」

2024/03/08

2024/03/05

2024/03/02

2024/02/29

Blogger沒有辦法用增加的方式在文章內設定分頁

2024/02/27

2024/02/24

2024/01/11

2024/01/08

發現這是圖檔類型(MsoShapeType)的問題

單就無法刪除圖檔的問題，只需要多一個條件就可以了

但是比較好的方式是將匯入程式碼改為利用 Sheet.Shapes.AddPicture()

備註1

備註2

Select Language

文章回應

熱門文章

近期文章

文章行事曆

文章分類

瀏覽量

關於莊生

Facebook粉絲頁

隱私權

標籤雲

文章封存