Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Passwörter

Forumthread: Mehrere Passwörter

Mehrere Passwörter
04.01.2005 08:56:47
R.Schmitt
Einen schönen Guten Morgen
wünsche ich euch allen.
Verbunden mit dem Versprechen, euch bis
zum 17.01.05 dann nicht mehr zu belästigen. ;-)
In der Recherche habe ich schon nach einer
Lösung gesucht, allerdings nichts Brauchbares
gefunden. Dort geht es ja meist darum ein
Password zu knacken. Ich dagegen will es
ja erst mal erstellen.
Die Frage lautet :
Kann ich anstatt eine Datei mit einem Password
zu schützen auch gleich mehrere (8 Stück) vergeben?
Es geht darum unsere Außendienstmitarbeiter
anhand des eingegebenen Passwortes zu iedntifizieren
und dann nur bestimmte Zahlen ansehen zu lassen.
Möglich ?
Viele Grüße
R.Schmitt
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Passwörter
04.01.2005 09:49:00
Russi
Hallo R.Schmidt!
Lasse beim Öffnen der Datei eine Userform anzeigen, in der das Passwort eingegeben werden muss. Anhand des Passwortes kannst Du dann alle weiteren Aktionen (bspw sichtbare Tabellen etc) festlegen.
Oder Du könntest das Makro alternativ auf den Benutzernamen (Application.Username) reagieren lassen und gewünschte Aktionen ausführen.
Viele Grüße
Russi
www.Russi.de.tt
Anzeige
select case VBA.environ("username")
ransi


      
hallo r.schmitt
der ansatz von russi ist gut.
aber anstatt application.username würde ich es mit VBA.environ("Username")
versuchen.
ersteres liest den namen der unter Extras-Optionen-Allgemein eingetragen ist.
Den kann man aber beliebig ändern.
Mit VBA.environ("Username")fragts du ab wer da grade angemeldet ist.
Ist also zuverlässiger.
versuchs doch mal so:
Private Sub Workbook_Open()
Select Case VBA.Environ("username")
Case Is = "Willi Wucher"
Call makro1
Case Is = "Kuno Killer"
Call makro2
Case Is = "Rudi Rollmops"
Call makro3
.
.
.
End Select
End Sub
Ransi 
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Mehrere Passwörter in Excel verwalten

Schritt-für-Schritt-Anleitung

Um mehrere Passwörter für den Zugriff auf bestimmte Daten in Excel zu verwalten, kannst Du folgende Schritte ausführen:

  1. Öffne Excel und erstelle eine neue Arbeitsmappe.

  2. Erstelle eine Userform für die Passwortabfrage:

    • Gehe zu Entwicklertools > Visual Basic.
    • Füge ein neues Userform hinzu und platziere ein Textfeld für die Eingabe des Passworts sowie einen Button zum Bestätigen.

  3. Programmierung der Userform:

    • Klicke mit der rechten Maustaste auf das Userform und wähle Code anzeigen.
    • Füge den folgenden Code ein:
    Private Sub CommandButton1_Click()
   Dim password As String
   password = TextBox1.Text

   ' Beispiel für mehrere Passwörter
   Select Case password
       Case "Passwort1"
           ' Erlaube Zugriff auf bestimmte Daten
       Case "Passwort2"
           ' Erlaube Zugriff auf andere Daten
       Case Else
           MsgBox "Ungültiges Passwort!"
   End Select
End Sub

  4. Benutzeridentifikation: Alternativ kannst Du die Identifikation auch über den Benutzernamen anpassen, indem Du VBA.Environ("username") verwendest, um den aktuell angemeldeten Benutzer abzufragen.

  5. Makro zuweisen: Stelle sicher, dass das Makro beim Öffnen der Arbeitsmappe automatisch gestartet wird, indem Du den folgenden Code in das Workbook_Open-Ereignis einfügst:

    Private Sub Workbook_Open()
   UserForm1.Show
End Sub

Häufige Fehler und Lösungen

  1. Fehler: Userform wird nicht angezeigt.

    • Lösung: Stelle sicher, dass der Workbook_Open-Code korrekt implementiert ist.

  2. Fehler: Ungültiges Passwort wird nicht erkannt.

    • Lösung: Überprüfe die Schreibweise der Passwörter im Select Case.

  3. Fehler: Der Zugriff auf bestimmte Daten wird nicht gewährt.

    • Lösung: Stelle sicher, dass die Bedingungen im Select Case korrekt definiert sind.

Alternative Methoden

  • Benutzerdefinierte Funktionen: Du kannst auch eigene Funktionen erstellen, die auf spezifische Benutzeraktionen basieren, um den Zugriff zu steuern.
  • VBA-Formularsteuerung: Nutze Steuerelemente wie Dropdowns oder Radio-Buttons, um die Benutzeroberfläche interaktiv zu gestalten.

Praktische Beispiele

  • Szenario 1: Außendienstmitarbeiter sollen nur auf Verkaufszahlen zugreifen.

    • Implementiere ein Passwort für den Zugriff auf diesen Abschnitt, indem Du die oben genannten Schritte befolgst.

  • Szenario 2: Vertriebsleiter hat Zugriff auf vertrauliche Daten.

    • Verwende unterschiedliche Passwörter zur Steuerung des Zugriffs je nach Rolle im Unternehmen.

Tipps für Profis

  • Sicherheit erhöhen: Verwende komplexe Passwörter und ändere sie regelmäßig.
  • Dokumentation: Halte eine Dokumentation der verwendeten Passwörter und der dazugehörigen Benutzer bereit.
  • Verwendung von Hash-Funktionen: Anstatt Passwörter im Klartext zu speichern, kannst Du Hash-Funktionen verwenden, um die Sicherheit zu erhöhen.

FAQ: Häufige Fragen

1. Kann ich mehr als 8 Passwörter verwenden?
Ja, Du kannst so viele Passwörter definieren, wie Du möchtest. Achte darauf, dass der Code übersichtlich bleibt.

2. Was ist der Unterschied zwischen Application.Username und VBA.Environ("username")?
Application.Username zeigt den Namen an, der in den Excel-Optionen festgelegt ist, während VBA.Environ("username") den aktuell angemeldeten Benutzer abfragt und somit zuverlässiger ist.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige