ich suche ein Makro, alle vorhandenen OptionButton selectieren und den
Schutz rausnehmen.
Gegoogelt noch nichts gefunden.
gruß
kurt b
Sub aaa()
Dim o As OLEObject
For Each o In Sheets(1).OLEObjects
If o.progID = "Forms.OptionButton.1" Then o.Locked = False
Next
End Sub
GrußSub t()
ReDim ar(0) As Variant
Dim i As Integer
Dim o As OLEObject
For Each o In Sheets(1).OLEObjects
If o.progID = "Forms.OptionButton.1" Then
o.Locked = False
ReDim Preserve ar(i)
ar(i) = o.Name
i = i + 1
End If
Next o
ActiveSheet.Shapes.Range(ar).Select
End Sub