Benutzerdefinierte Ansicht mit VBA
07.01.2009 09:30:30
Kathi
Auch wenn ich diesbezüglch vor einiger Zeit bereits einmal gefragt habe, muss ich jetzt leider nochmal posten.
Ich hab folgenden Code:
Private mstrUser As String
Private mstrPw As String
Const cstrNormal As String = "Ehmer"
Const cstrPwN As String = "E"
Const cstrUserA As String = "Lorz"
Const cstrPwA As String = "L"
Const cstrUserB As String = "Wagemann"
Const cstrPwB As String = "W"
Const cstrUserC As String = "Escher"
Const cstrPwC As String = "E"
Const cstrUserD As String = "Barth"
Const cstrPwD As String = "B"
Public Sub MyCustomViews()
mstrUser = Application.InputBox("Geben Sie den Ansichtsnamen ein:" & _
vbNewLine & _
cstrEhmer & vbNewLine & _
cstrLorz & vbNewLine & _
cstrWagemann & vbNewLine & _
cstrEscher & vbNewLine & _
cstrBarth, _
"Ansichten", "User", Type:=2)
If mstrUser = "Falsch" Or mstrUser = "" Then Exit Sub
Select Case mstrUser
Case cstrNormal, cstrUserA, cstrUserB, cstrUserC, cstrUserD
Case Else
MsgBox "Für " & mstrUser & " liegt keine Ansicht vor.", _
vbOKOnly & vbExclamation
Exit Sub
End Select
mstrPw = Application.InputBox( _
mstrUser & ", Geben Sie Ihr Passwort ein:", _
"Passwortabfrage", "Passwort", Type:=2)
If mstrPw = "Falsch" Or mstrPw = "" Then Exit Sub
Select Case mstrUser
Case cstrEhmer
CheckPassword cstrPwN
Case cstrLorz
CheckPassword cstrPwA
Case cstrWagemann
CheckPassword cstrPwB
Case cstrEscher
CheckPassword cstrPwC
Case cstrBarth
CheckPassword cstrPwD
End Select
End Sub
Public Sub CheckPassword(strP As String)
If mstrPw strP Then
MsgBox mstrUser & ", dass Password ist falsch!", _
vbExclamation
Exit Sub
Else
With ActiveSheet
.Unprotect "Codebook"
Application.ScreenUpdating = False
If AutoFilter = 0 Then Range("A1").AutoFilter
Range("A1").AutoFilter Field:=4, Criteria1:=mstrUser
Application.ScreenUpdating = True
.Protect "Codebook"
End With
End If
End Sub
&
Private Sub Workbook_Open()
MyCustomViews
End Sub
Leider funktioniert dieser Code bei mir irgendwie nicht. Hab die Ansichten eingerichtet aber nix passiert. hat jemand ne Idee woran das liegen könnte?
Außerdem würde ich gern das dieser Code in mehreren Tabellenblättern angewendet wird wie kann man das hineinbringen?
Lg kathi
Danke für eure Hilfe im Voraus.