Opgelost Excel VBA werkt en werkt niet

[HSV]

Als je codes kan lezen kom je niet met zulke AI suggesties @Senso.

 

[Senso]

Wat ik aangeef is dat als je de juiste (fout)meldingen aangeeft en duidelijk kunt maken wat je exact wilt, je een heel eind kunt komen. Ik heb er geen verstand van dat moge duidelijk zijn. Het is meer het aandragen van suggesties. Het zijn voorbeelden daar kun je wellicht uithalen hoe je de code moet aanpassen.

Sub VoorkomLockedFout()
    ' 1. Beveiliging tijdelijk uitschakelen
    ActiveSheet.Unprotect Password:="JouwWachtwoord" ' Laat leeg als er geen wachtwoord is
    
    ' 2. Nu pas de cellen ontgrendelen (dit gaat nu goed)
    Range("A1:C10").Locked = False
    
    ' 3. Beveiliging direct weer aanzetten
    ActiveSheet.Protect Password:="JouwWachtwoord"
End Sub

 

[bartvt78]

Goedemorgen. HSV en Jverkerk: beide voorstellen botsen weer op een fout bij het uitvoeren met de locked functie. Senso: Jou 2 laatste scripts #19 en #22 werken zonder foutmelding. Maar hoe implementeer ik dit dan juist in mijn origineel van in #1? Ik heb het op een paar manieren proberen te plakken in mijn origineel, maar dan loopt het ook vast bij mij.

 

[Senso]

Ja, jij weet wat je aan het doen bent en dan moet je jouw script in AI plakken en in de editor ook aangeven wat er fout gaat bij de uitvoering en hoe je het wilt hebben.
Hoe implementeer ik de door u gegeven code (in AI geplakt) in mijn code die ik u gegeven hebt? Daar krijg je dan een antwoord op.

Anders jouw huidige code in AI plakken. Zeg waar het fout gaat en wat je wilt dat er moet gebeuren en geef het systeem, software en versie aan.

 

[HSV]

Logisch dat je geen foutmelding krijgt van #19, er staat immers "On error resume next" , en dan voert hij dat stukje niet uit bij een fout.

Plaats je bestand.

 

[bartvt78]

Hey Senso, ik beweer niet dat ik een excel expert ben hé. Ik heb alles tot nu toe gevonden met ChatGPT. Dat durf ik gerust bekennen. Enkel bij dit stuk kon chatGPT me niet helpen, daar die zei dat deze code klopt, en dus geen verbetering aangaf. HSV, ik ga het vanavond nog een keer proberen, en als dat niet lukt zet ik een blanco file hier op het forum.
Mvg, Bart

 

[Senso]

Hey Senso, ik beweer niet dat ik een excel expert ben hé.

Volgens mij heb ik dat niet geschreven. Ik dacht wel dat als jij er mee bezig bent in jouw document dat je er wel wat vanaf weet. Ik heb er geen verstand van.

 

[emields]

Een voorbeeldbestandje kan veel ook veel helpen.

 

[Warme bakkertje]

Dit is een tekstboekvoorbeeld van slecht geschreven code.
NOOIT gebruik je Select, Selection of Activate omdat dit totaal overbodig is.

 

[HSV]

HSV, ik ga het vanavond nog een keer proberen, en als dat niet lukt zet ik een blanco file hier op het forum.
Mvg, Bart

Aan een blanco file heeft niemand iets, die hebben we allemaal.

 

[bartvt78]

Beste forumleden, door mijn toedoen is de file momenteel niet meer beschikbaar. Met het testen van de codes is er een heel stuk verloren gegaan. En laat het nu zijn dat de file nog op mijn desktop stond, en niet in de cloud. Dus ik heb geen vorige versies die ik kan terughalen. Vanaf ik de file terug ietwat werkend heb zal ik deze posten voor de laatste loodjes.
Ivm de laatste feedback's:
*Senso, ik dacht dat het een verwijt was, maar als dat niet zo was, aanvaard dan mijn verontschuldiging. *EmielDS: Vanaf ik terug een ietwat werkende file heb post ik deze.
*Warme Bakkertje: Dit is code gemaakt met AI. Ik heb 99% van Chat GPT gehaald, en de rest met de knop "Macro opnemen" in excel. Ik ben helemaal geen expert. Als de file hier staat mag je gerust door mijn codes gaan om deze te verbeteren als je wil.
*HSV: Met een blanco file bedoel ik een file met alle codes en sheets, maar zonder persoonlijke gegevens. Dit volgens de regels van het forum.
To be continued.

 

[jkpieterse]

De code uit bericht #6 in dit draadje werkt prima op mijn Mac mini met deze Excel versie:

 

[bartvt78]

Hey Jkpieterse, bij mij loopt de code vast op "wsTarget.Columns("AI").Locked = False". Ik zie dat jij de Engelse versie van Office hebt, en ik de NL versie. Maar als ik op ChatGPT zoek, blijft de code gelijk, zowel voor de EN als de NL versie. Ik ben bijna klaar met de file terug in orde te zetten. Morgen post ik de file hier.

 

[bartvt78]

Beste collega forumleden. Ik post nu pas een reactie omwille van het feit dat ik enkele dagen niet op het forum kon. Er kwam een foutmelding van een database of zoiets. Ondertussen heb ik een versie van mijn file werkend gekregen. Dus deze vraag ga ik ook als opgelost zetten. Hartelijk dank aan iedereen om mee te denken.
Mvg,
Bart