Onbeveiligde cellen wissen

[Oude leerling]

Bij een van de opgeloste vragen vond ik onderstaande macro als een oplossing die werkte.
Ik heb het geprobeerd maar bij mij werkt het niet.
Kunt u mij vertellen waar dat in zit en een oplossing vinden die wel werkt.

On Error Resume Next
ActiveSheet.UsedRange = ""
On Error GoTo 0

Vriendelijke groet Jaap

 

[gast0660]

Hoi,
met dit stukje code mischien?

Sub ClearUnlockedCells()
  Application.FindFormat.Clear
  Application.FindFormat.Locked = False
  Cells.Replace "*", "", SearchFormat:=True
  Application.FindFormat.Clear
End Sub

 

[Oude leerling]

Ja , dat werkt wel.
Weet je ook waarom dat andere niet werkte?

 

[arnoo7]

Hoi oude leerling,

Bij mij werkt jouw code wel hoor.

Groet Arno

 

[HSV]

Als je het blad beveiligd, doe dat dan met 'UserinterfaceOnly' = true.

Sub onbeveiligdecellenwissen()
Sheets(1).Protect , , , , True
 On Error Resume Next   'als de cellen al leeg zijn
  Cells.SpecialCells(2).ClearContents
End Sub

 

[Oude leerling]

gast0660,

Dus mijn file werkt bij jou wel?
Vreemd , ik heb windows 10 , zou er iets ingesteld moeten worden en wat dan?

Harry ,
Code werkt goed en een regeltje minder dus die ga ik toepassen.

Beide heel erg bedankt en fijne dagen gewenst.
Weer wat opgestoken!

Vriendelijke groet jaap

 

[Oude leerling]

Harry ,
Oeps daar ging toch iets fout.
Met jouw code worden alle ingevulde cellen gewist , ook de beveiligde

 

[HSV]

Excuses (slecht getest).

Sub onbeveiligdecellenwissen()
 Application.FindFormat.Locked = False
 Cells.Replace "*", "",,,,,true
End Sub

 

[Oude leerling]

Perfect, dat is hem!!

Nogmaals bedank voor alle moeite.

Vriendelijke groet Jaap