Përmbajtje:
2025 Autor: John Day | [email protected]. E modifikuara e fundit: 2025-01-13 06:58
Nëse keni harruar ndonjëherë një fjalëkalim për njërën nga fletët tuaja të punës excel, e dini sa frustruese mund të jetë. Kodi i përdorur në këtë udhëzim është një nga më të thjeshtë që kam gjetur. Do të krijojë një kod të përdorshëm që do të zhbllokojë fletën tuaj të mbrojtur. Unë nuk mund të marr kredi për kodin pasi thjesht e gjeta atë në një moment nevoje (dhe nuk mund ta gjej se ku është sajti) … kështu që nuk do të jem shumë ndihmë nëse nuk funksionon për ju, por unë kisha sukses me të dhe mendova ta ndaja.
Hapi 1: Hapni VBA
Hapni fletën e punës për të cilën harroni fjalëkalimin tuaj. Përdorni Alt+F11 për të hyrë në redaktuesin makro. Pasi në VBA klikoni dy herë fletën që ju duhet të zhbllokoni nga lista e menysë në të majtë. Kjo do të hapë faqen e deklaratave të përgjithshme për fletën.
Hapi 2: Pritini dhe Ngjitni Shkelësin e Kodit
Vendosni kodin më poshtë në faqen e përgjithshme të deklaratave që keni hapur. Ju nuk duhet të ndryshoni asgjë, emrin e fletës etj … Thjesht prerë dhe ngjitur._ Sub PasswordBreaker () 'Thyejnë mbrojtjen e fjalëkalimit të fletës së punës. Dim i As Integer, j Si Integer, k Si IntegerDim l Si Integer, m Si Integer, n Si Integer Dim i1 Si Integer, i2 Si Integer, i3 Si Integer Dim i4 Si Integer, i5 Si Integer, i6 Si Integer On Error Resume Next For i = 65 deri 66: Për j = 65 - 66: Për k = 65 - 66 Për l = 65 - 66: Për m = 65 - 66: Për i1 = 65 - 66 Për i2 = 65 - 66: Për i3 = 65 - 66: Për i4 = 65 Për 66 Për i5 = 65 Në 66: Për i6 = 65 Në 66: Për n = 32 Në 126 ActiveSheet. Mos mbroni Chr (i) & Chr (j) & Chr (k) & _ Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & Chr (i3) & _Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) If ActiveSheet. ProtectContents = false Atëherë MsgBox "Një fjalëkalim i përdorshëm është" & 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 Nëse Tjetër: Tjetër: Tjetër: Tjetër: Tjetër: Tjetër Tjetër: Tjetër: Tjetër: Tjetër: Tjetër: Fundi Tjetër Nën _
Hapi 3: Drejtoni Macro
Pasi të shtohet kodi drejtoni Macro duke zgjedhur Run nga shiriti i skedës së menysë në krye të ekranit të redaktorit VBA ose shtypni thjeshtë F5
Hapi 4: Përdorni Kodin e Gjeneruar
Makro do t'ju kthejë në fletën e punës që dëshironi të mos mbroni. Do të shfaqet një kuti e stilit të alarmit me një kod të përdorshëm. Në skedën e menysë Rishikimi klikoni Fletë e pambrojtur. Futni kodin e gjeneruar si fjalëkalim dhe përfunduar. Fleta juaj duhet të zhbllokohet! Ju duhet ta përdorni këtë fuqi me mençuri dhe përgjegjësi vetëm për të zhbllokuar fletët tuaja të punës.