Private Sub Workbook_Open()
Load Modul1
End Sub
Private Sub Workbook_Open()
call Modul1.passwortabfrage
End Sub
Private Sub Form_Load()
'KPD-Team 1998
'URL: <a href="http://www.allapi.net/">http://www.allapi.net/</a>
'E-Mail: KPDTeam@Allapi.net
Dim strTemp As String, strUserName As String
'Create a buffer
strTemp = String(100, Chr$(0))
'Create a buffer
strUserName = String(100, Chr$(0))
'Get the username
GetUserName strUserName, 100
'strip the rest of the buffer
strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
If Application.UserName = "HRB99951" Then
'für benutzer kennung, wenn richtiger benutzer dann...
Load frmeintragen
frmeintragen.Show
End If
'Show the temppath and the username
'MsgBox "Hello " & strUserName
'MsgBox Application.UserName
End Sub
Private Sub Form_Load()
'KPD-Team 1998
'URL: <a href="http://www.allapi.net/">http://www.allapi.net/</a>
'E-Mail: KPDTeam@Allapi.net
Dim strTemp As String, strUserName As String
'Create a buffer
strTemp = String(100, Chr$(0))
'Create a buffer
strUserName = String(100, Chr$(0))
'Get the username
GetUserName strUserName, 100
'strip the rest of the buffer
strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
If Application.UserName = "HRB99951" Then
'für benutzer kennung, wenn richtiger benutzer dann...
Load frmeintragen
frmeintragen.Show
End If
'Show the temppath and the username
'MsgBox "Hello " & strUserName
'MsgBox Application.UserName
End Sub
Private Sub Workbook_Open()
call Modul1.?passwortabfrage?
End Sub
Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Function UserName()
Dim Buffer As String * 100
Dim BuffLen As Long
BuffLen = 100
GetUserName Buffer, BuffLen
UserName = Left(Buffer, BuffLen)
UserName = Left(UserName, InStr(UserName, Chr(0)) - 1)
End Function
Damit wird der Anmeldename gelesen.
An den Anfang deiner
Sub setzt du jetzt einfach:
If UserName()<>"Ralf Mustermann" Then
Msgbox "Das darfst du nicht"
Exit Sub
End If
Gruß aus'm Pott
Udo
<a href="http://www.excelerator.de">http://www.excelerator.de</a>
P.S. irgendwie komm ich mit der Darstellung nicht klar. das Declare muss vor Function
Sub teste()
MsgBox Environ("username")
End Sub
Private Sub Form_Load() weg
Dann gib in Deine Open-prozedur Modul1. ein dann sollte schon das Form_Load auftauchen.
Private Sub Workbook_Open()
call Modul1.Form_Load
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen