Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Abfrage beim öffnen der Exel-Datei
#1
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
Antwortento top
#2
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
Herzliche Grüße aus dem Rheinland
Jörg

[Windows 10, Microsoft 365]
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste