Laufzeitfehler 2147024891 (8007005)
29.03.2022 11:59:11
Kasi
mir wird Laufzeitfehler 2147024891 (8007005) "Zugriff verweigert. Sie haben nicht die erforderlichen Berechtigungen, um diesen Vorgang auszuführen" angezeigt.
Angezeigt wird der Fehler wenn ich den befehl PDF speichern ausführe. Es führt den Befehlt zwar aus gibt mir dann die Fehlermeldung. Es wird auf den Button1 referenziert. Die Funktionen sind alle Anwendbar nur kommt diese Fehlermeldung. Ich verwende office365 und es wird ein Blattschutz verwendet. Kann mir hier jemand weiterhelfen?
PDF speichern:
Sub SAVEASPDF()
'Save LoopSelectedSheetsSaveAsPDF
'Create and assign variables
Dim saveLocation As String
Dim sheetArray As Variant
saveLocation = "C:\Temp\sales_policies.pdf"
sheetArray = Array("General Data", "Commercials", "Legal", "Project Rating")
'Select specific sheets from workbook, the save all as PDF
Sheets(sheetArray).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=saveLocation, _
OpenAfterPublish:=True, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False
End Sub
Button Ausblenden:If Worksheets("Project Rating").Range("F39") = 1 Then
CommandButton9.Visible = True
Else
CommandButton9.Visible = False
End If
If Worksheets("Project Rating").Range("B51") = 1 Then
Worksheets("Project Rating").Shapes("Button10").Visible = True
Else
Worksheets("Project Rating").Shapes("Button10").Visible = False
End If
End Sub Den Button 10 musste ich als Shapes anlegen, weil ich nachvollziehen konnte wie mein Vorgänger die anderen CommandButtons angelegt hat.
Danke für eure Hilfe!
VG