Speicherort kann nicht angepasst werden
29.11.2020 18:31:46
Anja
ich habe eine automatisch ausfüllende Tabelle mit Hilfe von Power Excel erstellt (Register: Steuer).
Um dieses Arbeitsblatt zu sichern, habe ich einen Button "Sichern" auf dem Registerblatt erstellt.
Wird dieser gedrückt wird automaisiert eine Kopie des Registerblattes als xlsx erstellt. Der Dateiname besteht aus dem aktuellen Dateinmanen- Tagesdatum-Zelle F1. Dabei wird vorher der Blattschutz aufgehoben und danach wieder erstellt.
Außerdem sollte die Datei eigentlich auf einem Serverpfad "G:\\K100\100100\gesperrt" gespeichert werden. Aber egal was ich als Pfad in der VBA angebe, er speichert die Datei immer in Dokumente.
Kann mir eventuell jemand meinen Fehler aufzeigen?
Sub Sicherung()
ActiveSheet.Unprotect Password:="2020"
Dim Pfad As String
Dim sFile As String
Application.ScreenUpdating = False
Pfad = "G:\\K100\100100\gesperrt"
sFile = ThisWorkbook.Name & "-" & Format(Date, "yyyymmdd") & "-" & Range("F1") & ".xlsx"
ActiveSheet.Copy
ActiveSheet.Buttons(1).Delete
ActiveWorkbook.SaveAs sFile
ActiveWorkbook.Close savechanges:=False
MsgBox "Das Blatt wurde unter " _
& Pfad & sFile & " gespeichert!"
Application.ScreenUpdating = True
ActiveSheet.Protect Password:="steinbeis2020"
End Sub