Herbers Excel-Forum - das Archiv

Passwort

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Passwort
von: Susi

Geschrieben am: 04.03.2005 09:59:22
Guten Morgen,
ich möchte beim unten genannten Code (Schaltfläche) beim
Eingabefenster, statt des Kennwortes das nur XXXXXX
angezeigt werden.
Ich weiss das dies in einer UserForm machbar ist
doch ich habe in diesem Bereich keine Kentnisse.

Sub PP1()
Application.ScreenUpdating = False
Dim sWord As String
Do While InputBox("Passwort:") <> "Kennwort"
Beep
If MsgBox("Passwort falsch!", vbOKCancel) = vbCancel Then End
Loop
MsgBox "Paßwort OK!"
End Sub

Kann mir bitte mit diesem Problem jemand weiterhelfen.
Danke
Susi
Bild

Betrifft: AW: Passwort
von: Hajo_Zi

Geschrieben am: 04.03.2005 10:04:53
Hallo Susi,
es geht auch in der Inputbox, ein wenig kompliziert
Inputbox versteckt https://www.herber.de/forum/archiv/332to336/t334923.htm am Ende im Beitrag.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

Homepage

Bild

Betrifft: AW: Passwort
von: Susi
Geschrieben am: 04.03.2005 10:31:16
Hallo Hajo,
kannst du Dir einmal unten genanntes File anschauen
ich komme nicht klar

Die Datei https://www.herber.de/bbs/user/19192.xls wurde aus Datenschutzgründen gelöscht

Vielen Dank im vorraus
Susi
Bild

Betrifft: AW: Passwort
von: Hajo_Zi
Geschrieben am: 04.03.2005 10:46:44
Hallo Susi,
leider habe ich jetzt keine Zeit um mir Code anzusehen.
Gruß Hajo
Bild

Betrifft: AW: Passwort
von: Hajo_Zi
Geschrieben am: 04.03.2005 16:22:33
Hallo Susi,
wen DU den Code nicht überniemst geht es auch nicht.
Gruß Hajo

Die Datei https://www.herber.de/bbs/user/19209.xls wurde aus Datenschutzgründen gelöscht

Bild

Betrifft: AW: Passwort
von: Susi

Geschrieben am: 05.03.2005 16:00:32
Hallo Hajo,
das ist Super
da ich ja leider wenig Ahnung von VBA habe weiss ich jetzt
nicht wo ich weitere Aktionen durchführen kann.
z.B. Range("A1:A10).Select
wo muss ich diese Aktion eintragen, aber nur wenn das Passwort stimmt.
mit dem Rest müsste ich dann klar kommen.
https://www.herber.de/bbs/user/19239.xls
Gruss
Susi
Bild

Betrifft: AW: Passwort
von: Hajo_Zi

Geschrieben am: 05.03.2005 16:07:22
Hallo Susi,
ich habe jetzt nicht die Datei runtergeladen.
In VBA kann zu 99% auf select, Activate usw. verzichtet werden.
Sub PP1()
If PasswortHolen("Geben Sie das Passwort ein") <> "Test" Then
Beep
If MsgBox("Passwort falsch!", vbOKCancel) = vbCancel Then End
Else
' Deine weiteren Aktionen
End If
'    Dim sWord As String
'    Do While InputBox("Passwort:") <> "Test"
'        Beep
'        If MsgBox("Passwort falsch!", vbOKCancel) = vbCancel Then End
'    Loop
'    MsgBox "Paßwort OK!"
End Sub

Gruß Hajo
Bild

Betrifft: AW: Danke alles klar
von: Susi
Geschrieben am: 05.03.2005 16:25:18
Hallo Hajo,
danke für deine ausführliche Hilfe,
ich denke jetzt komme ich klar.
Ein schönes Wochenende
Gruss
Susi
Bild

Betrifft: AW: Passwort
von: Susi

Geschrieben am: 05.03.2005 17:45:10
Hallo Hajo,
doch noch ein einziges kleines Problemchen
ich möchte jetzt noch das ab Tabellenblatt Nr.7 (ca. 30 Blätter)
alle Spalten die ich vorher schon ausgeblendet habe wieder
eingeblendet werden.
Wie unten oder so ähnlich!!!!!!!!!!!!!!!!!!!!!
Sub PP1()
If PasswortHolen("Geben Sie das Passwort ein") <> "Test" Then
Beep
If MsgBox("Passwort falsch!", vbOKCancel) = vbCancel Then End
Else
For blatt = 2 To Sheets.Count
Sheets(blatt).Unprotect password:="Susi"
Next
'   Sheets("NKor1").Select
'   Cells.Select
'   Selection.EntireColumn.Hidden = False
'   Range("A10").Select
'   Sheets("NFGo1").Select
'   Cells.Select
'   Selection.EntireColumn.Hidden = False
'   Range("A10").Select
'   Sheets("RTE52").Select
'   Cells.Select
'   Selection.EntireColumn.Hidden = False
'   Range("A10").Select
'   Sheets("SZUr52").Select
'   Cells.Select
'   Selection.EntireColumn.Hidden = False
'   Range("A10").Select
End If
End Sub


Gruss
Susi
Bild

Betrifft: AW: Passwort
von: Hajo_Zi

Geschrieben am: 05.03.2005 18:24:37
Hallo Susi,
Dein Code müßte doch eigentlich gehen nur das er ein wenig viel selec enthält.
Sub PP1()
If PasswortHolen("Geben Sie das Passwort ein") <> "Test" Then
Beep
If MsgBox("Passwort falsch!", vbOKCancel) = vbCancel Then End
Else
For blatt = 7 To Sheets.Count
With Sheets(blatt)
.Unprotect Password:="Susi"
.Cells.EntireColumn.Hidden = False
End With
Next
End If
'    Dim sWord As String
'    Do While InputBox("Passwort:") <> "Test"
'        Beep
'        If MsgBox("Passwort falsch!", vbOKCancel) = vbCancel Then End
'    Loop
'    MsgBox "Paßwort OK!"
End Sub

Gruß Hajo
Bild

Betrifft: AW: Finish
von: Susi

Geschrieben am: 05.03.2005 18:49:19
Hallo Hajo,
danke mein Progi ist "Fertig".
nett von Dir das Du mir so geholfen hast.
Gruss
Susi
 Bild
Excel-Beispiele zum Thema "Passwort"
Passwort vergeben und bei CheckBox-Aktivität abfragen Beim Öffnen der Arbeitsmappe Passwort abfragen
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen Passwortabfrage mit ShortCut-Aufruf
Aktivierung von Berechnungen bei gültiger Passworteingabe Blattschutz mit und ohne Passwort aufheben und setzen
Automatische Passworteingabe in Internet-Formular Masterlistsystem mit Passwortabfrage bei Blattauswahl