Spalten welche nur eine Person sieht

14/04/2009 - 16:50 von Sveni | Report spam
Hallo NG

Ich möchte eine Excel-Tabelle erstellen in welcher
dann 2 oder mehrere Spalten sind die nur
ich sehe und bearbeiten kann.

Heisst diverse Leute haben zugriff auf die Tabelle und müssen
Ihre Daten eintragen.

Aber diese Personen dürfen 2 oder mehr Spalten weder sehen
noch bearbeiten können.


Weiss jemand Rat?
Vielen Dank erst mal
Gruss Sven
 

Lesen sie die antworten

#1 Eberhard Funke
14/04/2009 - 22:23 | Warnen spam
Am Tue, 14 Apr 2009 16:50:58 +0200 schrieb Sveni:

Ich möchte eine Excel-Tabelle erstellen in welcher
dann 2 oder mehrere Spalten sind die nur
ich sehe und bearbeiten kann.

Heisst diverse Leute haben zugriff auf die Tabelle und müssen
Ihre Daten eintragen.

Aber diese Personen dürfen 2 oder mehr Spalten weder sehen
noch bearbeiten können.




Hallo Sven,

es handelt sich um Tabelle1, und dort um die Spalten B und D.

Klick in Tabelle1 mit der rechten Maustaste unten links auf den
Tabellenreiter und wàhle "Code anzeigen". In das sich öffnende Fenster
kopiers Du folgenden Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strPW As String '***
Dim strEingabe As String '***
strPW = "Test" '***
With Application
If .Intersect(Target, Columns("B")) Is Nothing _
And .Intersect(Target, Columns("D")) Is Nothing Then Exit Sub
End With
If InputBox("Bitte Passwort eingeben") = strPW Then '***
Columns("B").Hidden = False '***
Columns("D").Hidden = False '***
Else '***
MsgBox "nicht erlaubt"
End If '***
End Sub


In ein "normales" Modul kopierst Du die beiden nachfolgenden Codes:

Sub Ausblenden()
With Sheets("Tabelle1")
.Columns("B").Hidden = True
.Columns("D").Hidden = True
End With
End Sub

Sub Einblenden()
With Sheets("Tabelle1")
.Columns("B").Hidden = False
.Columns("D").Hidden = False
End With
End Sub

Mit "Ausblenden" verbirgst Du die Spalten B und D.
Das kannst Du nur mit diesem Code machen! Ausblenden durch Markieren der
Spalten B oder D in der Tabelle geht nicht mehr wegen des Makros
Selection_Change!

Wieder Einblenden kannst Du auf zwei Wegen:
1. Wenn Du versuchst, in Tabelle1 eine der Spalten B oder D einzblenden,
musst Du das Passwort (hier vorgegeben: "Test") eingeben.

2. Durch das Makro "Einblenden". Wenn Du diese Alternative bevorzugst, dann
kannst Du in dem Makro Selection_Change die Zeilen mit dem '*** am Ende
löschen.

Wenn die User sich allerdings mit Excel auskennen und wissen, wie man an
den Code kommt, dann müsste man zusàtzlich die Makros ausblenden.

HTH

Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de

Ähnliche fragen