Abfrage immer nur beim Öffnen
07.08.2007 13:36:07
Oli
jetzt hab ich mich auch einmal durch das Archiv geklickt aber leider nix wirklich passendes gefunden. (Evtl. auch auf Grund meiner gerade erst beginnenden VBA Kentnisse).
Mein Problem:
Beim Öffnen der Datei soll abgefragt werden, ob man mit einem bestimmten Hinweis einverstanden ist. Beim ersten öffnen klappt auch alles, die MessageBox öffnet, bei "OK" kann man mit der Datei arbeiten und bei "Abbruch" schließt sie. Nur, sobald ich kurz zu einer anderen Excel-Datei wechlsel und dann wieder zur anderen zurück spring, kommt die Abfrage wieder. Kann man das umgehn?
So hab ichs bis jetzt gemacht:
Public Sub Meldungen()
Dim i As Integer
i = MsgBox("This tool can only be used if you agree with the Notes", vbOKCancel, "Titel")
If i = vbCancel Then
Mldg = "You can only use the tool if you agree!!!"
Stil = vbOKOnly + vbCritical
Antwort = MsgBox(Mldg, Stil)
Excel.Workbooks.Close
End If
End Sub
Vielen Dank schon einmal.
Gruß
Oli