Abfrage beim öffnen der Exel-Datei

[JürgenRa]

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

[LuckyJoe]

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