Einzelne Spalten schützen

Computer: Software & Programmierung Office Software
1

Hi,

wie ich einzelne Spalten grds. schützen kann habe ich inzwischen rausgefunden.
Gibt es im Ecxel(Vers.2000) aber die Möglichkeit in einem Arbeitsblatt bestimmte Bereiche für bestimmte Nutzer freizugeben?
Bsp: Herr A soll nur in Spalte C etwas eintragen können, Herr B nur in Spalte D usw.

Danke für eure Antworten
Gruß
Jörg

2

Gibt es im Ecxel(Vers.2000) aber die Möglichkeit in einem
Arbeitsblatt bestimmte Bereiche für bestimmte Nutzer
freizugeben?
Bsp: Herr A soll nur in Spalte C etwas eintragen können, Herr
B nur in Spalte D usw.

Hi Jörg,
welches Windows hast du denn? Mit Win98 wirds schwierig. Mit späteren versionen kann man die Environment nach dem Usernamen abfragen und dementsprechend Spalten verbergen.
Gruß
Reinhard

3

Hallo Reinhard,
wir haben hier die 2000er Version.
Kannst Du mir kurz beschreiben, wie das verbergen geht?
Vielen Dank
Jörg

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

wir haben hier die 2000er Version.
Kannst Du mir kurz beschreiben, wie das verbergen geht?

Hi Jörg,
Alt+F11, Doppelklick auf „DieseArbeitsmappe“, Code reinkopieren, die Spalteen, namen anpassen, Editor schliessen, Datei schließen, öffnen.

Option Explicit

Private Sub Workbook\_Open()
Select Case Environ("Username")
 Case "Petra"
 Worksheets("Tabelle1").Columns(4).Hidden = False
 Worksheets("Tabelle1").Columns(7).Hidden = False
 Case "Peter"
 Worksheets("Tabelle1").Columns(5).Hidden = False
 Worksheets("Tabelle1").Columns(8).Hidden = False
 Case "Petroleum"
 Worksheets("Tabelle1").Columns(11).Hidden = False
 Worksheets("Tabelle1").Columns(13).Hidden = False
 Case Else
End Select
End Sub

Private Sub Workbook\_BeforeClose(Cancel As Boolean)
Dim Spalten, n As Integer
Spalten = Array(4, 5, 7, 8, 11, 13)
For n = 0 To UBound(Spalten)
 Worksheets("Tabelle1").Columns(Spalten(n)).Hidden = xlVeryHidden
Next n
End Sub

Gruß
Reinhard

1 „Gefällt mir“