Makro Passwort als Stern anzeigen

[schwarzeteufel]

Ich habe eine Makro Tabelle Inhalt zu löschen vorher Passwort abfrage.
Ich bekomme es nicht hin. Das Passwort abfrage statt Zahlen mir die Stern angezeigt wird.
Ich will es nicht in User Form sondern sowie unten angegeben als Makro.
Kann mir dabei jemand helfen.

Sub Löschen_Tabelleninhalte()
Dim strPW As String
Dim strEingabe As String
strPW = "123"
strEingabe = InputBox("Diese Funktion ist nur für den Entwickler.Eingabe des Passwortes:", "Passwort - Abfrage")
If strPW <> strEingabe Then
MsgBox "der Vorgang wurde unterbrochen (wurde das Passwort richtig eingegeben?)", vbExclamation
Else
'------------------------------------------------
Range("A6:A276").ClearContents
Range("C6:D276").ClearContents
Range("F6:G276").ClearContents
Range("I6:M276").ClearContents
'------------------------------------------------
End If
End Sub

[Klaus-Dieter]

Hallo,

Ich will es nicht in User Form sondern sowie unten angegeben als Makro.

ich will, dass sofort wieder Sommer ist. *)

*) Excel muss sich nicht uns anpassen, sondern wir müssen das nehmen, was Excel bietet. Bei UserForms gibt es eine Möglichkeit, Sterne statt der Normalanzeige zu verwenden. Bei Inputboxen eben nicht.

[RPP63]

Moin!
Nimm ein Userform,
Textbox, PasswordChar setzen.

Allerdings bin ich mir mal wieder ziemlich sicher, dass hier eher eine Vorlage (.xltm oder .xltx) geboten scheint.

Gruß Ralf

[schwarzeteufel]

Ich Weiß nicht wie ich meine Makro Tabellen Inhalt löschen mit  Userform Passwort verbinden soll.
Ich habe im Internet seit zwei Tage versuche ich was passendes zu finden keine Erfolg.

Gibst da so eine Beispiel Mappe wenn ich meine Makro ausführen will da erst die Userform Passwortabfrage erscheint
danach die Makro ausgeführt wird.

[Warkings]

Ich schliesse mich RPP63 an, nimm eine Userform.

Grundsätzlich geht das schon! Und google liefert
https://stackoverflow.com/a/64827566/6600940
https://wellsr.com/vba/2016/excel/mask-y...-inputbox/

Nicht für ungut, aber es wird Deine aktuelle Kompetenz übersteigen

[schauan]

Hallöchen,

Nicht für ungut, aber es wird Deine aktuelle Kompetenz übersteigen

... warum dann statt des UF so komplizierte Vorschläge statt einer Lösung?


****************************************

Variante1:
mit dem UF ginge zwar alles zusammen, aber auch einfach so:


Füge ein Userform mit einer Textbox und einem Commandbutton ein.
Der Textbox gibst Du bei der Eigenschaft PasswordChar z.B. einen Stern mit

Als Code fügst Du das ein:

Private Sub CommandButton1_Click()
strEingabe = TextBox1.Text
Unload Me
End Sub

****************************************

Schreibe über Dein Makro

Public strEingabe$

in Deinem Makro lässt Du dann Dim strEingabe weg.

Dann änderst Du

strEingabe = InputBox("Diese Funktion ist nur für den Entwickler.Eingabe des Passwortes:", "Passwort - Abfrage")

Userform1.Show


Das war's.


****************************************

Variante2:

Für "alles zusammen" könntest Du Deinen Code ins Click-Makro vom CommandButton1 übernehmen.

Du kannst dann diese Zeile
strEingabe = InputBox("Diese Funktion ist nur für den Entwickler.Eingabe des Passwortes:", "Passwort - Abfrage")

weglassen und vergleichst darunter statt
If strPW <> strEingabe Then

mit

If strPW <> TextBox1.Text Then

[Warkings]

Hallöchen,


... warum dann statt des UF so komplizierte Vorschläge statt einer Lösung?


****************************************

Dem würde ich widersprechen, im ersten Link ist auch die Userform-Lösung enthalten. Dein Beitrag ist daher im Grunde überflüssig.

[RPP63]

Ich komme noch mal auf meinen Einwand zurück, dass eine Vorlagendatei sinnvoller erscheint.
Wenn ich den Code des TE sehe:

Range("A6:A276").ClearContents
Range("C6:D276").ClearContents
Range("F6:G276").ClearContents
Range("I6:M276").ClearContents


deutet doch alles darauf hin, dass ein "Formular" per Passwort auf den Ursprungszustand zurück gesetzt werden soll.

[schauan]

Hi Ralf,

ich sehe da erst mal nix, was an den 4 Bereichsleerungen durch eine Beispieldatei anders werden sollte? Mir fällt da gerade nix ein Die könnte man ja einfach so erzeugen - jedenfalls bekommt man öfter was in der Art

Sub test()
Range("A6:A276").Value = "A"
Range("C6:D276").Value = "CD"
Range("F6:G276").Value = "FG"
Range("I6:M276").Value = "IM"
End Sub

[RPP63]

Du hast doch eine Brille als Avatar, André!
Gut, die hat nur ein Glas.
Deshalb sei Dir verziehen, dass ich nicht von einer Beispieldatei schrieb, sondern den Vorschlag machte, dass eine Vorlagendatei (.xltx) eine Makrolösung obsolet machen dürfte.
:21: :05: