Re: Schreibrecht für User in best. Zellen
26.11.2002 09:07:37
Andreas Schindler
Hallo Thomas,frag die UserId des Systems ab und setze die Scroll-Area entsprechend.
Gruß
Andreas
Auf Modulebene:
Public Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Function GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Public Function rgbGetUserName() As String
Dim username As String
username = Space$(256)
If GetUserName(username, Len(username)) Then
rgbGetUserName = Left(username, InStr(username, Chr$(0)) - 1)
End If
End Function
Dann in Deinem Workbook:
benutzername = rgbGetUserName()
Select Case Benutzername
Case Meier
Worksheets("Tabelle1").ScrollArea = "G1:G1"
Case Müller
Worksheets("Tabelle1").ScrollArea = "G2:G2"
End select