gerrit123456789
Gebruiker
- Lid geworden
- 15 dec 2013
- Berichten
- 272
Ik heb nog een vraagje.
Ik wil als ik het bestand opsla dat hij de cellen die niet geblokkeerd zijn leeg maakt. Ik ga het bestand beveiligen.
Ik heb de volgende macro
[PHPSub SaveAs()
With ActiveSheet
Range("A1:K34").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Gerrit\Documents" & Format(Date, "dd-mm-yyyy") & " " & Format(Time, "hh.mm") & " " & [I1]
For Each cel In ActiveSheet.UsedRange
If Not cel.Locked Then cel.Value = ""
Next cel
End With
End Sub][/PHP]
Hij slaat het bestand wel op, maar maakt de niet geblokkeerde cellen niet leeg.
Wat doe ik fout.
Groet,
Gerrit
Ik wil als ik het bestand opsla dat hij de cellen die niet geblokkeerd zijn leeg maakt. Ik ga het bestand beveiligen.
Ik heb de volgende macro
[PHPSub SaveAs()
With ActiveSheet
Range("A1:K34").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Gerrit\Documents" & Format(Date, "dd-mm-yyyy") & " " & Format(Time, "hh.mm") & " " & [I1]
For Each cel In ActiveSheet.UsedRange
If Not cel.Locked Then cel.Value = ""
Next cel
End With
End Sub][/PHP]
Hij slaat het bestand wel op, maar maakt de niet geblokkeerde cellen niet leeg.
Wat doe ik fout.
Groet,
Gerrit