Эмнелерди билүү керек
- Ээси катары коргоону алып салуу: Электрондук жадыбалды ачыңыз. Review > Коргоодон чыгаруу тандаңыз. Файлды коргоо үчүн колдонулган сырсөздү киргизиңиз. OK тандаңыз.
- Сырсөзсүз коргоону чыгаруу: Электрондук жадыбалды ачыңыз. Visual Basic код редакторун Иштеп чыгуучу тандоо менен ачыңыз > Кодду көрүү.
- Андан соң, бул макалада берилген кодду киргизип, Run тандаңыз. Бир нече мүнөттөн кийин сырсөз ачылат. OK тандаңыз.
Бул макалада Excel иш китептерин сырсөз менен иштөө китебинин ээси катары же сырсөзсүз жеке адам катары коргоону кантип алып салуу керектиги түшүндүрүлөт. Бул маалымат Microsoft Excel 365, Microsoft Excel 2019, 2016 жана 2013-жылдагы Excel жумушчу китептерине тиешелүү.
Excel жумушчу китебинин ээси катары кулпусун кантип ачуу керек
Microsoft Excel өзгөчөлүктөргө бай. Мындай функциялардын бири - Excel файлдарыңызды клетка, электрондук жадыбал же жумушчу китеп деңгээлинде коргоо мүмкүнчүлүгү. Кээде берилиштерди өзгөртүү туура колдонулушу үчүн Excel иш китептеринин коргоосун алып салуу керек болот.
Бул ыкма файлдын ээси катары электрондук жадыбалды коргоо үчүн колдонулган сырсөздү эстеп каласыз деп болжолдойт.
-
Коргооланган электрондук жадыбалды ачып, Карап чыгуу > Коргоодон чыгаруу тандаңыз. Ошондой эле корголгон электрондук жадыбалды оң баскыч менен чыкылдатып, андан кийин Коргоодон чыгаруу дегенди тандасаңыз болот.
Сиз корголгон электрондук жадыбалды лентадагы Карап чыгуу өтмөгүндөгү Өзгөрүүлөр бөлүмүндө аныктай аласыз. Электрондук жадыбал корголгон болсо, сиз Баракты коргоо опциясын көрөсүз.
-
Электрондук жадыбалды коргоо үчүн колдонулган сырсөздү киргизип, андан кийин OK дегенди тандаңыз.
-
Электрондук жадыбалыңыз эми корголбойт жана аны өзгөртүүгө болот.
Сырсөздү билбей туруп Excel жумушчу китебин кантип коргоону алып салуу керек
Сиз Excel иш китебиңизди же электрондук жадыбалыңызды коргоп, аны бир нече убакыт, атүгүл жылдар бою өзгөртүүгө туура келбеген болушуңуз мүмкүн. Эми сиз өзгөртүүлөрдү киргизишиңиз керек болгондуктан, бул жадыбалды коргоо үчүн колдонгон сырсөзүңүздү эстебей каласыз.
Бактыга жараша, бул кадамдар сырсөздү аныктоо үчүн Virtual Basic скриптин макрос катары колдонуу менен жумушчу китебиңизди коргоону алып салууга мүмкүндүк берет.
- Коргооланган электрондук жадыбалды ач.
-
Visual Basic код редакторуна же ALT+F11 баскычын басуу менен кириңиз же Иштеп чыгуучу > Кодду көрүү тандаңыз.
-
Корголгон барактын Код терезесине төмөнкү кодду киргизиңиз:
Sub PasswordBreaker()
Dim i Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
Катадан кийинки улантуу
For i=65 – 66: j үчүн=65тен 66га чейин: k=65тен 66га чейин
үчүн l=65тен 66га чейин: m үчүн=65тен 66га чейин: i1 үчүн=65тен 66
үчүн i2 үчүн=65тен 66га чейин: i3 үчүн=65тен 66га чейин: i4 үчүн=65тен 66га чейин
i5 үчүн=65тен 66га чейин: i6 үчүн=65тен 66га чейин: n үчүн=32ден 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 "Бир колдонууга боло турган сырсөз" & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Чыгуу Кошумча
Эгерде бүтсө
Кийинки: Кийинки: Кийинки: Кийинки: Кийинки: Кийинки
Кийинки: Кийинки: Кийинки: Кийинки: Кийинки: Кийинки
Аягы Кошумча
-
Run тандаңыз же кодду аткаруу үчүн F5 басыңыз.
-
Кодду иштетүү үчүн бир нече мүнөт талап кылынат. Бүткөндөн кийин, сиз сырсөз менен калкыма терезе аласыз. OK тандасаңыз, электрондук жадыбалыңыз корголбой калат.
Бул түпнуска сырсөз эмес жана аны эстеп калуунун кереги жок.