Code kraken

[DutchOirs]

En dan unzipt iemand het document, kijkt met een HEX editor in VBAProject.bin en achterhaalt het wachtwoord.

Als het wachtwoord in het file staat

 

[edmoor]

Geprobeerd Edmoor, maar hij gaat gewoon open

Dat is de bedoeling toch ook?
De code in Workbook_Open wordt gewoon uitgevoerd.
Maar het gebruik van de Shift toets geeft een melding.

 

[DutchOirs]

Hoi Edmoor,
Even overnieuw,
Als je een file opent en tegelijkertijd de shift toets indrukt, loopt hij niet door het workbook Open event.
Maar hij start wel het file op.
dat is niet de bedoeling, wan t dan is men toch in het file en kan men van alles doen.
Hij heeft de opdrachten in Workbook open event niet uitgevoerd, maar je bent wel in het file!

 

[edmoor]

Bij mij verschijnt dit:


Na een klik op Ok wordt Excel afgesloten.

 

[DutchOirs]

Goedemorgen Edmoor,
Bij het file van jouw (xlms) zie ik hem voorbij flitsen
Bij een file van mij (xls) zie ik niets en opent hij gewoon

 

[AHulpje]

Dan zou ik toch maar het document van edmoor gebruiken, dat doet precies wat je wilt.

 

[edmoor]

Ik heb geen xls geplaatst, alleen een xlsm.
Daarin heb ik een aanpassing gedaan in de xml (CustomUI) van het bestand.om op die Shift toets te laten controleren.
Dat kan alleen in Office 2007 en hoger.

 

[DutchOirs]

ok Edmoor,
Zit iets te bedenken met een Vlag.
Als je op normale manier binnen komt dus door Workbook Open om dan deze vlag op 1 te zetten.
Als je met shift-openen binnen komt dus niet door Workbook Open, blijft de vlag op 0.
Nu iets verzinnen (event) waar je dit kan ondervangen.

 

[edmoor]

Als je de code in mijn document hebt gekopieerd en in je eigen document hebt geplaatst dan gaat dat niet werken omdat je dan de aanpassing in de CustomUI niet hebt.



Voor meer informatie:

How to: Add custom UI to a spreadsheet document

Use the Open XML SDK to programmatically create Office Word, Excel, and PowerPoint documents, and manipulate their content.

learn.microsoft.com

 

[DutchOirs]

nee had ik niet.
Had jouw file gedownload.
Vermoede al zoiets

 

[edmoor]

Vreemd dat het dan bij jou niet goed gaat.
Het werkt hier prima en bij AHulpje kennelijk ook.

 

[DutchOirs]

zal wel te maken hebben met de versie (2003)

 

[edmoor]

Wat ik al zei, CustomUI kan vanaf Excel 2007 en hoger.
Waarom hou je zo vast aan Office 2003?
Dat is meer dan 20 jaar oud!
Uiteraard mis je dan opties, functies en meer mogelijkheden.

 

[DutchOirs]

gebruik het al zolang en als je overstapt naar 2019 zoek je je eigen ongeluk :-(
Mag dan eerst wel een cursus gaan volgen

 

[edmoor]

Tsja, daar kan ik ook niks aan veranderen.

Cursus Microsoft Excel

www.gratiscursus.be

 

[DutchOirs]

nee klopt
maar heb 2019 ernaast lopen dus ben lerende

 

[DutchOirs]

Loop van het een in het ander :-(

Wil dus bij het afsluiten dat hij het file opslaat.
Dit i.v.m. een vlag die weer op standaard gezet moet worden.
Alleen het automatisch laten opslaan bij afsluiten wil maar niet lukken.
Wat doe ik fout?

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
  With Worksheets("Control")
    .Range("M14") = 0                                   ' Vlag Shift-Openen Beveiliging = uit
  End With
  ThisWorkbook.Save
End Sub

 

[edmoor]

Wat gaat er dan niet goed?
Krijg je een foutmelding?

 

[DutchOirs]

Hoi Edmoor,

Alles loopt goed, alleen hij slaat niet op.
Hij loopt door die Workbook_BeforeClose sub heen, hij veranderd die Vlag, maar vervolgens slaat hij niet op?

 

[edmoor]

Plaats je document eens hier.