Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

UserID und Rechtevergabe

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


Anzeige

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


Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige