Berechtigung zuteilen ?
30.01.2007 10:10:03
Walter
brauch von Euch einen Tip/Unterstützung, weiß garnicht ob das Geht was ich vorhabe ?
Hier meine Frage:
Ich habe einen Makro Schutz eingebaut (auch mit Unterstützung Forum, klappt super), möchte aber bei Aufruf die Möglichkeit haben,
auf einem anderen Rechner den Rechner/Usernamen einzugeben,
um so auf einem nicht notierten User die Mappe zu öffnen?
Die User die ich hinterlegt habe, stehen in der Sheet, siehe Makro.
Hier mein Schutz Makro:
Private Sub Workbook_Open()
Sheets("Eingang").Select
With ActiveWindow
.DisplayWorkbookTabs = False
'Sheets("Eingang").DisplayWorkbookTab = True
End With
If IstBerechtigtEingang Then
Sheets("Eingang").Select
Else
MsgBox "Sie haben keine Berechtigung, " & Chr(13) _
& Chr(13) & "die Datei zu ÖFFNEN ! " & Chr(13) _
& Chr(13) & "Datei wird Automatisch geschlossen ! " & Chr(13) _
& Chr(13), 48, " Hinweis !"
Application.DisplayAlerts = False ' Sicherheitsabfrage unterdrücken
ActiveWorkbook.Close
Exit Sub
End If
Sheets("Eingang").Select
End Sub
'---------------------------------------------------------------------
Function IstBerechtigtEingang() As Boolean
Dim rng As Range, I As Integer
With Sheets("Eingang")
Set rng = .Range(.Cells(1, 21), .Cells(20, 21).End(xlUp))
End With
For I = 1 To rng.Rows.Count
If LCase(rng.Cells(I, 1)) = LCase(Environ("Username")) Then
IstBerechtigtEingang = True
Exit Function
End If
Next
End Function
Wie kann ich das Makro "Umgestalten", so das ich die Möglichkeit habe z.b. "Sie haben keine Berechtigung oder sind Sie Administrator, dann Passwort eingeben und Usernamen vom aktuellen Rechner" ?
mfg Walter MB