INHOUDSOPGAWE:

VBA -kode om 'n geslote Excel -blad te ontsluit: 4 stappe
VBA -kode om 'n geslote Excel -blad te ontsluit: 4 stappe

Video: VBA -kode om 'n geslote Excel -blad te ontsluit: 4 stappe

Video: VBA -kode om 'n geslote Excel -blad te ontsluit: 4 stappe
Video: Excel 2016 kaqpi pachata waqaychay: Askha llamkana rapikuna huk kutillapi 2024, November
Anonim
VBA -kode om 'n geslote Excel -blad te ontsluit
VBA -kode om 'n geslote Excel -blad te ontsluit
VBA -kode om 'n geslote Excel -blad te ontsluit
VBA -kode om 'n geslote Excel -blad te ontsluit

As u ooit 'n wagwoord vir een van u Excel -werkkaarte vergeet het, weet u hoe frustrerend dit kan wees. Die kode wat in hierdie instruksie gebruik word, is een van die eenvoudigste wat ek gevind het. Dit sal 'n bruikbare kode genereer wat u beskermde blad kan ontsluit. Ek kan nie die kode vir die kode aanvaar nie, want ek het dit net in 'n noodgeval gevind (en ek kan nie meer vind waar die webwerf is nie) … sooo, ek sal nie veel help as dit nie vir u werk nie, maar ek het het sukses daarmee gehad en het gedink ek deel dit.

Stap 1: Maak VBA oop

Maak VBA oop
Maak VBA oop

Maak die werkblad oop waarna u u wagwoord vergeet het. Gebruik Alt+F11 om die makro -redakteur te betree. Dubbelklik in VBA op die blad wat u moet ontsluit uit die spyskaartlys aan die linkerkant. Dit sal die algemene verklaringsbladsy vir die blad oopmaak.

Stap 2: Knip en plak die kodebreker

Knip en plak die kodebreker
Knip en plak die kodebreker

Plaas die onderstaande kode in die algemene verklaringsbladsy wat u oopgemaak het. U hoef niks, bladnaam, ens te verander nie … Knip en plak net. k As heelgetalDim l As heelgetal, m As heelgetal, n As heelgetal Dim i1 As heelgetal, i2 As heelgetal, i3 As heelgetal Dim i4 As heelgetal, i5 As heelgetal, i6 As heelgetal Op fout Hervat Volgende Vir i = 65 Tot 66: Vir j = 65 tot 66: vir k = 65 tot 66 vir l = 65 tot 66: vir m = 65 tot 66: vir i1 = 65 tot 66 vir i2 = 65 tot 66: vir i3 = 65 tot 66: vir i4 = 65 Tot 66 Vir i5 = 65 Tot 66: Vir i6 = 65 Tot 66: Vir n = 32 Tot 126 ActiveSheet. Beskerm Chr (i) & Chr (j) & Chr (k) & _ Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & Chr (i3) & _Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) As ActiveSheet. ProtectContents = Onwaar dan is MsgBox "Een bruikbare wagwoord is" & Chr (i) & Chr (j) & _ Chr (k) & Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & _ Chr (i3) & Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) Verlaat sub -einde As Volgende: Volgende: Volgende: Volgende: Volgende: Volgende Volgende: Volgende: Volgende: Volgende: Volgende: Volgende einde Sub_

Stap 3: Begin die makro

Begin die makro
Begin die makro

Sodra die kode bygevoeg is, voer die makro uit deur op die menubalk aan die bokant van die VBA -redakteurskerm Uitvoering te kies, of druk eenvoudig op F5

Stap 4: Gebruik die gegenereerde kode

Gebruik die gegenereerde kode
Gebruik die gegenereerde kode
Gebruik die gegenereerde kode
Gebruik die gegenereerde kode
Gebruik die gegenereerde kode
Gebruik die gegenereerde kode

Die makro sal u terugbring na die werkblad wat u wil beskerm. 'N Waarskuwingstylkassie verskyn met 'n bruikbare kode. Klik op die blad Beskerm in die keuselys Oorsig. Voer die gegenereerde kode in as die wagwoord en u klaar. U blad moet ontsluit word! U moet hierdie krag net verstandig en verantwoordelik gebruik om u eie werkkaarte te ontsluit.

Aanbeveel: