Sub ArbeitsblattExportierenMitSicherheitPDFC()
    Dim objPDFC As PDFCreator.clsPDFCreator
    
	Set objPDFC = New PDFCreator.clsPDFCreator
	If objPDFC.cStart("/NoProcessingAtStartup") = _
		False Then
		MsgBox "PDFCreator ist schon aktiv. " & _
			"Bitte beenden Sie den Prozess."
		Exit Sub
	End If
    
	With objPDFC
		.cOption("UseAutosave") = 1
		.cOption("UseAutosaveDirectory") = 1
		.cOption("AutosaveDirectory") = "d:\temp"
		.cOption("AutosaveFilename") = "Arbeitsblatt"
		.cOption("AutosaveFormat") = 0
		.cOption("AutosaveStartStandardProgram") = 1
        
		'Security einschalten
		.cOption("PDFUseSecurity") = 1
		.cOption("PDFOwnerPass") = 1
		.cOption("PDFOwnerPasswordString") = "geheim"
        
		'Kennwort zum ffnen
		.cOption("PDFUserPass") = 1
		.cOption("PDFUserPasswordString") = "top secret"
            
		'Beschrnkungen
		.cOption("PDFDisallowCopy") = 1
		.cOption("PDFDisallowModifyContents") = 1
		.cOption("PDFDisallowPrinting") = 1
        
		'Sichere Verschlsselung
		.cOption("PDFHighEncryption") = 1
        
		.cClearCache
	End With

	ActiveSheet.PrintOut ActivePrinter:="PDFCreator"

	Do Until objPDFC.cCountOfPrintjobs = 1
		DoEvents
	Loop
	objPDFC.cPrinterStop = False

	Do Until objPDFC.cCountOfPrintjobs = 0
		DoEvents
	Loop

	objPDFC.cClose
	Set objPDFC = Nothing
End Sub
