msgBox mit nur einem Klick
10.02.2006 13:40:27
Werner
Habe die Absicht das Dokument nach Änderung nicht unter gleichem Namen speichern lassen zu wollen.
Bei meinem Code muss ich zweimal auf OK klicken damit sie schließt und das Dialogfeld erscheint. Was habe ich faslch gemacht.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Me.Name = "Original.xls" Then
MsgBox "Dateiname schon vergeben!"
End If
Application.Dialogs(xlDialogSaveAs).Show
End Sub
mfg Werner