Excel VBA
25.06.2024 10:26:31
Bruno
Ich habe ein Problem, bei welchem ich nicht weiter komme. Wir haben einen Arbeitsplan, welcher von 2 Personen bearbeitet wird (geschütztes eigenes Laufwerk). Beim speichern wird zusätzlich eine Kopie auf ein öffentliches Laufwek geschrieben. Da aber ab und zu jemand die Datei dauerhaft geöffnet hat, schlägt die Speicherung fehl. Darum habe ich den Code erweitert, dass darauf hingewiesen wird, dass die Datei schreibgeschützt geöffnet werden soll.
Dies klappt leider aber auch nicht bei allen Mitarbeitern.
Gibt es eine Möglichkeit, bei der Kopie, das Popupfenster "Dem Autor wäre es lieber... Ja/Nein/Abbrechen" direkt mit Ja zu übersteuern, dass nur die Kopie direkt mit Schreibschutz geöffnet wird?
Mein Code:
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Makros Ausschalten
Application.EnableEvents = False
Application.DisplayAlerts = False
'Speichern auf Share mit ReadOnly Empfehlung
ActiveWorkbook.SaveAs Filename:="\\\\Pfadangabe\01.01_Einsatzplan\" + ActiveWorkbook.Name, ReadOnlyRecommended:=True
'Fehlermeldungen Einschalten
Application.DisplayAlerts = True
'Makros Einschalten
Application.EnableEvents = True
ActiveWorkbook.Close SaveChanges:=True
End Sub
Anzeige