Clever-Excel-Forum

Hallo zusammen,

ist es möglich, wenn ich eine Exceldatei öffnen das ich eine Abfrage stellen kann die Beantwortet werden muss.

z.B.

Abfrage: Die Daten sind nur für den Firmengebrauch zu verwenden und nicht an dritte Personen weiter zu leiten.

Bestätigung : Verstanden oder Beenden und bei Beenden schließt sich die Datei automatisch.

Ist das möglich und wenn ja wie ?

Gruß
Jürgen

Hi,

ja, das ist möglich mit folgendem Macro (in dem Modul 'DieseArbeitsmappe' ablegen):

Code:
Private Sub Workbook_Open()

    Dim Frage As String

    Dim Antwort As String

    Frage = "Die Daten sind nur für den Firmengebrauch zu verwenden und nicht an dritte Personen weiter zu leiten."

    Frage = Frage & vbLf & "Drücken Sie 'Ok', wenn verstanden oder 'Abbrechen' zum Beenden"

    Antwort = MsgBox(Frage, vbOKCancel, "Hinweis")

    If Antwort <> vbOK Then

        ActiveWorkbook.Close savechanges:=False

        Exit Sub

    End If

End Sub

JürgenRa

LuckyJoe