Set cell color : Cell Format « Excel « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Excel
  3. Cell Format

Set cell color

 

Sub Set_Protection()
    On Error GoTo errorHandler
    Dim myDoc As Worksheet
    Dim cel As Range
    Set myDoc = ActiveSheet
    myDoc.Unprotect
    For Each cel In myDoc.UsedRange
        cel.Locked = True
        cel.Font.ColorIndex = xlColorIndexAutomatic
    Next
    myDoc.Protect
    Exit Sub
    errorHandler:
    MsgBox Error
End Sub








Related examples in the same category

1.the font color of all cells in the active worksheet is set to red
2.Sets just the color of cell C1 to red.
3.Make the font in number cell bold
4.Set data to cell D1 of the selected worksheet. And format its contents with color and borders.
5.Color cells
6.Removes all borders for the selected cells
7.Make a Cell font bold based on the cell value
8.Coloring all negative cells' backgrounds red
9.Color multiple-column ranges
10.Makes cell background red if the value is negative