AW: Diese Fehlermeldung kommt, wenn...
10.09.2018 15:37:26
Dennis
Hallo Case,
ich habe nirgendwo den Code ThisWorkbook.Unprotect stehen. Und was ist mit der ersten Frage?
Hier sind codes die ich in der Datei verwende:
Diese Arbeitsmappe:
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
ActiveWorkbook.Protect Windows:=True
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
Windows(1).DisplayHorizontalScrollBar = False
Windows(1).DisplayVerticalScrollBar = False
End Sub
Modul 4:
Public Sub PDF_MAIL()
Dim strPDFD As String
Dim objOutApp As Object, objMessage As Object
strPDFD = ThisWorkbook.Path & "ÒÊÏ_" & ActiveSheet.Range("D16") & "_" & ActiveSheet.Range(" _
D17") & ".pdf"
Application.ScreenUpdating = False
Application.DisplayFullScreen = False
With Worksheets("Angebot")
.Visible = xlSheetVisible
Call .Rows(22).AutoFilter(Field:=6, Criteria1:="1")
Call .ExportAsFixedFormat(Type:=xlTypePDF, Filename:=strPDFD, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, OpenAfterPublish:=False)
.Visible = xlSheetVeryHidden
End With
Application.DisplayFullScreen = True
Application.ScreenUpdating = True
Set objOutApp = CreateObject("Outlook.Application")
Set objMessage = objOutApp.CreateItem(0)
With objMessage
.To = ThisWorkbook.Worksheets("Configurator").Range("D7").Value 'Empfaenger
.Subject = ThisWorkbook.Worksheets("Configurator").Range("D21") & "_" & Range("D16"). _
Value 'Betreffzeile
.body = ThisWorkbook.Worksheets("Configurator").Range("C84").Value 'Inhalt
Call .Attachments.Add(strPDFD)
Call .Display
'Call .Send
Call Kill(PathName:=strPDFD)
End With
Set objOutApp = Nothing
Set objMessage = Nothing
End Sub
Modul 3:
Sub PDF_Speichern()
Dim pdfDateiName As String
Dim pdfName As Variant
With Worksheets("Angebot")
pdfDateiName = "ÒÊÏ_" & ActiveSheet.Range("D16") & "_" & ActiveSheet.Range("D17") & ". _
pdf"
pdfName = Application.GetSaveAsFilename(InitialFileName:=pdfDateiName, FileFilter:=" _
PDFfiles, *.pdf", Title:="PDF speichern")
If TypeName(pdfName) = "String" Then
Application.ScreenUpdating = False
Application.DisplayFullScreen = False
.Visible = xlSheetVisible
Call .Rows(27).AutoFilter(Field:=6, Criteria1:="1")
Call .ExportAsFixedFormat(Type:=xlTypePDF, Filename:=pdfName, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True)
.Visible = xlSheetVeryHidden
Application.DisplayFullScreen = True
Application.ScreenUpdating = True
End If
End With
End Sub
Tabelle 3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.Rows.AutoFit
ActiveSheet.UsedRange.Rows.AutoFit
End Sub
Desweiteren habe ich einen Blattschutz mit Passwort angelegt.
Gruß
Dennis