VBA kods bloķētas Excel lapas atbloķēšanai: 4 soļi
VBA kods bloķētas Excel lapas atbloķēšanai: 4 soļi
Anonim
VBA kods, lai atbloķētu bloķētu Excel lapu
VBA kods, lai atbloķētu bloķētu Excel lapu
VBA kods, lai atbloķētu bloķētu Excel lapu
VBA kods, lai atbloķētu bloķētu Excel lapu

Ja kādreiz esat aizmirsis paroli kādai no savām Excel darblapām, jūs zināt, cik tas var būt apgrūtinoši. Šajā instrukcijā izmantotais kods ir viens no vienkāršākajiem, ko esmu atradis. Tas ģenerēs izmantojamu kodu, kas atbloķēs jūsu aizsargāto lapu. Es nevaru ņemt vērā kodu, jo to vienkārši atradu nepieciešamības brīdī (un es vairs nevaru atrast, kur šī vietne vairs atrodas)… tāpēc es daudz nepalīdzēšu, ja tas jums nedarbosies, bet es esmu guvu panākumus un domāju padalīties.

1. darbība: atveriet VBA

Atveriet VBA
Atveriet VBA

Atveriet darblapu, uz kuru aizmirstat savu paroli. Izmantojiet taustiņu kombināciju Alt+F11, lai ievadītu makro redaktoru. Kad esat VBA, veiciet dubultklikšķi uz lapas, kas jāatbloķē no izvēlnes saraksta kreisajā pusē. Tādējādi tiks atvērta lapas vispārīgo deklarāciju lapa.

2. darbība: izgrieziet un ielīmējiet koda pārtraucēju

Izgrieziet un ielīmējiet koda pārtraucēju
Izgrieziet un ielīmējiet koda pārtraucēju

Atvērtajā vispārīgo deklarāciju lapā ievietojiet zemāk redzamo kodu. Jums nekas nav jāmaina, lapas nosaukums utt. Vienkārši izgrieziet un ielīmējiet. k Kā IntegerDim l Kā vesels skaitlis, m kā vesels skaitlis, n kā vesels skaitlis Dim i1 kā vesels skaitlis, i2 kā vesels skaitlis, i3 kā vesels skaitlis Dim i4 kā vesels skaitlis, i5 kā vesels skaitlis, i6 kā vesels skaitlis kļūdas gadījumā Atsākt uz i = 65 līdz 66: j = 65 līdz 66: k = 65 līdz 66 l = 65 līdz 66: m = 65 līdz 66: i1 = 65 līdz 66 I2 = 65 līdz 66: i3 = 65 līdz 66: i4 = 65 Līdz 66 I5 = 65 līdz 66: i6 = 65 līdz 66: n = 32 līdz 126 ActiveSheet. Aizsargāt Chr (i) & Chr (j) & Chr (k) & _ Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & Chr (i3) & _Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) Ja ActiveSheet. ProtectContents = False Tad MsgBox "Viena lietojama parole ir" & 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 Ja nākamais: nākamais: nākamais: nākamais: nākamais: nākamais nākamais: nākamais: nākamais: nākamais: nākamais: nākamā beigu apakšpunkts _

3. darbība: palaidiet makro

Palaidiet makro
Palaidiet makro

Kad kods ir pievienots, palaidiet makro, izvēlnes cilnes joslā VBA redaktora ekrāna augšdaļā atlasot Palaist vai vienkārši nospiediet F5

4. darbība: izmantojiet ģenerēto kodu

Izmantojiet ģenerēto kodu
Izmantojiet ģenerēto kodu
Izmantojiet ģenerēto kodu
Izmantojiet ģenerēto kodu
Izmantojiet ģenerēto kodu
Izmantojiet ģenerēto kodu

Makro atgriezīs jūs darblapā, kuras aizsardzību vēlaties atcelt. Parādīsies brīdinājuma stila lodziņš ar lietojamu kodu. Izvēlnes cilnē Pārskatīšana noklikšķiniet uz Atspējot lapu. Ievadiet ģenerēto kodu kā paroli un dariet to. Jūsu lapa ir jāatbloķē! Jums vajadzētu izmantot šo jaudu gudri un atbildīgi tikai, lai atbloķētu savas darblapas.

Ieteicams: