Kaip apeiti slaptažodžio užklausą naudojant VBA
Atidarant slaptažodžiu apsaugotą darbaknygę, „Excel“ prašo šio slaptažodžio. Žinoma, to taip pat pageidautina, šiame paveikslėlyje parodyta, kaip atrodo slaptažodžio įvedimo langas:
Kai atidarote darbo knygą su makrokomanda, slaptažodžio įvedimas, žinoma, labai erzina. Tačiau galite apeiti slaptažodžio užklausą naudodami makrokomandą. Naudokite šį programos kodą:
Antrasis „OpenPasswordFile“ ()
„Dim Mappe As Workbook“
Nustatykite Mappe = Application.Workbooks.Open (Filename: = "C: \ Files \ Protection file.xls", Password: = "Password")
Pabaiga Sub
Žinoma, tai veikia tik žinant slaptažodį. Norėdami tai padaryti, pakeiskite tekstą „Slaptažodis“ jūsų nurodytu slaptažodžiu. Naudojant objekto kintamuosius Aplankas galite naudoti šį kintamąjį, kad atidarę darbaknygę lengvai pasiektumėte šiuo metu atidarytos darbaknygės darbalapius.