Hallo !
Ich habe diesen Code in meiner Mappe, zuständig für das Soeichern. Nun habe ich erfahren, das manche die Speicherung trotz Vorgabe eines Speichernamens über die Vorlage drüberspeichern.
Meine Frage wäre:
Kann man das irgendwie verhindern ?
habe nicht wirklich was gefunden, das mir weiterhelfen könnte.
Bitte um Hilfe, fals es sowas geben würde.
Danke
chris
Dim strVerzeichnis As String
Dim strDateiname As String
Range("G2").Value = "Speichern"
strVerzeichnis = "C:\Temp\"
strDateiname = Application.GetSaveAsFilename(InitialFileName:=strVerzeichnis & _
Range("AH4") & " " & Range("N7") & ".xls", _
FileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls")
Select Case strDateiname
Case False
Range("G2").Value = ""
Exit Sub
Case Else
ThisWorkbook.SaveAs Filename:=strDateiname
End Select
ThisWorkbook.Close True