Hallo Experten,
in einer schreibgeschützten Datei wird der neue Dateiname automatisch aus eingegebenen Daten erstellt,
damit die Speicherung einheitlich erfolgt.
Mit Hilfe aus diesem Forum gelingt das gut:
...
If ThisWorkbook.ReadOnly Then
Application.EnableEvents = False
Set objFileDialog = Application.FileDialog(msoFileDialogSaveAs)
With objFileDialog
.FilterIndex = 2 '2 = .xlsm
.InitialFileName = ThisWorkbook.Path & "\" & "TP.Vs32-" & wks1.Cells(2, 10) & "- " & wks1.Cells(1, 2) & "-" & wks1.Cells(1, 10).Text
If .Show Then
Call .Execute
End If
End With
Else
ThisWorkbook.Save
End If
Application.EnableEvents = True
End Sub
Problem:
Der Vorgang wird zweimal hintereinander aufgerufen.
Weiß jemand wie man die zweite Runde unterbinden kann ?
LG Bernhard