Ein Excel sheet für mehrere user

Forumthread: Ein Excel sheet für mehrere user

30.09.2002 11:26:20

Andy

Hallo miteinander!
Ich hab folgendes Problem:
Ein Excel-sheet soll für mehrere User zugänglich sein. Desweiteren sollen die User abhängig von ihrem Password nur einen bestimmten Teil des Sheets bearbeiten und angezeigt bekommen. Ein User darf das komplette Sheet anschauen und auch bearbeiten können.
Vielen Dank im Vorraus
Mit freundlichen Grüßen
Andy

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Ein Excel sheet für mehrere user

30.09.2002 13:10:24

Ralf Sögel
Re: Ein Excel sheet für mehrere user

30.09.2002 13:23:46

Andy
Re: Ein Excel sheet für mehrere user

30.09.2002 14:05:38

Ralf Sögel
Re: Ein Excel sheet für mehrere user

01.10.2002 08:19:28

Andy

Re: Ein Excel sheet für mehrere user

30.09.2002 13:10:24

Ralf Sögel

Mach doch einfach in Workbookopen eine select case Abfrage nach dem Passwort und blende die entsprechenden Spalten ein/aus.

Re: Ein Excel sheet für mehrere user

30.09.2002 13:23:46

Andy

Hallo Ralf!
Könntest du mir genauer beschreiben, wie ich das genau machen soll!
Danke Andy

Re: Ein Excel sheet für mehrere user

30.09.2002 14:05:38

Ralf Sögel

Geht auch eleganter mit userform, aber mal eine Möglichkeit:
Option Explicit
Dim WS As Worksheet, PW As String
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set WS = Sheets("Tabelle1")
With WS
.Unprotect password:="xxx"
.Columns.Hidden = True
.Protect password:="xxx"
End With
End Sub
Private Sub Workbook_Open()
Set WS = Sheets("Tabelle1")
WS.Unprotect password:="xxx"
PW = InputBox("Geben Sie Ihr Passwort ein...")
If PW = "" Then
WS.Protect password:="xxx"
' ThisWorkbook.Close False 'wenn gewünscht schließen
Exit Sub
End If
WS.Columns.Hidden = False
Select Case PW
Case "Heinz": WS.Columns("A:C").Hidden = True
Case "Helga": WS.Columns("B:D").Hidden = True
Case Else: WS.Columns.Hidden = True
End Select
WS.Protect password:="xxx"
End Sub

Re: Ein Excel sheet für mehrere user

01.10.2002 08:19:28

Andy

Danke dir soweit Ralf!
Hat wunderbar geklappt
Jetzt bin ich aber nochmal auf ein Problem gestossen und zwar wollte ich mein Excel-Sheet mit Autofiltern versehen.Sobald sich jetzt ein bestimmter User sein Passwort eingibt soll so gefiltert werden, dass dieser User nur die für ihn bestimmten Zeilen sieht. Kann ich das irgendwie mit ActiveSheet.Autofilter... hinbekommen.
Vielen Dank nochmal
Mit freundlichen Grüßen
Andy

Beliebteste Forumthreads (12 Monate)

Ein Excel sheet für mehrere user

Forumthread: Ein Excel sheet für mehrere user

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread