Hallo,
leider kann ich das Bild nicht anschauen (keine Rechte auf Google Drive zu schauen)
Aber ich würde ein Tabellenblatt (versteckt) anlagen, wo jeder "User" ein Passwort zugeordnet werden kann
Also ein Tabellenblatt "Namen" wo in Spalte A die Namen stehen, und in Spalte B die Passwörter.
Auf dem eigentlichen Bestell-Blatt würde ich dann z.B. nur ein Teil der Saplte B (z.B. B1-B20) entsperren.
Bei einer Änderung hier dann einfach das Passwort des Users abfragen.
Wenn der User das richtige Passort kennt, im Makro kurz den Blattschutz aufheben, die Nachbarzelle in Spalte C entsperren, und Blatt wieder sprerren.
Danach wieder rückgängig machen...
hier ein Beispiel:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
Dim r1 As Range
Dim r2 As Range
Set sh = ActiveSheet
Set r1 = Range("B1:B20")
Set r2 = Range("C1:C20")
If Not Intersect(Target, r1) Is Nothing Then
Dim s As String
Dim p As String
s = InputBox("Passwort")
p = Target.Offset(0, -1).Text
p = Application.WorksheetFunction.VLookup(p, Worksheets("Namen").Range("A1:B5"), 2, False)
If p = s Then
sh.Unprotect "test"
r1.Locked = True
Target.Resize(1, 2).Locked = False
sh.Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True
Target.Offset(0, 1).Select
End If
ElseIf Not Intersect(Target, r2) Is Nothing Then
sh.Unprotect "test"
Target.Locked = True
r1.Locked = False
sh.Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True
Target.Offset(0, -1).Select
End If
End Sub
Das Ganze ist ein Beispiel bzw. ein Ansatz.
zumindest in Office13 gibt es noch ein Befehl " Benutzer dürfen Bereiche bearbeiten", das könnte auch was sein, aber wie das funktioniert, und ob das
auch in älteren Office Versionen oder Open-Office geht weiß ich nicht
|