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"