Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Inputbox Schriftart oder Farbe verändern

Inputbox Schriftart oder Farbe verändern
28.08.2008 15:32:00
Gunter
Hallo Zusammen,
ich habe eine Inputbox, über die eine Passwortabfrage gesteuert wird. Leider ist das Passwort im Eingabefeld zu sehen. Ist es möglich den Text z.B. in der Schriftart "Wingdings" zu formatieren, oder
die Schriftfarbe in weiss, damit das Passwort nicht mehr zu sehen ist?

Private Sub DF_Click()
Dim Passwort As String
Passwort = InputBox("Geben Sie das Paßwort an: ")
'Passwort lautet XXX
If Passwort = "XXX" Then
Sheets("DF").Visible = True
Sheets("DF").Select
Else
MsgBox ("Passwort Falsch")
Exit Sub
End If
End Sub


Vielen Dank im voraus.
Gruß Gunter

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inputbox Schriftart oder Farbe verändern
28.08.2008 15:44:00
Ramses
Hallo
Erstell dir eine kleine Userform mit einem Textfeld als Passwortabfrage
In der Textfeldeigenschaft "PasswordChar" kannst du das Zeichen festlegen, das anstelle des eingegebenen Textes angezeigt werden soll
Gruss Rainer
AW: Inputbox Schriftart oder Farbe verändern
28.08.2008 15:59:00
Gunter
Hallo Rainer,
das liesst sich gut, da ich jedoch ein VBA Novize bin, oder noch schlechter,
kann ich mir unter der Userform nichts vorstellen.
Kannst du mir da ein Beispiel/Muster zeigen?
Gruß Gunter
Anzeige
AW: BeispielMappe
28.08.2008 16:53:56
hary
Hallo Gunter
Hier ein Beispiel. Tabelle1 ist ausgeblendet. Nach Eingabe des Passwortes, erscheint Tabelle1
Passwort lautet: ja
https://www.herber.de/bbs/user/55001.xls
Gruss hary
AW: BeispielMappe
28.08.2008 17:06:30
Gunter
Danke Hary,
ich schaue morgen mal nach, ob ich das für meine Zwecke verwerten kann. Was ich jedoch gesehen habe,
ist das in der Datei 55001.xls kein VBA Code hinterlegt ist ?
Gruß Gunter
Anzeige
AW: BeispielMappe
28.08.2008 17:22:00
Andi
Hi,
doch, da ist schon Code, und zwar im Modul des UserForm.
Doppelklick auf frm1 unter Formulare, und dann nochmal auf das Form.
Schönen Gruß,
Andi
da ist der Code
28.08.2008 19:16:00
hary
Hallo Gunter
Mappe oeffnen/die Form mit kreuz schliessen/Alt+F11 druecken, dann sieht es so aus:
Userbild
Gruss Hary
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Inputbox Schriftart oder Farbe verändern


Schritt-für-Schritt-Anleitung

Um die Schriftart oder die Farbe einer Inputbox in Excel zu verändern, kannst du eine Userform verwenden. Dies ist besonders nützlich, wenn du ein Passwort abfragen möchtest, aber nicht möchtest, dass die Eingabe sichtbar ist. Folge diesen Schritten:

  1. Öffne den VBA-Editor:

    • Drücke Alt + F11, um den VBA-Editor zu öffnen.
  2. Erstelle eine Userform:

    • Klicke mit der rechten Maustaste auf "VBAProject (deine Datei)" und wähle Einfügen > UserForm.
  3. Füge ein Textfeld hinzu:

    • Ziehe ein Textfeld (TextBox) auf die Userform.
  4. Setze die Eigenschaften:

    • Wähle das Textfeld aus und gehe zu den Eigenschaften. Setze PasswordChar auf ein Zeichen (z.B. *), damit die Eingabe verborgen bleibt.
  5. Füge einen Button hinzu:

    • Füge einen Button (CommandButton) hinzu, um die Eingabe zu bestätigen.
  6. Code hinzufügen:

    • Doppelklicke auf den Button und füge folgenden Code hinzu:
      Private Sub CommandButton1_Click()
      If TextBox1.Value = "XXX" Then
         Sheets("DF").Visible = True
         Sheets("DF").Select
         Unload Me
      Else
         MsgBox "Passwort Falsch"
      End If
      End Sub
  7. Userform aufrufen:

    • Verwende einen weiteren Code in einem Modul, um die Userform zu zeigen:
      Sub ShowPasswordForm()
      UserForm1.Show
      End Sub

Häufige Fehler und Lösungen

  • Fehler: Userform wird nicht angezeigt
    Lösung: Stelle sicher, dass du den Aufruf zum Anzeigen der Userform korrekt in einem Modul platziert hast.

  • Fehler: Passwort wird nicht akzeptiert
    Lösung: Überprüfe, ob das eingegebene Passwort genau mit dem im Code übereinstimmt (z.B. Groß- und Kleinschreibung).


Alternative Methoden

Wenn du keine Userform erstellen möchtest, könntest du auch die folgende Methode anwenden:

  • Verwendung von InputBox:
    • Obwohl die Standard-InputBox nicht anpassbar ist, kannst du dennoch eine einfache Eingabeaufforderung verwenden. Beachte jedoch, dass das Passwort sichtbar bleibt. Diese Methode ist nur für einfache Abfragen geeignet und nicht für sicherheitsrelevante Anwendungen.

Praktische Beispiele

Hier ist ein praktisches Beispiel, um eine Userform mit einem Passwortfeld zu erstellen:

  1. Erstelle eine Userform wie oben beschrieben.
  2. Setze PasswordChar auf * im Textfeld.
  3. Verwende den folgenden Code in CommandButton:
    Private Sub CommandButton1_Click()
       If TextBox1.Value = "ja" Then
           Sheets("Tabelle1").Visible = True
           MsgBox "Zugriff gewährt"
           Unload Me
       Else
           MsgBox "Zugriff verweigert"
       End If
    End Sub

Tipps für Profis

  • Gestalte die Userform ansprechend: Nutze Farben und Schriftarten, um die Userform ansprechend zu gestalten. Dies kann die Benutzererfahrung verbessern.
  • Verwende Validierungsfunktionen: Füge weitere Validierungen hinzu, um sicherzustellen, dass die Eingabe korrekt ist, bevor du das Passwort überprüfst.
  • Speichere Benutzereinstellungen: Überlege, ob du die Eingaben der Benutzer speichern möchtest, um den Zugriff zu erleichtern.

FAQ: Häufige Fragen

1. Wie kann ich die InputBox anpassen?
Die Standard-InputBox in VBA kann nicht angepasst werden. Für Anpassungen ist die Verwendung einer Userform notwendig.

2. Kann ich andere Schriftarten verwenden?
Ja, in einer Userform kannst du die Schriftart des Textfelds ändern, indem du die Font-Eigenschaft in den Eigenschaften der Userform anpasst.

3. Was mache ich, wenn ich kein VBA kann?
Es gibt viele Online-Ressourcen und Tutorials, die dir helfen können, die Grundlagen von VBA zu lernen. Du kannst auch in Excel-Foren nach weiteren Beispielen suchen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige