Office: (Office 2013) Bestimmte Benutzer dürfen nur bestimmte Spalten sehen

Hallo zusammen mit folgendem Code bekomme ich es hin, dass gewisse Benutzer die Spalten nicht sehen können,




Allerdings hätte ich es gerne genau umgekehrt, da ich sonst 200 Benutzer eintragen muss, so wären es gerade mal 10.

Also brauche ich den Code so, dass ich eintrage wer die Spalten sehen kann und alle anderen nicht.

Vielen Dank im Voraus

 

Hallo!
Beschreibe mal genauer!
Um einen Schutz kann es sich ja schwerlich handeln.
Ich sehe auch keine Logik, dass jeder Benutzer eine gleiche Anzahl an Spalten sehen können soll.

Gruß Ralf

 

Es geht nur darum, dass eine Gruppe von ca 200 Leuten eine oder mehrere Spalten nicht sehen können darf, aber 10 Leute schon aber alle eben mit der gleichen Datei arbeiten

Gesendet von meinem LG-D802 mit Tapatalk

 

Weiß wirklich niemand eine Antwort?

Gesendet von meinem LG-D802 mit Tapatalk

 

Hi,

vielleicht so:

Code:

        .Columns.Hidden = True
        .Columns("A:F").Hidden = False = Environ("Username") = "Benutzer1"
        .Columns("G:U").Hidden = False = Environ("Username") = "Benutzer2"

Bis später,
Karin

 

Ich werde es ausprobieren, danke ;)

Gesendet von meinem LG-D802 mit Tapatalk

 

Hat leider auch nicht geklappt

Gesendet von meinem LG-D802 mit Tapatalk

 

Also bei mir funktioniert das schon - zuerst werden alle Spalten ausgeblendet und anschließend nur die eigneblendet die dem jeweiligen Benutzer zugewiesen sind.

Bis später,
Karin

 

Ich brauche es folgendermaßen, alle sollen bestimmte Spalten nicht sehen können, ausser die deren username eingetragen sind

Gesendet von meinem LG-D802 mit Tapatalk

 

Na das macht der Code doch, er blendet eben nur alle Spalten aus. Und wenn es nicht alle Spalten sein sollen, dann musst du halt nur die ausblenden, die du nicht anzeigen willst. Da ich das nicht wissen kann, musst du den Code selbst anpassen.

Bis später,
Karin

 

Ok ich weiß ich stehe auf dem Schlauch und vielen Dank für Eure Geduld [emoji56]

Ich möchte beispielsweise nur eine Spalte ausblenden und zwar für die Personen, deren username nicht im Code aufgelistet sein wird.

Gesendet von meinem LG-D802 mit Tapatalk

 

Das ist aber etwas anderes als dein zuerst geposteter Code macht - der blendet nämlich für unterschiedliche Beutzer unterschiedliche Spalten ein (bzw. aus). Wenn es für alle dieselbe Spalte ist, die nur für bestimmte Benutzer eingeblendet werden soll, dann kannst du es so lösen:

Code:

    Dim arrUsernamen()
    Dim varEinblenden As Variant
    arrUsernamen = Array("Benutzer1", "Benutzer2")  '<== hier alle Namen eintragen die Einsicht nehmen dürfen
    Columns("B").Hidden = True  '<== Spalte B wird für alle ausgeblendet
    ' prüfen ob Benutzername im Array steht
    varEinblenden = Application.Match(Environ("Username"), arrUsernamen(), 0)
    ' wenn Benutzername im Array steht wird Spalte B eingeblendet
    If IsNumeric(varEinblenden) Then Columns("B").Hidden = False

Bis später,
Karin

 

Ja mein Fehler tut mir leid. An welcher Stelle baue ich diesen Teil ein und wo gebe ich die Spalte ein beispielsweise A

Gesendet von meinem LG-D802 mit Tapatalk

 

Wo einbauen - genau wie in deinem geposteten Code: im Workbook_Open-Ereignis

Im Code stehen extra Kommentare - da sollte es ein Leichtes sein herauszufinden, wo du anstelle Spalte B Spalte A einträgst...

Bis später,
Karin

 

Bin ein Laie was das angeht, also wie würde der vollständige Code aussehen, wenn der User "müller" als einziger Spalte A sehen darf und alle anderen nicht. Danke im voraus

Gesendet von meinem LG-D802 mit Tapatalk