UnlockedCells

[Hoornvan]

Hallo,

Ik heb een beveiligd blad, met daar in verschillende cellen die niet beveiligd zijn.
Nu wil ik met een knop deze cellen wissen.

Ik heb gebruikt UnlockedCells.ClearContents maar dat werkt niet.
Weet iemand wat de regel wel moet zijn, of is dit niet mogelijk?

Alvast bedankt

 

[mtb]

Hoornvan

Als het om niet al te veel cellen gaat, is dit misschien een oplossing

macro starten en de ctrl toets ingedrukt houden en dan alle cellen aanklikken die gewist moeten worden, dan cellen wissen en macro opname stoppen.
Via werkbalk formulieren een button op je werkblad zetten en macro koppelen aan de button, nu worden elke keer alle cellen gewist als de button word bediend

 

[Hoornvan]

Hallo mtb,

Daar heb ik ook aan gedacht maar als het veel cellen zijn is dat een hoop werk.
Als het niet anders kan dan moet ik het maar zo doen.
Maar misschien heeft iemand anders nog een idee voor een macro.

In ieder geval bedankt.
Mvg. Hoornvan

 

[Hoornvan]

Hallo Mtb,

Ik doe de oplossing die jij voorsteld wel gebruiken.
Ik heb nog even gewacht, misschien had iemand een macro voor dit maar helaas.

Hartelijk bedankt,

Mvg. Hoornvan

 

[Jan van Asseldonk]

Misschien nog niet te laat om je een hoop werk te besparen.

Met onderstaande macro controleer je alle cellen de in de eerste 10 rijen en 5 kolommen. Indien de cel onbeveiligd is wordt de inhoud gewist.
Het maakt niet uit op je het blad beveiligd hebt of niet.

Sub Macro1()
'
'
Dim RwNr, ColNr As Integer
'
For RwNr = 1 To 10
For ColNr = 1 To 5
With Worksheets("Blad1").Cells(RwNr, ColNr)
If .Locked = False Then .ClearContents
End With
Next ColNr
Next RwNr


End Sub

 

[Hoornvan]

Hallo Jan,

Hartelijk bedankt voor de macro.
Ik ga hem gelijk uitproberen, je hoort het wel.

Mvg. Hoornvan

 

[Hoornvan]

Het werkt grandioos, nogmaals hartelijk bedankt hier voor.

Mvg. Hoornvan