Office: (Office 2010) VBA Code Spalte für bestimmte Nuter ausblenden

Hallo Zusammen,

wir nutzen im Betrieb zusätzlich eine Excel Liste für unsere Auftragsübersicht. Diese wir auf dem Server gespeichert.
Da ich aber nicht möchte, dass alle die darauf Zugriff haben auch die Auftragswerte sehen, würde ich gerne Spalte "N" ausblenden.

Im Server sind alle als "Administrator" angemeldet. Wenn jemand auf die Liste zugreifen möchte die von einem anderen geöffnet ist, wird ein Benutzer "XY" angezeigt.
Somit müsste man doch die Anwender unterscheiden können?

Ich würde gerne die Spalte "N" für alle unsichtbar machen außer für Benutzer "A", "B"... ist das möglich?
Kann mir jemand einen solchen Code schreiben?

Vielen Dank.

 

Hi,

im allgemeinen kann man so etwas nach diesem Prinzip lösen:

Code:

Select Case Environ("Username")
    Case "A", "B", "C"
        Worksheets("Tabelle1").Columns(14).Hidden = False
    Case Else
        Worksheets("Tabelle1").Columns(14).Hidden = True
End Select

Ob das bei dir funktioniert musst du halt testen.

Bis später,
Karin

 

Guten Morgen vielen Dank für die Antwort.

Leider konnte ich keine Veränderung feststellen. Ich habe die Liste als .xlsm gespeichert. Muss uich sonst etwas beachten? Ich habe den Benutzer "A" durch einen tatsächlichen Nutzer getauscht, jedoch auch ohne Erfolg. Die 14 habe ich auch durch "N" getauscht.
Wo liegt mein Fehler?

Beste Grüße
René

 

Hi René,

ob 14 onder "N" bei Columns steht bleibt sich gleich, denn Spalte N hat die Nummer 14.

Ich hatte ja geschrieben, dass ich nicht weiß ob das bei dir (Server) funktioniert. Aber schau mal her: http://www.office-loesung.de/ftopic127680_0_0_asc.php
Eventuell hilft das ja.

Bis später,
Karin