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

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

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
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige