Hallo,
ich weiß nicht ob das jetzt in das Forum passt oder besser in die VB Programmierung.
Also angenommen ich habe eine Excel Datei mit 15Werten.
Diese Datei möchte ich an 3 Leute schicken.
Aber von den 15 Werten soll jeder Benutzer nur 5 sehen dürfen. die anderen sollen also für Ihn nicht zugänglich sein.
Habe mir überlegt 3 Dropdownlisten zumachen
eine für user1
eine für user2 und
eine dür user3
ok. wenn der jeweilige benutzer die Datei jetzt öffnet sieht er erstmal nur 3 dropdownlisten. er klickt auf die die für ihn bestimmt ist (beispiel user1) und muss ein kennwort eingeben (beispiel hallo)
die anderen beiden dropdownlisten sollen über ein anderes Passwort geschützt sein.
ich hoffe ich habe mich einigermaßen klar ausgedrückt. sollte es eine VB sache sein, kann mir einer sowas programmieren?
danke für eure hilfe
dodger
Also angenommen ich habe eine Excel Datei mit 15Werten.
Diese Datei möchte ich an 3 Leute schicken.
Aber von den 15 Werten soll jeder Benutzer nur 5 sehen dürfen.
die anderen sollen also für Ihn nicht zugänglich sein.
Hi dodger,
ein Ansatz (ungetestet),
Alt+F11, Doppelklick auf „DieseArbeitsmappe“, Code einfgen, die Werte anpassen.
Rechtsklick links auf „VBA-Projekt“, über Eigenschaften ein Passwort vergeben damit nicht jeder den Code sehen kann.
In deiner Tabelle kannst du die Werte über den Namen „Bereich“ benutzen als Quelle für ein Dropdownfeld.
Gruß
Reinhard
Option Explicit
Private Sub Workbook\_Open()
Dim merker As String
Application.ScreenUpdating = False
merker = ActiveSheet.Name
Worksheets.Add
ActiveSheet.Name = "Geheim"
ActiveSheet.Visible = xlVeryHidden
ActiveWorkbook.Names.Add Name:="Bereich", RefersToR1C1:="=Geheim!RC:RC[5]"
Select Case Environ("Username") 'geht erst mit Windows höher als 98
Case "Max"
Range("A1:E1") = Split("10 12 14 17 24")
Case "Frieda"
Range("A1:E1") = Split("23 24 34 23 17")
Case "Claudia"
Range("A1:E1") = Split("1 2 3 4 5")
Case Else
Range("A1:E1") = Split("0 0 0 0 0")
End Select
Worksheets(merker).Activate
Application.ScreenUpdating = True
End Sub
Private Sub Workbook\_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWorkbook.Names("Bereich").Delete
Worksheets("Geheim").Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub