Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

Buchstabenfarbe bei VBA Makro Code u. mit Passwort

Betrifft: Buchstabenfarbe bei VBA Makro Code u. mit Passwort von: Jasmin
Geschrieben am: 16.08.2004 13:37:08

Hi ihr Exceljunkies,

habe folgendes Problem undzwar habe ich eine VBA Code mit dem ich einen Buchstaben oder Wort in die Aktive Zelle anklicken kann.
Jetzt möchte ich gerne das wenn ich den Buchstaben einfüge das dieser in Blau gefärbt und in Fett Schrift wird.

Sub Genehmigt()
    Dim Zelle As Range
    For Each Zelle In Selection
    If Zelle.Locked = False Then Zelle = "Genehmigt"
    Next Zelle
End Sub


Dieser Code soll aber nicht von allen ausgeführt werden nur von bestimmten benutzern ist das möglich das man bei Aktivierung des VBA Codes ein Passwort verlangt um dieses Auszuführen und das sich eben das genehmigt auf Blau und Fett ändert. Hoffe habe meine Problem gut genug erklärt.

Liebe Grüße und Dank im Vorraus

Eure Jasmin
  


Betrifft: AW: Buchstabenfarbe bei VBA Makro Code u. mit Passwort von: Bertram
Geschrieben am: 16.08.2004 13:48:08

Hi Jasmin, weiß nicht ob ich dich richtig verstanden habe. Meinst du so:
Wenn Passwort = xxx, dann...


Sub Genehmigt()
Dim Zelle As Range
Dim Passwort As String
    
Passwort = InputBox("Passwort")
If Passwort <> "xxx" Then Exit Sub
For Each Zelle In Selection
    If Zelle.Locked = False Then Zelle.Value = "Genehmigt"
    Zelle.Font.Bold = True
    Zelle.Font.ColorIndex = 5
    Next Zelle
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß

Bertram


  


Betrifft: Bertram klapp supi nur ein kleines Problem noch von: Jasmin
Geschrieben am: 16.08.2004 14:08:06

Hi Bertram,
klappt super damit ,habe nur ein Problem " klitzekleines " " sorry "
habe vergessen zu sagen das ein Blattschutz auf dem Blatt ist und dann erscheint eine Fehlermeldung. Sorry hatte ich vergessen zu erwähnen.

Liebe Grüß Deine Jasmin


  


Betrifft: AW: Bertram klapp supi nur ein kleines Problem noch von: Bertram
Geschrieben am: 16.08.2004 14:21:13

Hallo Jasmin,

bei mir war auch noch ein kleiner Fehler drin:-)



Sub Genehmigt()
Dim Zelle As Range
Dim Passwort As String

ActiveSheet.Unprotect
Passwort = InputBox("Passwort")
If Passwort <> "xxx" Then Exit Sub
For Each Zelle In Selection
    If Zelle.Locked = False Then
        Zelle.Value = "Genehmigt"
        Zelle.Font.Bold = True
        Zelle.Font.ColorIndex = 5
    End If
Next Zelle
ActiveSheet.Protect
End Sub


     Code eingefügt mit Syntaxhighlighter 2.5

Gruß
Bertram


  


Betrifft: Danke so klappt es. oT. von: Jasmin
Geschrieben am: 16.08.2004 14:29:06

Vielen Vielen Dank ;-)

Liebe Grüße Jasmin


 

Beiträge aus den Excel-Beispielen zum Thema "Buchstabenfarbe bei VBA Makro Code u. mit Passwort"