Hi all,
I have some code that members here helped with a while ago, this is attached to a small userform and it inputs text into a cell with a checkbox in the cell to the right:
Code
With Worksheets("Sheet1")
lastrow = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
.Cells(lastrow, "B").Value = Me.txtServiceName.Text
With .Cells(lastrow, "C")
Set cb = ActiveSheet.CheckBoxes.Add(.Left, .Top, .Width, .Height)
End With
With cb
.Characters.Text = ""
.Value = xlOff
'Link to col D
.LinkedCell = "$D$" & lastrow
.Display3DShading = False
End With
End With
Display More
I'm working on protecting the sheet and I think I'm having problems because I've discovered that checkboxes are locked by default.
Is there any way that when checkboxes are added with the above code, that the properties can be set so that they are unlocked?
Thanks,
-Adam