Verschiedene Passwörter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Nikki,
Ja.
Der Mitarbeiter wird über das Passwort erkennt und die entsprechenden Zeilen eingeblendet.
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Grußformel

Private Sub Workbook_Open() Tabelle1.Rows("5:6").Hidden = True Select Case Environ("Username") Case "MeierHans" Tabelle1.Rows("5:5").Hidden = False Case "MüllerIrmgard" Tabelle1.Rows("6:6").Hidden = False End Select End Sub

Hallo Niki,
Kopiere und starte mal folgendes Sub (du weisst wie das geht?)


Sub Test()
MsgBox Environ("Username")
End Sub

Dann sollte ein Fenster aufgehen in dem etwa steht: "NikkiMeier" - oder wie auch immer du in Windows heisst.
Damit kannst du den VBA-Code aufbauen. Zum besseren Verständniss etwas einfacher gecoded:


Sub Test()
'alle Zeilen verstecken
Tabelle1.Rows("5:6").Hidden = True
'Hans Meier darf nur Zeile 5 sehen
If Environ("Username") = "MeierHans" Then Tabelle1.Columns("5:5").Hidden = fasle
'Irmgard Müller darf nur Zeile 6 sehen
If Environ("Username") = "MeierHans" Then Tabelle1.Columns("6:6").Hidden = False
'Hendrik Schmidt, der Chef, darf alles sehen
If Environ("Username") = "SchmidtHendrik" Then Tabelle1.Columns("5:6").Hidden = False
End Sub

Kommst du damit zurecht?
@Hajo: Level lesen - VBA nur mit Rekorder! Da können wir Profis doch mal ein, zwei Selbstverständlichkeiten mehr erklären, oder?
LG,
Klaus M.

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Verschiedene Passwörter

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread