Net zoals u werkmappen en werkbladen met een wachtwoord kunt beveiligen, kunt u: wachtwoord beveilig een macro in Excel niet worden bekeken (en uitgevoerd).
Plaats een opdrachtknop op uw werkblad en voeg de volgende coderegels toe:
1. Maak eerst een eenvoudige macro die u wilt beschermen.
Range ("A1"). Waarde = "Dit is een geheime code"
2. Klik vervolgens op Extra, VBAProject-eigenschappen.
3. Vink op het tabblad Beveiliging "Project vergrendelen voor weergave" aan en voer tweemaal een wachtwoord in.
4. Klik op OK.
5. Sla het Excel-bestand op, sluit het en open het opnieuw. Probeer de code te bekijken.
Het volgende dialoogvenster verschijnt:
U kunt de code nog steeds uitvoeren door op de opdrachtknop te klikken, maar u kunt de code niet meer bekijken of bewerken (tenzij u het wachtwoord kent). Het wachtwoord voor het downloadbare Excel-bestand is "eenvoudig".
6. Als u de macro met een wachtwoord wilt beveiligen tegen uitvoering, voegt u de volgende coderegels toe:
Dim wachtwoord As Variant
wachtwoord = Application.InputBox ("Voer wachtwoord in", "Beveiligd met wachtwoord")
Selecteer Case-wachtwoord
Case Is = False
'niets doen
Geval Is = "gemakkelijk"
Range ("A1"). Waarde = "Dit is een geheime code"
Geval Anders
MsgBox "Onjuist wachtwoord"
Einde selecteren
Resultaat wanneer u op de opdrachtknop op het werkblad klikt:
Verklaring: De macro gebruikt de InputBox-methode van het Application-object. Als de gebruiker op Annuleren klikt, retourneert deze methode False en gebeurt er niets (InputBox verdwijnt). Pas als de gebruiker het wachtwoord weet ("easy" weer), wordt de geheime code uitgevoerd. Als het ingevoerde wachtwoord onjuist is, wordt een MsgBox weergegeven. Merk op dat de gebruiker het wachtwoord niet kan bekijken in de Visual Basic Editor omdat het project is beveiligd tegen weergave.
