Thema Datum  Von Nutzer Rating
Antwort
04.04.2017 08:09:35 Umbrecht
NotSolved
Blau Excel Blattschutz
04.04.2017 14:49:43 Gast40774
NotSolved

Ansicht des Beitrags:
Von:
Gast40774
Datum:
04.04.2017 14:49:43
Views:
542
Rating: Antwort:
  Ja
Thema:
Excel Blattschutz

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
04.04.2017 08:09:35 Umbrecht
NotSolved
Blau Excel Blattschutz
04.04.2017 14:49:43 Gast40774
NotSolved