AW: Berechtigung Arbeitsblätter
13.02.2008 17:03:13
fcs
Hallo markus,
etwa so im Blatt "Start" die Prozedur anpassen.
Gruß
Franz
Private Sub CommandButton1_Click()
Dim objWS As Worksheet
Dim rng As Range
Dim vSheets As Variant
Dim intIndex As Integer
Dim strPW As String
On Error Resume Next
If Me.ComboBox1.ListIndex > -1 Then
Application.ScreenUpdating = False
For Each objWS In Me.Parent.Worksheets
If objWS.Name "Start" Then objWS.Visible = xlSheetVeryHidden
Next
Set rng = ThisWorkbook.Sheets("Master").Range("benutzer").Find(Me.ComboBox1.Text, LookAt:= _
xlWhole)
If Not rng Is Nothing Then
strPW = Crypto(rng.Offset(0, 1).Text, cKey)
If Me.TextBox1.Text = strPW Then
intCount = 0
rng.Offset(0, 3) = Now
If LCase(rng.Offset(0, 2).Text) = "alle" Then
For Each objWS In ThisWorkbook.Worksheets
objWS.Visible = xlSheetVisible
Next
Else
vSheets = Split(rng.Offset(0, 2), ",")
For intIndex = 0 To UBound(vSheets)
ThisWorkbook.Sheets(vSheets(intIndex)).Visible = xlSheetVisible
Next
ThisWorkbook.Sheets(vSheets(0)).Activate
End If
'####################### neu Anfang
Select Case Me.ComboBox1.Text
Case "admin", "Holger"
Call SpecialAdminHolger 'Special Procedur aufrufen
Case Else
'do nothing
End Select
'######################## neu Ende
Else
intCount = intCount + 1
If intCount "Start" Then objWS.Visible = xlSheetVeryHidden
Next
With Me
.ComboBox1.Clear
.ComboBox1.Enabled = False
.TextBox1 = ""
.TextBox1.Enabled = False
.CommandButton1.Enabled = False
.CommandButton2.Enabled = False
End With
ThisWorkbook.Saved = True
Application.ScreenUpdating = True
End If
End If
End If
Me.TextBox1 = ""
Application.ScreenUpdating = True
End If
End Sub