Auteur Topic: Beveiligen met macro (gelezen 4412 keer)

JeanPierre · « **Gepost op:** 14 maart 2007, 12:03:59 »

Hallo allemaal,

Heb nog eens een vraagje, op zich niet zo moeilijk, maar het lukt me niet helemaal.
Ik heb een Excel blad dat is beveiligd met een wachtwoord, dit wil ik nu met een macro doen.
Ik neem dus eerst de macro op "beveiliging opheffen", ik maak een knop aan, en probeer dit, het gaat goed, klik op knop vraagt ww en open, klaar dus.
Nu het tweede, andersom, neem macro op "beveiligen", maak weer een knop en ja dit gaat ook prima, hij beveiligd zelfs zonder een ww te vragen.
Maar, als ik nu de beveiliging wil opheffen dan doet hij dat wel, maar zonder een ww te vragen, en dat wil ik niet.
Dit mag wel om te beveiligen, maar om deze op te heffen had ik graag een ww in te geven.

Grts,
JP.

RedHead · « **Reactie #1 Gepost op:** 14 maart 2007, 13:07:21 »

JP, Het opnemen via de macro-recorder geeft wel vaker niet het resultaat dat je verwacht.

Kijk maar 'ns in je code. Daar zal je zien dat er geen 'password' in je 'ActiveSheet.Protect' argumenten staat.
Als je dit...

Code: [Selecteer]

Password:= "[je password]" ...aan je regel toevoegt, zal er bij het unlocken (vrijgeven) wél om een password gevraagd worden...

De complete regel zal er dan ongeveer zo uitzien:

Code: [Selecteer]

ActiveSheet.Protect Password:="leo", DrawingObjects:=True, Contents:=True, Scenarios:=True
Bedenk je wel dat een handige gebruiker óók zo je VBA editor kan openen en het password achterhalen...

Groet, Leo

JeanPierre · « **Reactie #2 Gepost op:** 14 maart 2007, 16:37:51 »

Ha die Leo,

Je bent blijkbaar een heel druk bezet man op dit forum, maar ben weer best tevreden met je uitleg hoor, het lukt nu naar men zin.
Wat het password beterft, dat is in mijn geval niet zo erg hoor, eerst en vooral is de protectie meer uit voorzichtigheid, en diegenen die deze sheet onder handen krijgen weten toch nog iets minder van VBA dan ik.....

Maar ja natuurlijk, ik leer hier nog altijd bij, en dat is tof.

Leo nogmaals dik bedankt en de groetjes,

JP.

Erik Van Geit · « **Reactie #3 Gepost op:** 14 maart 2007, 16:42:22 »

Dag, iedereen,

JeanPierre, Excel werd nooit geadverteerd als een waterdicht-beveiligde omgeving. Dus elk middel kan wel omzeild worden. De bedoeling is dan ook enkel om de doorsnee gebruiker "buiten" te houden.

Als je het paswoord in je code vermeldt, kan je beter meteen ook je project vergrendelen voor weergave. Je kan eventueel je passwoord zodanig invoegen*, zodat niemand het "in 1 adem" kan lezen, (opsporen kan door bijvoorbeeld je bestand in een textfile te lezen).

Waar je zeker ook moet op letten is dat de code niet onderbroken kan worden. Kijk eens in de helpfiles voor EnableCancelKey.

*voorbeelden
1. passwoord in 2 verborgen cellen vermelden

Code: [Selecteer]

ActiveSheet.Protect Sheets(1).Range("A1") & Sheets(2).Range("A1")
paswoord is "welkom" eerste cell heeft "wel", tweede cell heeft "kom"
2. "onrechtstreeks vermelden kan bijvoorbeeld zo

Code: [Selecteer]

Dim pw As String

pw = Chr(119) & Chr(101) & Chr(108) & Chr(107) & Chr(111) & Chr(109)
ActiveSheet.Protect pw

dit is ook "welkom": je vind deze nummers via de formule =CODE(A1) ...

beste groeten,
Erik

EDIT: 'k had die laatste reply niet gezien, voor ik de mijne stuurde

JeanPierre · « **Reactie #4 Gepost op:** 14 maart 2007, 17:23:55 »

Hallo Eric,

Niet erg van iets te laat te zijn, de uitslag telt, en wat voor een uitslag.
Ik ga er mij nog verder in verdiepen om dit aan te passen, het zou zonde zijn met zo veel hulp niks aan te vangen.

Maar moet nu wel eerst eten.
Mannen nog eens dik bedankt en de groetjes.

JP.

Help!

Menu

Hulp bij posten

Zoeken

Recente topics

Auteur Topic: Beveiligen met macro (gelezen 4412 keer)

JeanPierre

Beveiligen met macro

RedHead

Re: Beveiligen met macro

JeanPierre

Re: Beveiligen met macro

Erik Van Geit

Re: Beveiligen met macro

JeanPierre

Re: Beveiligen met macro