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

Passwort

Passwort
04.03.2005 09:59:22
Susi
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

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Passwort
04.03.2005 10:04:53
Hajo_Zi
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

Anzeige
AW: Passwort
04.03.2005 10:31:16
Susi
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
AW: Passwort
04.03.2005 10:46:44
Hajo_Zi
Hallo Susi,
leider habe ich jetzt keine Zeit um mir Code anzusehen.
Gruß Hajo
AW: Passwort
04.03.2005 16:22:33
Hajo_Zi
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

AW: Passwort
05.03.2005 16:00:32
Susi
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
Anzeige
AW: Passwort
05.03.2005 16:07:22
Hajo_Zi
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
AW: Danke alles klar
05.03.2005 16:25:18
Susi
Hallo Hajo,
danke für deine ausführliche Hilfe,
ich denke jetzt komme ich klar.
Ein schönes Wochenende
Gruss
Susi
Anzeige
AW: Passwort
05.03.2005 17:45:10
Susi
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
Anzeige
AW: Passwort
05.03.2005 18:24:37
Hajo_Zi
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
Anzeige
AW: Finish
05.03.2005 18:49:19
Susi
Hallo Hajo,
danke mein Progi ist "Fertig".
nett von Dir das Du mir so geholfen hast.
Gruss
Susi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige