Bitte um Hilfe, komme einfach nicht weiter.
Habe in einer Datei 5 Tabellen. 4 davon (Tabelle2,3,4,5) habe mittels VBA ausgeblendet (2-xlSheetVeryHidden) und das Projekt mit Kennwort geschützt.
Jetzt habe ich die Tabelle1 von wo aus die Makros nicht mehr funktionieren.
Modul3
Sub PDF_Speichern()
Dim pdfName As String
With Sheets("Angebot")
pdfName = Application.GetSaveAsFilename(Environ("USERPROFILE") & "TKP" & _
.Range("B14") & .Range("B6") & .Range("B8") & .Range("B6") & .Range("B3") & ". _
pdf", "PDF-Dateien (*.pdf), *.pdf")
End With
If pdfName = "Falsch" Then Exit Sub
Sheets(Array("Angebot")).Select
Sheets("Angebot").Activate
ChDir "C:\Users\dmatthies\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Angebot").Select
End Sub
Modul4Option Explicit
Sub PDF_MAIL()
Dim mePDFD As String
Dim MyOutApp As Object, MyMessage As Object
mePDFD = ThisWorkbook.Path & "\testPDF.pdf"
Sheets("Angebot").Copy
With ActiveWorkbook
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=mePDFD, Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
.Close False
End With
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = ThisWorkbook.Sheets("Configurator").Range("D7").Value 'Empfaenger
.Subject = ThisWorkbook.Sheets("Configurator").Range("D21").Value 'Betreffzeile
.body = ThisWorkbook.Sheets("Configurator").Range("C74").Value 'Inhalt
.Attachments.Add mePDFD
.display
'.Send
Kill mePDFD
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub
Gibt es hierfür eine Lösung?Vielen Dank im Voraus!
Gruß
Dennis