Übergabe des Namen bei Passworteingabe in Tabelle
23.10.2013 20:39:51
Andy
brauche wieder mal eure Hilfe!!
Ich habe den unterstehenden Code und würde gerne diejenigen die diese Arbeitsmappe öffnen, das aktuelle Datum in Spalte A und den Namen in Spalte B eingetragen haben.
Vielen Dank im voraus!
Private Sub Workbook_Open()
Dim codeName As String
Dim Passw As String
codeName = InputBox("Geben Sie Ihren Namen ein")
Passw = InputBox("Geben Sie Ihr Passwort ein")
If codeName = "Andy" And Passw = "1234" Then
MsgBox ("Hallo " & codeName)
ElseIf codeName = "Ulli" And Passw = "1234" Then
MsgBox ("Hallo " & codeName)
Else
MsgBox ("Hallo " & codeName & " Du hast keine Berechtigung")
ActiveWorkbook.Close False
End If
Worksheets("Tabelle1").Range("A1").Value = codeName
End Sub