Datei schließen nach msgbox
24.07.2016 13:27:15
Mike
ich habe folgendes Problem. Ich habe eine Datei, welche beim öffnen eine msgbox öffnen soll, indem gesagt wird, das die Datei auf eigenes Risiko benutzt wird. Entweder klickt der Anwender dann auf "Ja" und kann die Datei benutzen, oder er klickt auf "Nein" und die Datei wird wieder geschlossen.
Ich hatte mir das ganze so gedacht, aber irgendwie funktioniert das nicht ganz.
Private Sub Workbook_Open()
Antwort = MsgBox("Das benutzen dieser Datei geschieht auf eigenes Risiko!" & Chr(13) & _
"Haben Sie das verstanden?", vbYesNo, "Information")
If Antwort = 7 Then
Application.DisplayAlerts = False
aktiveWorkbook.Close
Application.DisplayAlerts = True
Else
End If
End Sub
Vielleicht kann mir jemand helfen, wo mein Fehler liegt.
Danke im voraus.
Mike