Foutmelding onvoldoende stackruimte

[jonpic]

Goedemiddag,

Er zit een fout in mijn bestand, wie kan mij helpen, heb namelijk totaal geen verstand van vb
In kolom A1 wordt de medewerkerscode ingescand middels een barcodescanner, in kolom A2 wordt gescand of iemand start met werken of klaar is. Kolommen daarna zijn gekoppeld aan onderliggende werkbladen en worden automatisch ingevuld. Voor kolom G en H staan er formules in vb.
Wanneer ik geen beveiliging op het blad zet werkt alles naar behoren, echter gaat onze barcodescanner dan niet automatisch van cel A2 naar B3. Om dit op te lossen en om fouten te voorkomen beveiligen we de overige cellen. Wanneer dit echter beveiligd is krijg ik een foutmelding na het invoeren van cel A2, namelijk onvoldoende stackruimte.

Kan iemand mij hierbij helpen?
Bekijk bijlage Helpmij Prikklok.xlsm

 

[VenA]

Haal eerst eens het wachtwoord van het bestand af. Verder begrijp ik deze regel niet:

For i = 2 To Lastr

Moeten alle reeds eerder ingevulde cellen overschreven worden?

 

[jonpic]

Het wachtwoord is volgens mij niet belangrijk om het probleem op te lossen. Als je iets willekeurigs in cel A2 en A3 invult krijg je meteen de melding die ik krijg. Het tabblad met bijbehorende informatie heb ik sowieso helaas moeten verwijderen, omdat het bestand veel te groot was.

 

[jonpic]

Heb het bestand even fictief ingevuld.
Wanneer je nu de beveiliging erop zet en cel A4 en B4 invult verschijnt de foutmelding.Bekijk bijlage Helpmij Prikklok.xlsm

 

[jonpic]

Op een vreemde manier werkt het bestand niet naar behoren zodra ik het toevoeg als bijlage. Cel C t/m H vullen zich normaal gesproken automatisch wanneer cel A en B worden ingevuld.

 

[VenA]

Je change event blijft zichzelf aanroepen waardoor je in een eeuwige lus komt.

Gebruik aan het begin van de code Application.EnableEvents = False en aan het eind Application.EnableEvents = True

 

[jonpic]

Goedemorgen VenA

Hartstikke bedankt voor de oplossing, ik heb het ingevoerd in VB, echter krijg ik een foutmelding.
Aangezien ik totaal geen verstand heb van VB kan het zijn dat ik het verkeerd invoer. Zou je het voor me in kunnen voeren in het ingevoegde bestand? Dan kan ik het letterlijk zo kopiëren.

 

[jonpic]

Goedemorgen,

Zojuist op google gevonden hoe ik de codes toe moet voegen, dit gedaan. Echter krijg ik nu een andere foutmelding, namelijk:
Fout 1004 tijdens uitvoering:
De cel of grafiek die u wilt wijzigen, bevindt zich op een beveiligd blad.

 

[ExcelAmateur]

Als je het nu nogeens over lees, dan zal je er achterkomen, dat je de beveiliging via je code eraf moet halen.
Aan het eind van de code moet je de beveiliging er weer opzetten.

 

[jonpic]

Sorry maar ik weet niet hoe ik dit moet doen, kun je me dit uitleggen?

 

[ExcelAmateur]

Kijk hier even,
http://www.helpmij.nl/forum/showthr...ilter-toestaan?highlight=Password+verwijderen

 

[jonpic]

Ik heb dit nu zo ingevoerd. Dit werkt alleen niet, ik krijg geen foutmelding meer, maar cel F, G en H worden nu niet meer automatisch ingevuld.
Wat moet ik wijzigen?

Private Sub Workbook_Open()
Sheets("Scannen").Protect _
Password:="TEST", _
UserInterfaceOnly:=True, _
AllowFiltering:=True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim cl As Range
Lastr = Range("G" & Rows.Count).End(xlUp).Row + 1
For i = 2 To Lastr
If Not IsDate(Cells(i, 7)) = True Then
If Cells(i, 1) <> "" And Cells(i, 2) <> "" Then
Cells(i, 7) = Format(Date, "dd/mm")
Cells(i, 8) = Time
End If
End If
Next
Application.EnableEvents = True
End Sub

 

[ExcelAmateur]

Kijk of het nu wel goed gaat.

 

[snb]

Zet de code die je nu in de workbook_change gebeurteniscode hebt staan in de workbook_Open gebeurtenis.


Dit soort code hoort helemaal niet thuis in een workbook_change gebeurtenis.

En vooral: gebruik code tags (markeringen) in je berichten !

 

[jonpic]

Beter laat dan nooit, nog hartstikke bedankt voor jullie hulp. Ben er erg mee geholpen