macro wijzigen

[Ronalddus]

ik heb een bestand waarbij mensen zelf een rooster kunnen maken/aanvragen.
hier in zit een macro verwerkt waarbij je een dienst kan markeren deze is dan vetgedrukt.
Nu zou ik graag willen dat deze vetgedrukt blijft maar ook anders van kleur is (Rood) wie kan mij hierbij helpen??
Dit is de macro code waar het om gaat:

Sub MarkeerVet()
Application.ScreenUpdating = False
ActiveSheet.Unprotect

With ActiveCell
.Font.Bold = True
End With
ActiveSheet.Protect
End Sub

en dit de macro code om de wens weer ongedaan te krijgen:

Sub MarkeerOntVet()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
With ActiveCell
.Font.Bold = False
End With
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub

grt Ronald

 

[Roncancio]

Sub MarkeerVet()
Application.ScreenUpdating = False
ActiveSheet.Unprotect

With ActiveCell
.Font.Bold = True
.Font.Color = vbRed
End With
ActiveSheet.Protect
End Sub

en dit de macro code om de wens weer ongedaan te krijgen:

Sub MarkeerOntVet()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
With ActiveCell
.Font.Bold = False
.Font.Color = 0
End With
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub

Met vriendelijke groet,


Roncancio

 

[Ronalddus]

Sub MarkeerVet()
Application.ScreenUpdating = False
ActiveSheet.Unprotect

With ActiveCell
.Font.Bold = True
.Font.Color = vbRed
End With
ActiveSheet.Protect
End Sub

en dit de macro code om de wens weer ongedaan te krijgen:

Sub MarkeerOntVet()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
With ActiveCell
.Font.Bold = False
.Font.Color = 0
End With
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub

Met vriendelijke groet,


Roncancio

Bedankt het is gelukt
grt Ronald

 

[Roncancio]

Bedankt het is gelukt
grt Ronald

Graag gedaan.
Gaarne de vraag op opgelost zetten (onderaan de pagina).
Bvd.

Met vriendelijke groet,


Roncancio

 

[snb]

Dit kan ook in 1 macro
Het uitschakelen van de screenupdating is hier niet nodig.

Sub Vet_nietVet()
  ActiveSheet.Unprotect
  With ActiveCell.Font
    .Bold = Not .bold
    .color=iif(.color=0,vbRed,0)
  End With
  ActiveSheet.Protect
End Sub