Cuprins:

Cod VBA pentru a debloca o foaie Excel blocată: 4 pași
Cod VBA pentru a debloca o foaie Excel blocată: 4 pași

Video: Cod VBA pentru a debloca o foaie Excel blocată: 4 pași

Video: Cod VBA pentru a debloca o foaie Excel blocată: 4 pași
Video: VBA | Tutorial | Cum sa NU uiti sa faci o copie de rezerva! | EXCEL 2024, Noiembrie
Anonim
Cod VBA pentru a debloca o foaie Excel blocată
Cod VBA pentru a debloca o foaie Excel blocată
Cod VBA pentru a debloca o foaie Excel blocată
Cod VBA pentru a debloca o foaie Excel blocată

Dacă ați uitat vreodată o parolă pentru una dintre foile dvs. de lucru Excel, știți cât de frustrant poate fi acest lucru. Codul folosit în această instrucțiune este unul dintre cele mai simple pe care le-am găsit. Acesta va genera un cod utilizabil care vă va debloca foaia protejată. Nu pot să cred creditul pentru că l-am găsit doar într-un moment de nevoie (și nu mai găsesc unde este site-ul) … așa că nu voi fi de mare ajutor dacă nu funcționează pentru tine, dar am am avut succes și am crezut că voi împărtăși.

Pasul 1: Deschideți VBA

Deschideți VBA
Deschideți VBA

Deschideți foaia de lucru pentru care ați uitat parola. Utilizați Alt + F11 pentru a introduce editorul de macro. Odată ce în VBA faceți dublu clic pe foaia pe care trebuie să o deblocați din lista de meniu din stânga. Aceasta va deschide pagina de declarații generale pentru foaie.

Pasul 2: Tăiați și lipiți întrerupătorul de cod

Tăiați și lipiți întrerupătorul de cod
Tăiați și lipiți întrerupătorul de cod

Introduceți codul de mai jos în pagina de declarații generale pe care ați deschis-o. Nu ar trebui să schimbați nimic, numele foii etc … Trebuie doar să tăiați și să lipiți._ Sub PasswordBreaker () „Rupe protecția parolei foii de lucru. Dim i Ca întreg, j Ca întreg, k As IntegerDim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Reîncepeți Următorul Pentru i = 65 până la 66: Pentru j = 65 la 66: Pentru k = 65 la 66 Pentru l = 65 la 66: Pentru m = 65 la 66: Pentru i1 = 65 la 66 Pentru i2 = 65 la 66: Pentru i3 = 65 la 66: Pentru i4 = 65 Până la 66 Pentru i5 = 65 până la 66: Pentru i6 = 65 până la 66: Pentru n = 32 până la 126 Foaie activă. Deprotejați Chr (i) și Chr (j) & Chr (k) & _ Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & Chr (i3) & _Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) Dacă ActiveSheet. ProtectContents = False, atunci MsgBox "O parolă utilizabilă este" & 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 Dacă Next: Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next: Next End Sub_

Pasul 3: Rulați macro-ul

Rulați macro-ul
Rulați macro-ul

Odată adăugat codul, rulați Macro selectând Run din bara de file meniu din partea de sus a ecranului editorului VBA sau apăsați simplu F5

Pasul 4: utilizați codul generat

Utilizați codul generat
Utilizați codul generat
Utilizați codul generat
Utilizați codul generat
Utilizați codul generat
Utilizați codul generat

Macrocomanda vă va readuce la foaia de lucru pe care doriți să o protejați. Va apărea o casetă de stil de alertă cu un cod utilizabil. În fila meniului Revizuire, faceți clic pe Unprotect sheet. Introduceți codul generat ca parolă și ați terminat. Foaia dvs. ar trebui să fie deblocată! Ar trebui să utilizați această putere cu înțelepciune și responsabil numai pentru a debloca propriile fișe de lucru.

Recomandat: