Oscarbord 3

[gerrit123456789]

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

 

[ExcelAmateur]

1e wat je fout doe is, geen Code Tags gebruiken.
Als je al zolang bij "Helpmij" zit, moet je dit toch wel weten.

 

[gerrit123456789]

Sub 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

zo dus

 

[edmoor]

Probeer dit eens en geef je sub nooit een naam die overeenkomstig een in VBA gereserveerd woord is:

Sub Opslaan()
    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 Sub

 

[gerrit123456789]

Hij slaat hem wel op als .pdf bestand, maar maakt de niet geblokkeerde cellen niet leeg.

Gerrit

 

[edmoor]

De code is goed, plaats dus je bestand.

 

[gerrit123456789]

Bekijk bijlage OSCAR TK3 versie 3.xlsm

Hierbij het bestand

Gerrit

 

[HSV]

doet hetzelfde.

Filename:="C:\Users\Gerrit\Documents\" & Format(now, "dd-mm-yyyy hh.mm") &  " " & [I1]

 

[edmoor]

En welke cellen in dat document zijn niet gelocked?

 

[gerrit123456789]

De volgende cellen zijn niet geblokkeerd :

G1, I1
C7 t/m C14
G7 t/m H14
B25 t/m H26

Gerrit

 

[edmoor]

Bij alle cellen die je noemt staat Geblokkeerd gewoon aangevinkt in het document dat je plaatste.
Als je daar niet van afhankelijk wil zijn kan je het ook zo doen:

Range("G1, I1, C7:C14, G7:H14, B25:H26").ClearContents

Maar ik heb het vermoeden dat je het begrip "Geblokkeerd" onjuist interpreteert.

 

[gerrit123456789]

Ik zal dat eerst even aanpassen, daarna meld ik me wel weer.

 

[gerrit123456789]

Nu werkt deze weer niet.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c7:c14")) Is Nothing And Not IsEmpty(Range("i1")) Then
Application.EnableEvents = False
   'range("a4").Resize(,3).ClearContents
   Range("A4").Offset(, Application.Match(Range("i1"), Array("V", "L", "N"), 0) - 1) = Range("c15").Value
 Application.EnableEvents = True
 End If
End Sub

 

[edmoor]

1) Is je initiële vraag opgelost?

2) Werkt niet is erg kort door de bocht, dat zegt niks. Wat gebeurt er wel?
Heb je in de code van #13 gezien dat deze alleen wordt uitgevoerd als er iets in cel I1 staat?
Cel I1 maak je leeg middels de oplossing voor je initiële vraag.

 

[gerrit123456789]

Ik zal het proberen uit te leggen.

Alles werkt naar behoren in onderstaand bestand, maar beveilig het blad, dan werkt het niet meer.

Bekijk bijlage OSCAR TK3 versie 2.xlsm

 

[edmoor]

Als een blad is beveiligd kan je er niks meer op wijzigen.
Ook niet vanuit VBA, tenzij je eerst de beveiliging opheft met ActiveSheet.UnProtect.

 

[gerrit123456789]

Ook niet als je bepaalde cellen niet blokkeer?

 

[edmoor]

Cellen die niet op Geblokkeerd staan kan je dan wel wijzigen.

 

[gerrit123456789]

Waarom werkt het dan niet met de niet geblokkeerde cellen om leeg te maken als ik het blad beveilig.

 

[edmoor]

Zie mijn laatste opmerking in #11.
Ook in je laatste geplaatste document staat bij alle cellen "Geblokkeerd" aangevinkt.