MsgBox für bestimmte Excel-User bei Dateiöffnung
Schritt-für-Schritt-Anleitung
Um eine MsgBox anzuzeigen, wenn ein bestimmter Excel-User eine Datei öffnet, kannst Du den folgenden VBA-Code verwenden. Dieser wird im „Workbook_Open“ Ereignis platziert.
-
Öffne Deine Excel-Datei.
-
Drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Doppelklicke auf „DieseArbeitsmappe“ im Projektfenster.
-
Füge den folgenden Code ein:
Private Sub Workbook_Open()
If Environ("Username") = "c.boehnke" Or Environ("Username") = "h.meyer" Then
MsgBox "Willkommen zurück, " & Environ("Username")
End If
End Sub
-
Schließe den VBA-Editor und speichere die Datei als Makro-fähige Arbeitsmappe (.xlsm).
Mit diesem Code wird eine MsgBox angezeigt, wenn einer der angegebenen User (in diesem Fall „c.boehnke“ oder „h.meyer“) die Datei öffnet.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn Du eine flexiblere Lösung benötigst, kannst Du auch eine UserForm oder ein Modul aufrufen. Hier ist ein Beispiel, um eine UserForm anzuzeigen:
- Erstelle eine UserForm im VBA-Editor.
-
Füge den gewünschten Code in das „Workbook_Open“-Ereignis ein:
Private Sub Workbook_Open()
If Environ("Username") = "c.boehnke" Or Environ("Username") = "h.meyer" Then
UserForm1.Show
End If
End Sub
Diese Methode ermöglicht es Dir, eine benutzerdefinierte Eingabemaske anzuzeigen, anstelle einer einfachen MsgBox.
Praktische Beispiele
Hier ist ein Beispiel, wie Du eine Liste von Usernamen sammeln kannst. Dies kann besonders nützlich sein, wenn Du eine „Userliste“ führen möchtest.
Private Sub Workbook_Open()
Dim lRow As Long
With Sheets("UserListe")
.Visible = xlVeryHidden
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(lRow, 1).Value = Environ("Username")
.Cells(lRow, 2).Value = Date
.Cells(lRow, 3).Value = Time
End With
ActiveWorkbook.Save
End Sub
Dieses Skript speichert den Benutzernamen, das Datum und die Uhrzeit, wenn ein User die Datei öffnet.
Tipps für Profis
-
Verwende Select Case: Wenn Du mit vielen Benutzern arbeitest, ist die Verwendung von Select Case eine saubere Lösung:
Dim bAktion As Boolean
Select Case Environ("Username")
Case "c.boehnke", "h.meyer"
bAktion = True
Case Else
bAktion = False
End Select
If bAktion Then
MsgBox "Hallo Welt"
End If
-
Sicherheit beachten: Sei Dir bewusst, dass Excel-Makros leicht deaktiviert werden können. Achte darauf, dass der Code nicht für unerwünschte Aktivitäten wie den Zugriff auf eine „legale Pornoseite“ verwendet wird.
FAQ: Häufige Fragen
1. Frage
Wie kann ich den Windows-Benutzernamen herausfinden?
Antwort: Du kannst den Windows-Benutzernamen mit Environ("Username") abrufen.
2. Frage
Kann ich mehrere Usernamen in einer If-Bedingung abfragen?
Antwort: Ja, Du kannst „Or“ verwenden oder Select Case nutzen, um die Bedingungen zu prüfen.
3. Frage
Ist es möglich, anstelle einer MsgBox eine UserForm zu verwenden?
Antwort: Ja, Du kannst eine UserForm anzeigen, indem Du sie im „Workbook_Open“-Ereignis aufrufst.
4. Frage
Wie kann ich verhindern, dass andere User die Datei öffnen?
Antwort: Du kannst den Code so anpassen, dass die Datei geschlossen wird, wenn der Benutzer nicht auf der Liste steht.