loop thru objects 1

[rgandy]

hi all,
what is the syntax for looping thru all checkboxes, dropdownlists, etc on a worksheet to change their locked property? (i want them to be unlocked?

i tried the following

for each checklock in oleobjects
checklock.locked = false
next checklock

returned a type mismatch...please let me know thanks!

 

[rmikesmith]

Try this:

Sub LoopWorksheetControls()
Dim oCtrl As OLEObject

   With ActiveSheet
     For Each oCtrl In .OLEObjects
       oCtrl.Locked = True
     Next oCtrl
   End With
   
End Sub

Regards,
Mike