Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
248to252
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
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

UserID und Rechtevergabe

UserID und Rechtevergabe
23.04.2003 14:53:58
ThomasS
Hallo,
ich habe (mit toller Hilfe dieses Forums) ein Excel File generiert, über das unsere Abteilung Testfahrzeuge zu bestimmten Zeiten buchen kann. Hierfür wird bei Dateistart die User-Id ausgelesen mit

Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long

und dann als einzige Option (neben "blank") in einem Dropdown Menü angeboten, wenn man unter seiner ID ein Fahrzeug buchen möchte. Klappt auch alles prima; Problem: Wenn jemand anderes in der Datei ist und in einem gebuchten Feld aus Versehen Blank einstellt, kann er die ursprüngliche ID nicht zurückholen. Was mir fehlt, ist z.B eine Funktion mit der ein mit einer ID gefülltes Feld "gesperrt" wird bzw nur von dem Nutzer mit der selben ID wieder gelöscht werden kann.
Falls das zu kompliziert war könnte ich das Excel File zur Ansicht auch gerne verschicken.

Danke


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: UserID und Rechtevergabe
23.04.2003 15:09:21
Harald Neumann

Hallo Thomas,

Lösungsmöglichkeit:
1. Blatt schützen Passwort=Userid
2. Blatt entschützen
3. UserID eintragen
4. Blatt schützen Passwort=UserID
5. Button anlegen

If activecell.value=UserID then
activesheet.unprotect ("UserID")
activecell.value=""
activesheet.protect ("UserID")
Else
Msgbox "Sie haben hierfür keine Berechtigung..."
Exit Sub
End If

Gruss Harald


Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige