Kann man eine MsgBox nur 1x beim Öffnen einer Datei erscheinen lassen?
Ich habe verschiedene User und jeder soll diese Nachricht nur 1x bestätigen und beim nächsten Öffnen nicht wieder sehen.
Danke & Gruß
Nico
Private Sub Workbook_Open()
'Es wird ein Tabellenblatt "User" vorrausgesetzt
On Error GoTo Fehler
Set sh1 = Sheets("User")
LR = sh1.Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte
UN = Environ("UserName")
MsgBox "Ihr aktueller Anmeldename ist " & UN ' kann weg
If UN = "" Then UN = "Unbekanner Name"
Set c = sh1.Range("a:a").Find(UN, LookIn:=xlValues)
If Not c Is Nothing Then
'Keine MSGBOX
Else
Cells(LR + 1, 1).Value = UN
MsgBox "Du bist das erste mal hier!"
End If
Exit Sub
Fehler:
MsgBox "Blatt 'User' fehlt"
End Sub