VBA Code upang I-unlock ang isang naka-lock na Excel Sheet: 4 na Hakbang

2024 May -akda: John Day | [email protected]. Huling binago: 2024-01-30 13:14

Kung nakalimutan mo ba ang isang password para sa isa sa iyong mga worksheet na excel alam mo kung gaano ito nakakainis. Ang code na ginamit sa tagubiling ito ay isa sa pinakasimpleng natagpuan ko. Lilikha ito ng isang magagamit na code na i-unlock ang iyong protektadong sheet. Hindi ko maaaring kunin ang kredito sa kodigo na nakita ko lamang ito sa isang sandali ng pangangailangan (at hindi ko na makita kung nasaan na ang site) … sooo hindi ako magiging matulungan kung hindi ito gagana para sa iyo ngunit ay nagtagumpay dito at naisip kong magbabahagi.

Hakbang 1: Buksan ang VBA

Buksan ang worksheet na nakalimutan mo ang iyong password. Gumamit ng Alt + F11 upang ipasok ang macro editor. Kapag sa VBA i-double click ang sheet na kailangan mo upang i-unlock mula sa listahan ng menu sa kaliwa. Bubuksan nito ang pangkalahatang pahina ng mga pagdedeklara para sa sheet.

Hakbang 2: Gupitin at I-paste ang Code Breaker

Ipasok ang code sa ibaba sa pangkalahatang pahina ng mga pagdedeklara na iyong binuksan. Hindi mo dapat baguhin ang anuman, pangalan ng sheet atbp … Gupitin at i-paste lamang._ Sub PasswordBreaker () 'Sinira ang proteksyon ng password sa worksheet. Dim i As Integer, j Bilang Integer, k Bilang IntegerDim l Bilang Integer, m Bilang Integer, n Bilang Integer Dim i1 Bilang Integer, i2 Bilang Integer, i3 Bilang Integer Dim i4 Bilang Integer, i5 Bilang Integer, i6 Bilang Integer Sa Error Resume Susunod Para sa i = 65 Hanggang 66: Para sa j = 65 Hanggang 66: Para sa k = 65 Hanggang 66 Para sa l = 65 Hanggang 66: Para sa m = 65 Hanggang 66: Para sa i1 = 65 Hanggang 66 Para sa i2 = 65 Hanggang 66: Para sa i3 = 65 Hanggang 66: Para sa i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 ActiveSheet. Huwag protektahan ang Chr (i) & Chr (j) & Chr (k) & _ Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & Chr (i3) & _Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) Kung ActiveSheet. ProtectContents = Maling Pagkatapos MsgBox "Isang magagamit na password ay" & Chr (i) & Chr (j) & _ Chr (k) & Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & _ Chr (i3) & Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) Exit Sub End Kung Susunod: Susunod: Susunod: Susunod: Susunod: Susunod: Susunod: Susunod: Susunod: Susunod: Susunod na Wakas Sub_

Hakbang 3: Patakbuhin ang Macro

Kapag naidagdag na ang code patakbuhin ang Macro sa pamamagitan ng pagpili ng Run mula sa menu tab bar sa tuktok ng VBA editor screen o simpleng pindutin ang F5

Hakbang 4: Gamitin ang Generated Code

Ibabalik ka ng macro sa worksheet na nais mong protektahan. Ang isang kahon ng estilo ng alerto ay lilitaw na may isang magagamit na code. Sa tab na menu ng Review mag-click sa Unprotect sheet. Ipasok ang nabuong code bilang password at iyong tapos na. Ang iyong sheet ay dapat na naka-unlock! Dapat mong gamitin ang kapangyarihang ito nang matalino at responsable lamang upang ma-unlock ang iyong sariling mga worksheet.