Seltsam
03.11.2007 10:26:29
Walter
habe folgendes Makro für die Berechtigung:
Sub Test ()
If Not IstBerechtigtSchutzAlleTab Then
MsgBox "Sie haben keine Berechtigung, " & Chr(13) _
& Chr(13) & "den Tabellenschutz zu entfernen ! " & Chr(13) _
& Chr(13) & " " & Chr(13) _
& Chr(13), 48, " Hinweis !"
Exit Sub
Else...
und hier:
Function IstBerechtigtSchutzAlleTab() As Boolean
Dim rng As Range, i As Integer
With Sheets("Lager")
Set rng = .Range(.Cells(40, 16), .Cells(46, 16).End(xlUp))
End With
For i = 1 To rng.Rows.Count
If LCase(rng.Cells(i, 1)) = LCase(Environ("Username")) Then
IstBerechtigtSchutzAlleTab = True
Exit Function
End If
Next
End Function
Wenn ich jetzt einen Anwender in die Zelle 46 setzte, obwohl der Bereich bis dahin definiert ist,
kommt keine Berechtigung.
Lösche ich den Nutzer in 46, geht es weiter.
Wieso ?
mfg Walter MB