User Abfrage

Forumthread: User Abfrage

User Abfrage

22.01.2020 12:19:57

walter

Hallo zusammen,
habe folgende Zeile:
If VBA.Environ("USERNAME") = "KK" Or VBA.Environ("USERNAME") = "?" Then
ich möchte gern das Makro starten wenn ich nicht "KK" bin, egal "?" welcher Username sonst
im Netzwerk vorhanden ist.
mfg
walter b

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: User Abfrage

22.01.2020 12:21:21

Werner
Danke werner ! -)

22.01.2020 12:27:31

walter
Gerne u. Danke für die Rückmeldung. o.w.T.

22.01.2020 12:37:38

Werner

AW: User Abfrage

22.01.2020 12:21:21

Werner

Hallo,

If VBA.Environ("USERNAME")  "KK" Then

Gruß Werner

Danke werner ! -)

22.01.2020 12:27:31

walter

Gerne u. Danke für die Rückmeldung. o.w.T.

22.01.2020 12:37:38

Werner

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um eine User Abfrage in Excel VBA zu erstellen, kannst Du die folgende Schritt-für-Schritt-Anleitung befolgen:

VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Ein neues Modul erstellen: Klicke mit der rechten Maustaste auf "VBAProject (DeinWorkbookName)" und wähle Einfügen > Modul.

Code eingeben: Füge den folgenden Code in das Modul ein:

Sub UserAbfrage()
   If VBA.Environ("USERNAME") <> "KK" Then
       ' Dein Makro-Code hier
       MsgBox "Willkommen, " & VBA.Environ("USERNAME")
   Else
       MsgBox "Zugriff verweigert."
   End If
End Sub

Makro ausführen: Schließe den VBA-Editor und führe das Makro über Entwicklertools > Makros aus.

Häufige Fehler und Lösungen

Fehler: Das Makro wird nicht gestartet.
- Lösung: Stelle sicher, dass Du das Makro korrekt aufrufst und dass die Sicherheitsoptionen in Excel so eingestellt sind, dass Makros ausgeführt werden dürfen.
Fehler: Der Benutzername wird nicht korrekt erkannt.
- Lösung: Überprüfe, ob der eingegebene Benutzername in der Umgebung richtig gesetzt ist. Nutze Debug.Print VBA.Environ("USERNAME"), um den aktuellen Benutzernamen im Direktfenster anzuzeigen.

Alternative Methoden

Wenn Du eine andere Methode zur User Abfrage verwenden möchtest, kannst Du auch die InputBox-Funktion nutzen, um den Benutzernamen manuell abzufragen:

Sub UserAbfrageAlternative()
    Dim username As String
    username = InputBox("Bitte gib deinen Benutzernamen ein:")

    If username <> "KK" Then
        MsgBox "Willkommen, " & username
    Else
        MsgBox "Zugriff verweigert."
    End If
End Sub

Praktische Beispiele

Hier sind einige praktische Anwendungen der VBA Abfrage in Excel:

Zugriffssteuerung: Nutze die Abfrage, um den Zugriff auf bestimmte Bereiche des Excel-Dokuments zu beschränken.
Personalisierte Begrüßung: Verwende den Benutzernamen, um personalisierte Nachrichten anzuzeigen, wenn ein Benutzer das Dokument öffnet.

Tipps für Profis

Nutze Fehlerbehandlung in Deinem VBA-Code, um sicherzustellen, dass das Programm auch bei unerwarteten Eingaben stabil läuft. Zum Beispiel:
```
On Error Resume Next
' Dein Code hier
On Error GoTo 0
```
Teste Deinen Code regelmäßig, um sicherzustellen, dass die User Abfrage in verschiedenen Szenarien korrekt funktioniert.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Benutzernamen abfragen?
Du kannst eine Liste von erlaubten Benutzern in einem Array speichern und dann überprüfen, ob der aktuelle Benutzer in dieser Liste enthalten ist.

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der gezeigte VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren, solange VBA unterstützt wird.

Beliebteste Forumthreads (12 Monate)