es darf aber nur der mit einer bestimmten kenneung auf das makro zugreifen(bzw. auf die userfrom).
wie muß ich das programmieren?
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