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