Berechtigung in Datei
25.05.2008 12:34:00
Walter
habe folgendes Makro für die Freigabe in Datei. (auch mit Unterstützung Forum)
Nun möchte ich dies per Eingabetextbox.
Man sollte ein Passwort eingeben und dann ist man halt in der
Tabelle.
Also ohne Usernamen.
Function IstBerechtigtSpeichernAdmin() As Boolean
Dim rng As Range, i As Integer
With Sheets("1_Eingang")
Set rng = .Range(.Cells(35, 16), .Cells(46, 16))
End With
For i = 1 To rng.Rows.Count
If LCase(rng.Cells(i, 1)) = LCase(Environ("Username")) Then
IstBerechtigtSpeichernAdmin = True
Exit Function
End If
Next
End Function
mfg walter mg