Mailto und Speichern unter...

[Mounzer]

Hallo liebe Community,

ich habe folgenden Code:

Private Sub CommandButton1_Click()
Dim username, passwort As String
username = TextBox1.Text
passwort = TextBox2.Text
If username = "0815" And passwort = "0815" Or username = "Admin" And passwort = "0815" Then
    MsgBox "Passt", vbInformation
    Unload Me
     
Else
MsgBox "Passt nicht", vbCritical
ActiveWorkbook.Close
End If
End Sub

Wie schaffe ich es, dass er bei Falscheingabe die Frage mit dem Speichern unter umgeht? Versuche mir echt den Wolf...
Und was noch komisch ist, wenn ich auf das X zum schließen klicke, kann ich die Liste auch ohne Passwort nutzen.


Und meine zweite Frage, wie kann ich z.B. ein Mailto Funktion zum Standart Email Programm im Userform einfügen?

z.B. Passwort vergessen?  Dann sollte man drauf klicken und es öffnet sich eine Email mit Betreff XY

Danke vielmals!

[Mounzer]

Keiner eine Antwort? :(

Drehe schon durch seit 2 Std.

[schauan]

Hallöchen,

hier mal schnell eine Antwort auf die erste Frage, eventuell ist bezüglich Deines Wohlergehens noch nichts verloren ...

Normalerweise sollte als Zusatz beim
... Close SaveChanges:=False
reichen.


Ich gebe zur Sicherheit ab und an noch einen drauf.

ActiveWorkbook.Saved=True
ActiveWorkbook.Close SaveChanges:=False

[Mounzer]

Ok, die Frage muss zu schwer sein. :P

[schauan]

... Nö, hab auch gerade zumindest zu einem Teil geantwortet - über Dir
Ich gehe allerdings die Threads von hinten durch, wenn ich im Forum bin. In Abwandlung des Spruchs
Die letzten werden die ersten sein
sind bei mir die letzten meist auch die letzten :22: