INHOUDSOPGAWE:
2025 Outeur: John Day | [email protected]. Laas verander: 2025-01-13 06:56
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 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
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
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
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.