Orodha ya maudhui:

Nambari ya VBA ya Kufungua Karatasi ya Excel iliyofungwa: Hatua 4
Nambari ya VBA ya Kufungua Karatasi ya Excel iliyofungwa: Hatua 4

Video: Nambari ya VBA ya Kufungua Karatasi ya Excel iliyofungwa: Hatua 4

Video: Nambari ya VBA ya Kufungua Karatasi ya Excel iliyofungwa: Hatua 4
Video: 12 Ideas on How to Maximize Storage in a Small Living Room 2024, Novemba
Anonim
Nambari ya VBA ya Kufungua Karatasi ya Excel iliyofungwa
Nambari ya VBA ya Kufungua Karatasi ya Excel iliyofungwa
Nambari ya VBA ya Kufungua Karatasi ya Excel iliyofungwa
Nambari ya VBA ya Kufungua Karatasi ya Excel iliyofungwa

Ikiwa umewahi kusahau nywila kwa moja ya karatasi zako bora zaidi unajua jinsi inavyoweza kukatisha tamaa. Nambari inayotumiwa katika maagizo haya ni moja wapo ya rahisi zaidi ambayo nimepata. Itatoa nambari inayoweza kutumika ambayo itafungua karatasi yako iliyohifadhiwa. Siwezi kuchukua sifa kwa nambari kwani niliipata tu wakati wa hitaji (na siwezi kupata mahali tovuti iko tena)… sooo sitakuwa msaada sana ikiwa haikufanyi kazi lakini nimekuwa nilifanikiwa nayo na nilifikiri ningeshiriki.

Hatua ya 1: Fungua VBA

Fungua VBA
Fungua VBA

Fungua karatasi ya kazi ambayo umesahau nywila yako. Tumia Alt + F11 kuingiza kihariri kikubwa. Mara moja kwenye VBA bonyeza mara mbili karatasi unayohitaji kufungua kutoka orodha ya menyu upande wa kushoto. Hii itafungua ukurasa wa matamko ya jumla kwa karatasi.

Hatua ya 2: Kata na Bandika Kivunja Msimbo

Kata na Bandika Kivunja Msimbo
Kata na Bandika Kivunja Msimbo

Ingiza nambari hapa chini katika ukurasa wa matamko ya jumla uliyofungua. Haupaswi kubadilisha kitu chochote, jina la karatasi n.k… Kata tu na ubandike. k As IntegerDim 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 hadi 66: Kwa j = 65 hadi 66: Kwa k = 65 Hadi 66 Kwa l = 65 Hadi 66: Kwa m = 65 Hadi 66: Kwa i1 = 65 Hadi 66 Kwa i2 = 65 Kwa 66: Kwa i3 = 65 Hadi 66: Kwa i4 = 65 Kwa 66 Kwa i5 = 65 Hadi 66: Kwa i6 = 65 Hadi 66: Kwa n = 32 Hadi 126 Sheet Inayotumika. & Chr (i1) & Chr (i2) & Chr (i3) & _Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) Ikiwa ActiveSheet. ProtectContents = Uongo Kisha MsgBox "Nenosiri moja linaloweza kutumika ni" & Chr (i) & Chr (j) & _ Chr (k) & Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & _ Chr (i3) & Chr (i4) na Chr (i5) & Chr (i6) & Chr (n) Toka Mwisho Mdogo Ikiwa Ifuatayo: Ifuatayo: Ifuatayo: Ifuatayo: Ifuatayo Ijayo: Ifuatayo: Ifuatayo: Ifuatayo: Ijayo Mwisho Sub_

Hatua ya 3: Endesha Macro

Endesha Macro
Endesha Macro

Mara tu msimbo umeongezwa endesha Macro kwa kuchagua Run kutoka kwenye kichupo cha menyu juu ya skrini ya mhariri wa VBA au bonyeza rahisi F5

Hatua ya 4: Tumia Nambari Iliyotengenezwa

Tumia Nambari Iliyotengenezwa
Tumia Nambari Iliyotengenezwa
Tumia Nambari Iliyotengenezwa
Tumia Nambari Iliyotengenezwa
Tumia Nambari Iliyotengenezwa
Tumia Nambari Iliyotengenezwa

Jumla itakurudisha kwenye karatasi unayotaka kuilinda. Sanduku la mtindo wa tahadhari litaonekana na nambari inayoweza kutumika. Katika kichupo cha menyu ya Mapitio bofya Karatasi ya Kulinda Ingiza nambari iliyotengenezwa kama nywila na umefanya. Karatasi yako inapaswa kufunguliwa! Unapaswa kutumia nguvu hii kwa busara na kwa uwajibikaji tu kufungua karatasi zako za kazi.

Ilipendekeza: