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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen