alle ontgrendelde cellen selecteren

[Meurik]

Ik heb een vrij omvangrijk aanvraagformulier met invulcellen en verscheidene besturingselementen gemaakt. Dit werkblad wordt beveiligd waarbij het toegelaten is om de ontgrendelde cellen (invulcellen) te selecteren.
Kunnen binnen een bepaald bereik (bv A1:Z1000), via bv een VBA-code, alle niet-beveiligde (=ongrendelde) cellen geselecteerd worden (om nadien de inhoud te wissen) ?
Kunnen binnen datzelfde bereik alle besturingselementen op "false" gezet worden zonder dat elk besturingselement specifiek moet vernoemd worden in de VBA-code ?
Uiteindelijk bedoeling is dus dat de inhoud gewist wordt van alle cellen die ingevuld kunnen/mogen worden en alle besturingselementen op false worden gezet.

 

[ExcelAmateur]

Meurik,

Om de cellen leeg te maken.
B.V.B.

Sub CellenLeegmaken()
  Range("B3,B11,C7,E14").ClearContents
End Sub

 

[Warme bakkertje]

Sub tst()
    For Each cl In Range("A1:Z1000")
       If cl.Locked = False Then cl.ClearContents
    Next
End Sub

Over welke besturingselementen spreken we hier ? Formulie-r of ActiveX-elementen ?

 

[Meurik]

Bedankt voor reactie maar het was net de bedoeling om het leegmaken van alle ontgrendelde cellen de vereenvoudigen via een VBA-code (indien mogelijk uiteraard) ipv elke cel indidueel te moeten invoeren via VBA-code.
Mocht het niet mogelijk zijn dan zal ik uiteraard genoodzaakt zijn om op jou manier elke cel apart in te voeren.
Toch bedankt !

 

[Meurik]

xc

Aan warme bakkertje
Bedankt
Dat is inderdaad wat ik zocht (mbt ontgrendelde cellen).
De besturingselementen zijn activeX-besturingselementen (voornamelijk selectievakjes en keuzevakjes)

 

[Warme bakkertje]

Sub tst()
Dim objX As Object
With ActiveSheet
    For Each objX In .OLEObjects
        If TypeName(objX.Object) = "CheckBox" Or TypeName(objX.Object) = "OptionButton" Then
            objX.Object.Value = False
        End If
    Next
End With
End Sub

 

[Meurik]

aan Warme bakkertje
Ga dit zo dadelijk eens implementeren.
Hartelijk dank voor jou bijdrage