J
jsa1981
I have put a checkbox from the Control toolbox onto my page.
I want to empty, lock, and grey out a cell if the checkbox is NOT
checked.
I have done the emptying, and the locking, but I need help with the
greying out.
What I need is not a simple colour, but a pattern. Secifically, when
using Excel 2000, I need the following color:
Go to format, cells.
Go to the patterns tab.
In the Pattern dropdownlist, I want the bottom-right pattern (light
diagonal crosses). I also want the lightest shade of grey from the same
dropdownlist.
Can anyone help me find how I can do this? Here is my code so far.
Private Sub CheckBox1_Click()
CheckBox4.Value = False
CheckBox5.Value = False
CheckBox6.Value = False
If CheckBox1.Value Then
CheckBox4.Enabled = True
CheckBox5.Enabled = True
CheckBox6.Enabled = True
Range("L61:T61").Value = ""
Range("L61:T61").Locked = False
Else
CheckBox4.Enabled = False
CheckBox5.Enabled = False
CheckBox6.Enabled = False
Range("L61:T61").Value = ""
Range("L61:T61").Locked = True
Range("L61:T61").Interior.Pattern = ""
End If
End Sub
I want to empty, lock, and grey out a cell if the checkbox is NOT
checked.
I have done the emptying, and the locking, but I need help with the
greying out.
What I need is not a simple colour, but a pattern. Secifically, when
using Excel 2000, I need the following color:
Go to format, cells.
Go to the patterns tab.
In the Pattern dropdownlist, I want the bottom-right pattern (light
diagonal crosses). I also want the lightest shade of grey from the same
dropdownlist.
Can anyone help me find how I can do this? Here is my code so far.
Private Sub CheckBox1_Click()
CheckBox4.Value = False
CheckBox5.Value = False
CheckBox6.Value = False
If CheckBox1.Value Then
CheckBox4.Enabled = True
CheckBox5.Enabled = True
CheckBox6.Enabled = True
Range("L61:T61").Value = ""
Range("L61:T61").Locked = False
Else
CheckBox4.Enabled = False
CheckBox5.Enabled = False
CheckBox6.Enabled = False
Range("L61:T61").Value = ""
Range("L61:T61").Locked = True
Range("L61:T61").Interior.Pattern = ""
End If
End Sub