Daten personalisiert verfügbar machen
06.02.2014 16:51:16
Peter
Ich hoffe, ihr könnt mir mit einem Problem in Excel respektive VB.
Ich versuche, eine Datei mit mehreren Sheets zu erstellen, in der jeweils die User nur auf ihr eigenes Sheet zugreifen können. Die einzelnen Sheets sind nach dem Usernamen benannt, der aus Excel ausgelesen wird. Dazu nehme ich diesen Code, den ich hier im Forum gefunden habe:
Private Sub Workbook_Open()
UN = Environ("UserName")
If UN = "" Then US = "Unbekanner Name"
'Nur zur Info, kann kompl. weg
MsgBox "Ihr aktueller Anmeldename ist " & UN
On Error Resume Next
Sheets(Environ("UserName")).Visible = True
If Err.Number = 9 Then ' Blatt existiert noch nicht
Err.Clear
On Error GoTo 0
x = MsgBox("Ein Tabellenblatt mit dem Namen " & Chr(13) _
& "'" & Environ("UserName") & "' existiert nicht!" & Chr(13) _
& "Wenden Sie sich an den Datei-Ersteller. Tel: 123", vbOKOnly, "Sicherheitshinweis" _
_
)
End If
On Error GoTo 0
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'ErsteBlatt
Dim Erste$
Erste = "Für Alle"
For Each Sh In ThisWorkbook.Sheets
If Sh.Name Erste Then
Sh.Visible = xlVeryHidden ' alle verstecken, außer das Erste
End If
Next Sh
ThisWorkbook.Save
End Sub
Den Code habe ich hier im Forum gefunden: https://www.herber.de/forum/archiv/608to612/609070_Script_Daten_personalisiert_zur_Verfuegung_stellen.html
Vielen Dank dafür!
Nun habe ich das Problem, dass ich als einziger User die Daten in dieser Datei bearbeiten können muss.
Könnt ihr mir einen Tipp geben, wie ich mich als User "Peter" aus diesem Script ausschliessen kann, jedoch trotzdem noch Zugriff habe? Wenn mein Sheet nicht mehr drin wäre, würde ich ja abgewiesen werden...
Vielen Dank bereits im Voraus für die Hilfe.
Freundliche Grüsse
Peter