Dateiname beim Speichern nicht veränderbar
12.12.2003 15:06:11
Xico
wenn ein anderer User in der testdatei.xls den Befehl "Speichern unter" ausführt, soll der Speichername der Datei festgelegt werden. Das habe ich soweit mit folgendem Code gelöst:
Sub SpeicherMon()
saveas_filename = Application.GetSaveAsFilename(initialFilename:=(Cells(33, 84)), _
fileFilter:="Microsoft Excel-Arbeitsmape(*.xls),*.xls")
If saveas_filename = False Then
strTxt = "Bitte so speichern" & Chr(13) & "wie vorgeschlagen!"
MsgBox strTxt, vbInformation, ("Bitte beachten")
UserForm1.Show
Exit Sub
End If
ActiveWorkbook.SaveAs FileName:=saveas_filename
End Sub
Nun soll aber dort, wo der Dateiname steht, kein Einfluss vom User gegeben sein (sozusagen Enabled = False), sondern der vorgeschlagene Name soll unverändert übernommen werden. Kann man den oben genannten Code so modifizieren, dass dies geht?
Danke schon vorab und Gruss
Xico