Passwort

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm InputBox MsgBox
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

https://www.herber.de/bbs/user/19192.xls

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
https://www.herber.de/bbs/user/19209.xls


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

Beiträge aus den Excel-Beispielen zum Thema "Passwort"