Thread: Disabling shapes and controls
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Ron de Bruin Ron de Bruin is offline
external usenet poster
  
Posts: 11,123
Default Disabling shapes and controls
Hi Jonathan

Try this

On Error Resume Next
ActiveSheet.DrawingObjects.Visible = True
ActiveSheet.DrawingObjects.Enabled = True
On Error GoTo 0

See also
http://www.rondebruin.nl/controlsobjectsworksheet.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jonathan Orgel" wrote in message ...
How do I disable/lock all controls and shapes on a worksheet. Or if you how do I disable a specific checkbor or textbox.

I tried the code below but this just 'disables' the buttons. Checkboxes and textboxes can still be changed.

For Each S In Sheet.Shapes
S.OnAction = ""
S.Locked = True
Next
For Each V In Sheet.OLEObjects
V.Enabled = False
Next


Thanks,

Jonathan Orgel



Reply With QuoteReply With Quote