Open met een wachtwoord beveiligd bestand via VBA

Hoe een wachtwoordquery te omzeilen met VBA

Bij het openen van een met een wachtwoord beveiligde werkmap vraagt Excel om dit wachtwoord. Dit is natuurlijk ook gewenst, de volgende afbeelding laat zien hoe het venster voor het invoeren van het wachtwoord eruit ziet:

Wanneer je een werkmap opent met een macro is het invoeren van het wachtwoord natuurlijk erg vervelend. U kunt de wachtwoordquery echter omzeilen met een macro. Gebruik de volgende programmacode:

Sub OpenPasswordFile ()
Dim Mappe als werkboek
Stel Mappe = Application.Workbooks.Open in (Bestandsnaam: = "C: \ Files \ Protection file.xls", Wachtwoord: = "Wachtwoord")
Einde sub

Dit werkt natuurlijk alleen als u het wachtwoord weet. Vervang hiervoor de tekst "Wachtwoord" door het door u opgegeven wachtwoord. Door de objectvariabelen te gebruiken Map u kunt deze variabele gebruiken om eenvoudig toegang te krijgen tot de werkbladen van de momenteel geopende werkmap na het openen van de werkmap.