Inhoud verwijderen onbeveiligde cellen

[tbiekens]

Beste mensen,

Ik heb een beveiligd tabblad met een groot aantal onbeveiligde cellen waarvan ik graag in één handeling de inhoud wil wissen. Ik ben per toeval op Helpmij tegen een VBA Clausule aangelopen die voor de oplossing zou kunnen zorgen maar ik kan hem nergen meer vinden.

Heeft iemand en oplossing voor dit probleem?

mvg Theo Biekens

 

[snb]

Test eens met:

sheets(1).cells.clearcontents

 

[tbiekens]

Maar dat was nu juist het probleem Het gehele blad is beveiligd en ik zoek nu een manier om in één keer van alle onbeveiligde cellen de inhoud te wissen. Ik zoek dus een clausule die van een werkblad alle onbeveiligde cellen opzoekt en vervolgens de inhoud verwijdert.

Niettemin hartelijk dank voor het meedenken


groet

theo

 

[Warme bakkertje]

Sub LedigOnbeveiligd()
    On Error Resume Next
    ActiveSheet.UsedRange = ""
    On Error GoTo 0
End Sub

Mvg

Rudi

 

[snb]

Hoezo probleem ?
De beveiligde cellen kunnen niet leeggemaakt worden, de niet-beveilgde wel.
Daarmee heb je dan toch automatisch alle niet-beveiligde cellen geleegd ?

 

[tbiekens]

Opgelost

Ha die warme bakker,

Het werkt perfect! Ben er erg mee geholpen!


Groet

Theo