Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ein Excel sheet für mehrere user

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
Anzeige
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
Anzeige
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige