Onbeveiligde cellen wissen

Status
Niet open voor verdere reacties.

Oude leerling

Gebruiker
Lid geworden
30 aug 2010
Berichten
566
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
 

Bijlagen

Hoi,
met dit stukje code mischien?
Code:
Sub ClearUnlockedCells()
  Application.FindFormat.Clear
  Application.FindFormat.Locked = False
  Cells.Replace "*", "", SearchFormat:=True
  Application.FindFormat.Clear
End Sub
 
Hoi oude leerling,

Bij mij werkt jouw code wel hoor.

Groet Arno
 
Als je het blad beveiligd, doe dat dan met 'UserinterfaceOnly' = true.
Code:
Sub onbeveiligdecellenwissen()
Sheets(1).Protect , , , , True
 On Error Resume Next   'als de cellen al leeg zijn
  Cells.SpecialCells(2).ClearContents
End Sub
 
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
 
Harry ,
Oeps daar ging toch iets fout.
Met jouw code worden alle ingevulde cellen gewist , ook de beveiligde
 
Excuses (slecht getest).
Code:
Sub onbeveiligdecellenwissen()
 Application.FindFormat.Locked = False
 Cells.Replace "*", "",,,,,true
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan