Fout melding in instroomtabel

[NajKwin]

Hallo,

Ik nog een vraag m.b.t. een bestand wat hier al een keer voorbij gekomen is:

Hij doet wat hij moet doen echter krijg nog een foutmelding die ik niet kan herleiden. misschien dat iemand me kan vertellen wat hier mis gaat:
Werkblad is beveiligd met een ww (ww=1234) Als ik op een cel ga staan krijg ik een foutmelding (zie plaatje)


als ik op fout opsporing klik zie ik het volgende


Wie kan me vertellen wat hier mis gaat?

 

[Haije]

Maak er dit eens van:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim LastRow As Long
    Dim counter As Long
    LastRow = Range("E" & Rows.Count).End(xlUp).Row
[COLOR="#FF0000"]    ActiveSheet.Unprotect "1234"[/COLOR]
    For counter = 13 To LastRow
        Range("A" & counter).Value = counter - 12
    Next counter
[COLOR="#FF0000"]    ActiveSheet.Protect "1234"[/COLOR]
End Sub

De foutmelding wordt nl veroorzaakt door de beveiliging en die kun je zo omzeilen.

De vraag is natuurlijk of die beveiliging zo nog functioneel is...

Waarschijnlijk moet er nog een voorwaarde in opgenomen worden die er voor zorgt dat de beveiliging alleen uitgeschakeld wordt in bepaalde gevallen, bv als er een wijziging in kolom D mag worden aangebracht. Dan kan de macro beëindigd worden als een cel in een andere kolom geselecteerd wordt.

 

[VenA]

Waarom gebruik je SelectionChange? Lijkt mij niet handig.