Dropdown VBA

[BachFel]

Servus zusammen,

anbei der Aufbau einer Datei. Es sind in der Dropdown-Liste mehrere Namen von Mitarbeitern. Ist es möglich, das jeder Mitarbeiter nur seine Daten sehen kann?

Stelle mir das unmöglich vor. Man müsste ja i wie schon beim Öffnen der Datei erkennen um welchen User es sich überhaupt handelt.. Oder gibt es da andere Möglichkeiten ?


Grüße
Felix

[Klaus-Dieter]

Hallo Felix,

da gibt es keinen sicheren Weg.

[BachFel]

Hallo Klaus-Dieter,

gäbe es denn überhaupt einen Weg oder ist das einfach nicht möglich?

[Klaus-Dieter]

Hallo,

Daten in einer Datei verbergen ist im höchsten Maße unsicher. Es könnte höchsten jeder Mitarbeiter seine eigene Datei führen, und der dafür berechtigte führt eine Gesamtdatei, wo er die Daten zusammen führt.

[Phi.VBA]

@Felix

Klaus-Dieter hat natürlich Recht. Aber wenn die Kollegen keine Xl-Spezialisten sind (und keinen kennen), kann man Arbeitsblätter verstecken (xlVeryHidden).

Aber es darf keine Katastrophe sein, falls der Schutz überwunden wird.

(VBA erforderlich)

[BachFel]

Hi Phi.VBA

ich habe bereits ein Makro i.V.m VeryHidden das es nur mit Hilfe eines Passwortes ermöglicht alle Tabellenblätter aufzurufen die in der Datei sind.
Das Problem hierbei wäre eben nur dass alle Kollegen in dem gleichen Arbeitsblatt arbeiten. Es soll nicht für jeden MA ein eigenes Arbeitsblatt angelegt werden (gleiche Daten gehören in ein Arbeitsblatt habe ich mal gelesen) =)

Aber falls du eine Lösung bzw. einen Ratschlag für den beschrieben Fall hast, sage ich natürlich nicht nein.

Grüße
Felix

[Phi.VBA]

Ein Versuch:

Das VBA-Project muss noch geschützt werden, ist aber zum testen zu unpraktisch.

Zum Testen auf Blatt1 wechseln

[Phi.VBA]

@Felix

auch nicht sicher, aber eine andere Variante:

im "Kopf" von Tabelle 3: in Spalte A muss der UserName stehen:

Code:

Private Sub Worksheet_Activate()
Dim WS As Worksheet: Set WS = ActiveSheet
   User = Environ("Username")
   With Cells(1, 1).CurrentRegion
       .AutoFilter 1, User
       .Cells.Locked = False
   End With
   WS.Protect , , , , True, True, True, True
End Sub

Private Sub Worksheet_Deactivate()
With Tabelle3
   .Unprotect
   .Cells.Locked = True
   .Cells(1, 1).CurrentRegion.AutoFilter
End With
End Sub

[Rabe]

Hi,

es wird ja wohl vermutlich jeder Benutzer einen eigenen Netzwerk-Einloggnamen haben.
Dann kann mit dem folgenden Makro der Zugriff für jeden Nutzer nur auf sein Blatt begrenzt werden.
Es gibt noch ein Blatt Übersicht (das ist Tabelle1), das für alle angezeigt wird.

Microsoft Excel Objekt DieseArbeitsmappe

Option Explicit 

Private Sub Workbook_Open() 
  Dim s As String 
  Dim i As Long 
   
  s = VBA.Environ("Username") 
  'MsgBox (s) 
   
  With Application 
     .ScreenUpdating = False 
     .DisplayAlerts = False 
  End With 
   
  With ThisWorkbook                'Tabellen, Bereiche und Formularschaltflächen ausblenden, je nach Account 
     Select Case LCase(s)          'unabhängig von der Großschreibung 
     Case "user1" 
        For i = 2 To Sheets.Count 
           .Sheets(i).Visible = False 
        Next i 
        .Sheets("User1").Visible = True 
        .Sheets("User1").Activate 
        '.Sheets("Übersicht").Range("1:46").EntireRow.Hidden = False 
        '.Sheets("Übersicht").Range("48:60").EntireRow.Hidden = True 
        '.Sheets("Übersicht").DrawingObjects("Button 1").Visible = True 
     Case "user2" 
        For i = 2 To Sheets.Count 
           .Sheets(i).Visible = False 
        Next i 
        .Sheets("User2").Visible = True 
        .Sheets("User2").Activate 
     Case "user3" 
        For i = 2 To Sheets.Count 
           .Sheets(i).Visible = False 
        Next i 
        .Sheets("User3").Visible = True 
        .Sheets("User3").Activate 
        'Case "...        'und so weiter 
     Case Else 
        'Datei schreibgeschützt öffnen 
        'Ausdruck.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad) 
        Application.DisplayAlerts = False 
        '         Workbooks.Open ThisWorkbook.FullName, , True 
        For i = 2 To Sheets.Count 
           .Sheets(i).Visible = False 
        Next i 
     End Select 
  End With 
  With Application 
     .DisplayAlerts = True 
     .ScreenUpdating = True 
  End With 
End Sub