Speichern trotz geöffneter Datei

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thomas,
die Dateiverwaltung wird vom Betriebssystem gesteuert - das lässt sich nur schwer überlisten.
Statt einer Fehlermeldung mit Makroabbruch könntest du den Fehler abfangen und in regelmäßigen Zeitintervallen das Makro neu Starten.
Die Bestätigung nach Fehler kannst du natürlich auch weglassen und "nur" auf das erfolgreiche Speichern warten.
Gruß
Franz

Sub PDF_Speichern()
Dim wks As Worksheet
Dim sFileName As String
Dim datPause As Integer
On Error GoTo Fehler
Set wks = Worksheets("Monatsansicht")
sFileName = "U:\Groups\Test\Test\Plan.pdf"
wks.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFileName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox "PDF-Datei erfolgreich gespeichert"
Worksheets("Jahresplan Vorplanung").Activate
Fehler:
With Err
Select Case .Number
Case 0
Case 1004
datPause = 10 ' max 59 Sekunden
If MsgBox("Datei zur Zeit geöffnet - in " & datPause _
& " Sekunden neuer Speicherversuch?", _
vbOKCancel + vbQuestion, "PDF-Speichern") = vbOK Then
Application.OnTime Now + TimeSerial(0, 0, datPause), "PDF_Speichern"
End If
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub

Hi
ein mehr oder weniger manueller Workaround wäre, dass du die PDF-Datei im Dateiexplorer mit dem Schreibschutzhäkchen versiehst (Datei mit rechter Maustaste anklicken, im Kontextmenü "Eigenschaften" wählen und dort bei "Allgemein - Attribute - Schreibgeschützt")
Wenn das Häkchen gesetzt ist, öffnet jeder eine Kopie dieser Datei.
Wenn du die PDF dann überarbeiten willst, müsstest du vor dem Speichern unter das Häkchen entfernen und kannst diese Datei dann normal öffnen oder überschreiben.
(die zeitgleich geöffneten Kopieren stören dich dann nicht weiter)
auf diese Weise kannsst du dir den schreibenden Zugriff auf diese Datei sichern.
ob man des An- und Abwählen des Häkchens auch per Excel-VBA machen kann, weiß ich nicht.
Vielleicht kennt sich da jemand anderes besser damit aus, ob und wie man die Explorer-Funktionen per VBA steuern kann.
Gruß Daniel

Worksheets("Monatsansicht").Activate ActiveSheet.ExportAsFixedFormat Type:=xlHtml, Filename:= _ "U:\Groups\Test\Test\Plan.html", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False Worksheets("Jahresplan Vorplanung").Activate End Sub/pre> Oder muss der Code komplett anders aussehen?

Beliebteste Forumthreads (12 Monate)

Speichern trotz geöffneter Datei

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

22 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Speichern trotz geöffneter Datei

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

22 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread