Hello,

I have this code that enables users to change the font colour of
unlocked cells to red of a protected sheet without needing the
password:

Sub Macro2()
With Selection
ActiveSheet.Unprotect Password:="password"
With Selection.Font
.Color = -16776961
End With
End With
ActiveSheet.Protect Password:="password"
End Sub

How can I use this same code but format the background colour of a
cell to red rather then the font colour?

Thanks for all of your help!

You want to use .Interior.ColorIndex = 3

put this in and run to see all the colors if you want.

Sub main()
For i = 1 To 50
Cells(i, 1).Interior.ColorIndex = i
Next
End Sub
--
-John
Please rate when your question is answered to help us and others know what
is helpful.


" wrote:

Hello,

I have this code that enables users to change the font colour of
unlocked cells to red of a protected sheet without needing the
password:

Sub Macro2()
With Selection
ActiveSheet.Unprotect Password:="password"
With Selection.Font
.Color = -16776961
End With
End With
ActiveSheet.Protect Password:="password"
End Sub

How can I use this same code but format the background colour of a
cell to red rather then the font colour?

Thanks for all of your help!

On Nov 20, 11:20 am, John Bundy (remove) wrote:
You want to use .Interior.ColorIndex = 3

put this in and run to see all the colors if you want.

Sub main()
For i = 1 To 50
Cells(i, 1).Interior.ColorIndex = i
Next
End Sub
--
-John
Please rate when your question is answered to help us and others know what
is helpful.



" wrote:
Hello,

I have this code that enables users to change the font colour of
unlocked cells to red of a protected sheet without needing the
password:

Sub Macro2()
With Selection
ActiveSheet.Unprotect Password:="password"
With Selection.Font
.Color = -16776961
End With
End With
ActiveSheet.Protect Password:="password"
End Sub

How can I use this same code but format the background colour of a
cell to red rather then the font colour?

Thanks for all of your help!- Hide quoted text -

- Show quoted text -

Hi John,

Thanks so much for your help,

I have integrated this into the code as follows but I recieve an error
when I do.
I am not sure what I am doing wrong?

Sub Macro2()
With Selection
ActiveSheet.Unprotect Password:="overview"
With Selection.Font
.Interior.ColorIndex = 3
End With
End With
ActiveSheet.Protect Password:="overview"
End Sub

Thanks again!

You should omit the Font reference like:

Selection.Interior.ColorIndex = 3

" wrote:

On Nov 20, 11:20 am, John Bundy (remove) wrote:
You want to use .Interior.ColorIndex = 3

put this in and run to see all the colors if you want.

Sub main()
For i = 1 To 50
Cells(i, 1).Interior.ColorIndex = i
Next
End Sub
--
-John
Please rate when your question is answered to help us and others know what
is helpful.



" wrote:
Hello,

I have this code that enables users to change the font colour of
unlocked cells to red of a protected sheet without needing the
password:

Sub Macro2()
With Selection
ActiveSheet.Unprotect Password:="password"
With Selection.Font
.Color = -16776961
End With
End With
ActiveSheet.Protect Password:="password"
End Sub

How can I use this same code but format the background colour of a
cell to red rather then the font colour?

Thanks for all of your help!- Hide quoted text -

- Show quoted text -

Hi John,

Thanks so much for your help,

I have integrated this into the code as follows but I recieve an error
when I do.
I am not sure what I am doing wrong?

Sub Macro2()
With Selection
ActiveSheet.Unprotect Password:="overview"
With Selection.Font
.Interior.ColorIndex = 3
End With
End With
ActiveSheet.Protect Password:="overview"
End Sub

Thanks again!

P.S. Font is for characters and Interior is for background.

" wrote:

On Nov 20, 11:20 am, John Bundy (remove) wrote:
You want to use .Interior.ColorIndex = 3

put this in and run to see all the colors if you want.

Sub main()
For i = 1 To 50
Cells(i, 1).Interior.ColorIndex = i
Next
End Sub
--
-John
Please rate when your question is answered to help us and others know what
is helpful.



" wrote:
Hello,

I have this code that enables users to change the font colour of
unlocked cells to red of a protected sheet without needing the
password:

Sub Macro2()
With Selection
ActiveSheet.Unprotect Password:="password"
With Selection.Font
.Color = -16776961
End With
End With
ActiveSheet.Protect Password:="password"
End Sub

How can I use this same code but format the background colour of a
cell to red rather then the font colour?

Thanks for all of your help!- Hide quoted text -

- Show quoted text -

Hi John,

Thanks so much for your help,

I have integrated this into the code as follows but I recieve an error
when I do.
I am not sure what I am doing wrong?

Sub Macro2()
With Selection
ActiveSheet.Unprotect Password:="overview"
With Selection.Font
.Interior.ColorIndex = 3
End With
End With
ActiveSheet.Protect Password:="overview"
End Sub

Thanks again!

On Nov 20, 1:54 pm, JLGWhiz wrote:
P.S. Font is for characters and Interior is for background.



" wrote:
On Nov 20, 11:20 am, John Bundy (remove) wrote:
You want to use .Interior.ColorIndex = 3

put this in and run to see all the colors if you want.

Sub main()
For i = 1 To 50
Cells(i, 1).Interior.ColorIndex = i
Next
End Sub
--
-John
Please rate when your question is answered to help us and others know what
is helpful.

" wrote:
Hello,

I have this code that enables users to change the font colour of
unlocked cells to red of a protected sheet without needing the
password:

Sub Macro2()
With Selection
ActiveSheet.Unprotect Password:="password"
With Selection.Font
.Color = -16776961
End With
End With
ActiveSheet.Protect Password:="password"
End Sub

How can I use this same code but format the background colour of a
cell to red rather then the font colour?

Thanks for all of your help!- Hide quoted text -

- Show quoted text -

Hi John,

Thanks so much for your help,

I have integrated this into the code as follows but I recieve an error
when I do.
I am not sure what I am doing wrong?

Sub Macro2()
With Selection
ActiveSheet.Unprotect Password:="overview"
With Selection.Font
.Interior.ColorIndex = 3
End With
End With
ActiveSheet.Protect Password:="overview"
End Sub

Thanks again!- Hide quoted text -

- Show quoted text -

That worked!
Thanks!