Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Passwort

Forumthread: Passwort

Passwort
19.06.2007 12:52:38
Raphael
Hallo zusammen!
Ich habe eine Frage:
Ich habe in einer ExcelMappe verschiedene Sheets auf die nur bestimmte Abteilungen zugreifen dürfen!
Wie mache ich das am Besten?
Mein Vorschlag ist es auf einem "Startsheet" für jede Abteilung(Sheet) einen Comand Button zu hinterlegen, wenn man jetzt auf den Command Button1 drückt, erscheint eine UserForm in der ich mein Passwort eingeben muss um auf das Sheet: Abteilung 1 zu gelangen!
geht das so wie ich mir das vorstelle?
und wie würde das Macro für die Passwort abfrage lauten?
Danke
Für eure Hilfe!
MFG
raphael

Anzeige

22
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Passwort
19.06.2007 13:14:07
Hajo_Zi
Hallo Raphael,
warum CommandButton, Frage doch beim Open mit Environ("username") den benutzer ab und schalte die Tabellen frei.
Gruß Hajo

AW: Passwort
19.06.2007 13:17:00
Raphael
Hallo Hajo
könntest du das bitte erklären, ich weis nciht ganz was du damit meinst!
Danke für deine erneute Hilfe!
MFg
raphael

Anzeige
AW: Passwort
19.06.2007 13:20:00
Hajo_Zi
Hallo Raphael,

Option Explicit
Private Sub Workbook_Open()
Select Case Environ("username")
Case "Maier", "Schulz"
Worksheets("Tabelle1").Unprotect "Passwort"
Case "Paul"
Worksheets("Tabelle2").Unprotect "Passwort2"
End Select
End Sub


Gruß Hajo

Anzeige
AW: Passwort
19.06.2007 13:31:29
Raphael
Danke für das macro!
Das ist mir ja schon fast peinlich! aber ich habe nochmals eine frage:
Das MAcro alleine ist ja nicht alles!
Wo/wie hinterlege ich die Passwort eingabe?
Danke für deine Hilfe!
MFG
rapahel

AW: Passwort
19.06.2007 13:33:33
Hajo_Zi
Hallo Rapahel,
die Passwörter sind im Code hinterlegt. Das VBA Projekt sollte geschützt werden, Obwohl in Excel nichts sicher ist.
Gruß Hajo

Anzeige
AW: Passwort
19.06.2007 13:40:28
Raphael
Das bedeutet also das ich nur dein Macro in meine VBA Umgebung kopieren muss, und dann sollte es klappen?
So einfach ist es doch nicht oder? denn bei mir funkt es nciht!?
Danke

AW: Passwort
19.06.2007 13:42:15
Rudi
Hallo,
Code muss in DieseArbeitsmappe.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Passwort
19.06.2007 13:43:00
Raphael
Danke! aber da steht er bei mir ja!

AW: Passwort
19.06.2007 13:49:30
Hajo_Zi
Hallo Raphael,
Du hast die Namen und Passwörter angepast? Dann solltest Du mal die Datei hochladen.
Gruß Hajo

AW: Passwort
19.06.2007 13:56:47
Raphael
also hier im anhang mal ein Test!
bei den Passwörter habe ich mal deine "Vorschläge" beibehalten, das kann ich ja nacher noch ändern.
Hoffe das sich das jetzt klärt, ich möchte dich nicht noch den ganzen Nachmittag damit nerven.
Danke
https://www.herber.de/bbs/user/43374.xls

Anzeige
AW: Passwort
19.06.2007 14:06:52
Hajo_Zi
Hallo Raphael,
bei mir läuft es durch, da mein Anmeldenamen im Netz aber nicht eingetragen ist wird keine Tabelle erneut freigeschaltet. In Deiner Datei ist keine Tabelle geschützt, darum bräuchte man dies Makro dort nicht.
Gruß Hajo

Anzeige
AW: Passwort
19.06.2007 14:12:00
BG
Hi Raphael
test mal dies:

Private Sub Workbook_Open()
Select Case Environ("username")
Case "Maier", "Schulz"
Worksheets("Sheet1").Unprotect "Passwort"
Case "Paul"
Worksheets("Sheet2").Unprotect "Otto"
Case Else
Worksheets("Sheet1").Protect "Passwort"
Worksheets("Sheet2").Protect "Otto"
End Select
End Sub


Grüsse BG

Anzeige
AW: Passwort
19.06.2007 14:22:19
Raphael
Danke dir!
Ich weis aber noch nciht ganz in welchem Umfang ich meine Sheets schützen muss damit es bei mir funktioniert! den es darf ja keiner das sheet 1 sehen wenn er nciht das Paswort für dieses Hat!
Danke

AW: Passwort
19.06.2007 14:25:07
BG
Hi Raphael
von sehen war hier noch nicht die Rede!
Aber gib doch mal 2 oder 3 Usernamen preis, dann bau ich dir ein kleines Beispiel!
Gruss BG

Anzeige
AW: Passwort
19.06.2007 14:39:01
Raphael
Danke dir! irgendwie bekomme ich das alleine nicht hin!
Passwörter sind egal. benenne sie erstmal mit 1234 ; 5678; 910
Danke dir!

AW: Passwort
19.06.2007 14:44:00
BG
https://www.herber.de/bbs/user/43377.xls
Hi Raphael
hier brauchst Du keine Passwörter,
beim Öffnen wird der User abgefragt und dann nur die Blätter eingeblendet, die derjenige sehen darf. Du kannst diese Blätter aber selber einblenden (im VBA-Editor) .
Noch Fragen?
Gruss BG

Anzeige
AW: Passwort
19.06.2007 14:46:14
BG
Hi Raphael
natürlich musst du das Makro entsprechend (Usernamen) anpassen!!!!

AW: Passwort
19.06.2007 14:54:04
Raphael
DANKE DIR!!!!!
Danke für die Hilfe!
und sorry das es so lange gedauert hat!
Danke!

AW: Passwort
19.06.2007 14:55:00
BG
na Hauptsache, du kommst klar damit! und es hilft dir!
Gruss BG

Anzeige
AW: Passwort
19.06.2007 14:31:16
Hajo_Zi
Hallo Raphael,
von sichtbar war bisher nicht die Rede das ist .visible=True und nicht .unprotect "Passwort"
Gruß Hajo

AW: Passwort
19.06.2007 13:15:00
Rudi
Hallo,

Sub passwort()
Msgbox "Schau in die Recherche!"
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Passwort
19.06.2007 13:21:00
Tom
Hallo Raphael,
du kannst die jeweiligen Passwörter entweder als Konstanten in dein Programm einbauen, oder aber in separaten Textdateien speichern.
In der Userform eine Textbox einbauen mit
TextBox1.PasswordChar = "*"
Und anschließend eine If-Abfrage im CommandButton_Click-Ereignis:
If not TextBox1.Text = "Passwort" then exit sub
... Anweisung zum öffnen der Tabelle
Gruß
Tom
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige