Note: The other languages of the website are Google-translated. Back to English

Sut i adfer cyfrinair amddiffyn taflen waith a gollwyd yn Excel?

Rydym bob amser yn gosod cyfrineiriau i amddiffyn rhai taflenni gwaith pwysig rhag cael eu dinistrio neu eu haddasu gan eraill. Ond os anghofiwch eich cyfrineiriau, sut allech chi wneud? Yn ffodus, mae Excel yn cefnogi rhywfaint o god VBA i adfer eich cyfrinair amddiffyn taflen waith a gollwyd. Gallwch ddelio â'r broblem hon fel hyn:

Adennill cyfrinair amddiffyn taflen waith a gollwyd yn Excel gyda chod VBA
Mwy o diwtorial ar gyfer amddiffyn taflen waith ...


Adennill cyfrinair amddiffyn taflen waith a gollwyd yn Excel gyda chod VBA

Gall y cod VBA canlynol eich helpu i ganslo'ch cyfrineiriau gwreiddiol yn gyflym mewn taflen waith.

1. Agorwch eich taflen waith sydd wedi'i gwarchod o'r blaen.

2. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: adfer cyfrinair amddiffyn taflen waith a gollwyd

Sub PasswordRecovery()
Dim i As Integer, j As Integer, k As Integer
Dim 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 Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
ActiveSheet.Unprotect 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 Then
MsgBox "One usable password 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)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

4. Yna cliciwch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan, cliciwch OK i'w chau, a bydd eich cyfrineiriau o'r daflen waith warchodedig yn cael eu canslo ar unwaith.

Nodiadau:

1. Gyda'r cod hwn, dim ond un cyfrinair amddiffyn taflen waith rydych chi'n ei adfer ar y tro, os oes sawl taflen waith warchodedig, mae angen i chi gymhwyso'r cod hwn fesul un.
2. Daw'r cod uchod http://excelzoom.com/2009/08/how-to-recover-lost-excel-passwords/.


Gwarchod taflenni gwaith lluosog yn hawdd ar yr un pryd â chyfrinair yn Excel:

Mae practis meddygol Amddiffyn Taflenni Gwaith cyfleustodau Kutools ar gyfer Excel gall eich helpu i amddiffyn nifer o daflenni gwaith mewn swmp gyda'r un cyfrinair. Mae hefyd yn darparu cyfleustodau i amddiffyn y taflenni gwaith hyn ar yr un pryd. Lawrlwythwch y nodwedd lawn

-diwrnod am ddim llwybr o Kutools ar gyfer Excel nawr!


Erthyglau perthnasol

Sut i amddiffyn nifer o daflenni gwaith ar unwaith yn Excel?

Sut i amddiffyn nifer o daflenni gwaith ar unwaith yn Excel?


Yr Offer Cynhyrchedd Swyddfa Gorau

Kutools ar gyfer Excel Yn Datrys y Rhan fwyaf o'ch Problemau, Ac Yn Cynyddu Eich Cynhyrchiant erbyn
80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na
    300
    nodweddion pwerus
    . Yn cefnogi Office/Excel
    2007-2019 a 365
    . Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn
    30
    - treial am ddim diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant gan
    50%
    , ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (98)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid oedd adferiad pas yn gweithio i mi yn excel 2013
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch!!! Yn gweithio'n iawn gyda swyddfa 2007
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwych !!!!!!!!! gweithio'n iawn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Atgyweiriad syml. Achos arall o "gwybodaeth yw grym!" Diolch am rannu eich gwybodaeth i rymuso eraill!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wedi gweithio'n ddi-ffael. Mae gwybodaeth yn bŵer, Diolch am rannu'ch gwybodaeth i rymuso eraill!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Dîm Yn unol â'ch geiriau fe wnes i hynny a datrys fy mhroblem ond problem arall yw bod gen i ddalen excel lle mae un ddalen wedi'i diogelu gan gyfrinair a phan fyddaf yn pwyso Alt+F11 a dewis Insert Option mae analluogi'r opsiwn Moudle felly Sut gallaf ei adfer. Awgrymwch fi os gwelwch yn dda.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wedi gweithio fel swyn yn Excel 2013 !!! Chi yw'r gorau, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn!! fe weithiodd i mi ...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch Chacha G (Google)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn am yr help bron â rhoi'r gorau iddi yn gynharach nes i mi roi cynnig ar eich dull mae'n gweithio ar unwaith diolch eto
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Agorais y ffeil roeddwn i eisiau ei dad-ddiogelu a gofynnwyd i mi nodi cyfrinair. Daliais allweddi Alt + F11 i lawr ac fe wnaeth bylu sgrin fy nghyfrifiadur. Wnes i erioed fynd heibio'r pwynt hwnnw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n defnyddio Microsoft Excel 2007 a phan agorais y ffeil sydd wedi'i diogelu gofynnodd am y cyfrinair a anghofiais. Pan fyddaf yn dal Alt + F11 i lawr ar yr un pryd mae'r sgrin yn pylu ac nid wyf byth yn mynd heibio'r pwynt hwnnw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwybodaeth Ddefnyddiol ac Amserol Iawn. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae'n gweithio.... Diolch yn fawr iawn :-)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ni allaf ddiolch digon ichi am eich cymorth caredig. Dymuniadau gorau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth yw tua amser rhedeg ar gyfer hyn? Mae fy mheiriant yn sownd am ychydig 30 munud nawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Anhygoel. Ti yw Athrylith
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Anhygoel! Diolch am helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwych!!! Wedi helpu llawer :lol:
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch cefnogaeth. Mae byd yr IOT wir yn newid ein bywydau. Diolch!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL