Excel opslaan als PDF met wachtwoord

[Ocirne]

Hallo,

Weet iemand of je een Excelbestand kan opslaan als PDF en tevens de PDF van een wachtwoord kan voorzien? Ik zou dat graag middels een toevoeging aan VBA-code willen realiseren.

Alvast bedankt.

Ocirne

 

[snb]

Waartoe ?

Het antwoord staat al in de hulpbestanden van de VBEditor. Heb je daar al gekeken ?

 

[Ocirne]

Inhoud van de PDF is vertrouwelijk en alleen bedoeld voor de ontvanger van de PDF.

Ik heb geprobeerd met opname Macro het voor elkaar te krijgen, maar zonder resultaat.

Code die ik voor het opslaan PDF heb is:

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        sPad & Bestandsnaam, _
        Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

Het leek me dat toevoeging:

Password:="", WriteResPassword:="",

(uiteraard met een echt wachtwoord tussen haakjes) zou moeten werken, maar helaas.

Het zou fijn zijn als je me verder kunt helpen (ook als het niet kan).

 

[edmoor]

De Password opties die je noemt staan er niet bij:
https://msdn.microsoft.com/en-us/library/office/ff198122.aspx

 

[gast0660]

Hoi,
Ik heb een code die het doet voor mij maar je hebt PDFtk Toolkit nodig (gratis)
Downloadlink:
https://www.pdflabs.com/tools/pdftk-the-pdf-toolkit/
Stap 1: installeer PDFtk Toolkit
Stap 2: Plaats volgende code onder een knopje

 Private Sub CommandButton1_Click()
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False

    Dim fTemp As String
    Dim oPdf As String
    Dim Pwd As String
    
    On Error GoTo OOPS:

    fTemp = ThisWorkbook.Path & "\" & "Temp.Pdf"
    oPdf = "[COLOR="#FF0000"]C:\Users\Grote\Downloads\Beveiliging\PDF met paswoord.Pdf[/COLOR]"
    Pwd = "[COLOR="#FF0000"]test[/COLOR]"
    With ActiveSheet
       .ExportAsFixedFormat Type:=xlTypePDF, _
                            Filename:=fTemp, _
                            Quality:=xlQualityStandard
    End With
    
    fTemp = """" & fTemp & """"
    oPdf = """" & oPdf & """"
    Pwd = """" & Pwd & """"
                                                          
    cmdStr = "pdftk " & fTemp _
                      & " Output " & oPdf _
                      & " User_pw " & Pwd _
                      & " Allow AllFeatures"

    Shell cmdStr, vbHide
    
    Application.Wait DateAdd("s", 2, Now)
    
    Kill Replace(fTemp, """", "")
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
    MsgBox "Bestand is opgeslagen", vbInformation
Exit Sub
OOPS:
MsgBox "PDF bestaat al.", vbCritical
End Sub

Pas de rode stukken aan
Hier in bijlage een werkend voorbeeldje (als PDFtk Toolkit is geïnstaleerd,en path is aangepast)
Paswoord is test

 

[Ocirne]

De Password opties die je noemt staan er niet bij:
https://msdn.microsoft.com/en-us/library/office/ff198122.aspx

Helder, Ed! Standaard dus niet beschikbaar....

 

[Ocirne]

Hoi,
Ik heb een code die het doet voor mij maar je hebt PDFtk Toolkit nodig (gratis)
Downloadlink:
https://www.pdflabs.com/tools/pdftk-the-pdf-toolkit/
Stap 1: installeer PDFtk Toolkit
Stap 2: Plaats volgende code onder een knopje

 Private Sub CommandButton1_Click()
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False

    Dim fTemp As String
    Dim oPdf As String
    Dim Pwd As String
    
    On Error GoTo OOPS:

    fTemp = ThisWorkbook.Path & "\" & "Temp.Pdf"
    oPdf = "[COLOR="#FF0000"]C:\Users\Grote\Downloads\Beveiliging\PDF met paswoord.Pdf[/COLOR]"
    Pwd = "[COLOR="#FF0000"]test[/COLOR]"
    With ActiveSheet
       .ExportAsFixedFormat Type:=xlTypePDF, _
                            Filename:=fTemp, _
                            Quality:=xlQualityStandard
    End With
    
    fTemp = """" & fTemp & """"
    oPdf = """" & oPdf & """"
    Pwd = """" & Pwd & """"
                                                          
    cmdStr = "pdftk " & fTemp _
                      & " Output " & oPdf _
                      & " User_pw " & Pwd _
                      & " Allow AllFeatures"

    Shell cmdStr, vbHide
    
    Application.Wait DateAdd("s", 2, Now)
    
    Kill Replace(fTemp, """", "")
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
    MsgBox "Bestand is opgeslagen", vbInformation
Exit Sub
OOPS:
MsgBox "PDF bestaat al.", vbCritical
End Sub

Pas de rode stukken aan
Hier in bijlage een werkend voorbeeldje (als PDFtk Toolkit is geïnstaleerd,en path is aangepast)
Paswoord is test

Dank, Philiep. Ik ga eens hiermee experimenteren. Moet goed komen!

Mvg,

Ocirne