macro beveiligen

[tone14]

dag,

Ik maakte twee knoppen aan om mijn werkblad te beveiligen en de beveiliging af te leggen.

1) Als ik deze nu uitvoer vraagt hij geen werkwoord.

Sub Aan()
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
End Sub

Hoe kan ik dit oplossen?

2) Als ik een code kan intypen, en ik typ verkeerd dan heeft hij een foutmelding, en dan kan je in het VBA het wachtwoord lezen

Hoe kan ik dit wegwerken?

dank bij voorbaat.

 

[Marcel79]

1) wachtwoord invoeren in de code:

ActiveSheet.Protect Password:="JouwWachtwoordHier"

2) je kunt het VBA-project zelf ook beveiligen, zodat mensen daar óók een wachtwoord voor in moeten voeren.
In de Visual Basic Editor:
- klik met de rechtermuisknop op de vetgedrukte naam van het project
- kies 'Eigenschappen van VBAProject'
- tabblad 'beveiliging'

Als mensen dan het verkeerde wachtwoord intypen, kunnen ze niet voor 'Foutopsporing kiezen', maar alleen nog maar voor 'Beëindigen'.

Veel beter is het overigens om dit probleem te ondervangen door een melding te maken van het verkeerde wachtwoord, maar ik zou niet uit mijn hoofd weten hoe je dat doet.

Overigens hoop ik dat je er van op de hoogte bent dat Excel-beveiliging géén echte beveiliging is, als iemand er doorheen wil en hij/zij heeft enige kennis van computers lukt dat meestal wel.