Login bei Sub SaveAsXLSX
21.06.2021 10:44:54
Alex
Ich würde dem unten aufgeführten Code gerne sagen das bevor er Speichert sich in das Netzwerklaufwerk einloggt mit User und PW.
Kann mir dabei Bitte jemand behilflich sein ? Danke
Sub SaveAsXLSX()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sheets("Tabelle1 (2)").Select
Sheets("Tabelle1 (2)").Copy
'Datei ohne Makros (als XLSX-Datei) speichern
Application.DisplayAlerts = False 'Fehlermeldungen aus
'hier mit direkter Pfadangabe
ActiveWorkbook.SaveAs "\\10.171.145.150\data$\XXXX.xlsx", _
FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True ' Fehlermeldungen an
Windows("XXXX.xlsx").Activate
ActiveWindow.Close
Sheets("1").Select
ActiveWorkbook.save
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Call Calculate
End Sub