Skip i'r prif gynnwys

Sut i amgryptio / dadgryptio celloedd dethol yn Excel?

Mewn rhai achosion, efallai yr hoffech amgryptio rhai celloedd ar gyfer atal y celloedd y mae defnyddwyr eraill yn eu gweld, sut allwch chi ei wneud yn gyflym? Nawr yn yr erthygl hon, rwy'n cyflwyno'r triciau i amgryptio a dadgryptio cynnwys celloedd dethol yn Excel yn gyflym.

Amgryptio neu ddadgryptio celloedd dethol gyda VBA

Amgryptio neu ddadgryptio celloedd dethol gyda Kutools ar gyfer Excel syniad da3


Amgryptio neu ddadgryptio celloedd dethol gyda VBA

Dyma god VBA sy'n gallu amgryptio neu ddadgryptio celloedd dethol yn Excel yn gyflym.

1. Gwasgwch Alt + F11 allweddi i'w harddangos Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a'i gludo o dan god VBA i'r newydd Modiwlau ffenestr.

VBA: Amgryptio neu ddadgryptio celloedd dethol.

Private Function StrToPsd(ByVal Txt As String) As Long
'UpdatebyKutoolsforExcel20151225
    Dim xVal As Long
    Dim xCh As Long
    Dim xSft1 As Long
    Dim xSft2 As Long
    Dim I As Integer
    Dim xLen As Integer
    xLen = Len(Txt)
    For I = 1 To xLen
        xCh = Asc(Mid$(Txt, I, 1))
        xVal = xVal Xor (xCh * 2 ^ xSft1)
        xVal = xVal Xor (xCh * 2 ^ xSft2)
        xSft1 = (xSft1 + 7) Mod 19
        xSft2 = (xSft2 + 13) Mod 23
    Next I
    StrToPsd = xVal
End Function
Private Function Encryption(ByVal Psd As String, ByVal InTxt As String, Optional ByVal Enc As Boolean = True) As String
    Dim xOffset As Long
    Dim xLen As Integer
    Dim I As Integer
    Dim xCh As Integer
    Dim xOutTxt As String
    xOffset = StrToPsd(Psd)
    Rnd -1
    Randomize xOffset
    xLen = Len(InTxt)
    For I = 1 To xLen
        xCh = Asc(Mid$(InTxt, I, 1))
        If xCh >= 32 And xCh <= 126 Then
            xCh = xCh - 32
            xOffset = Int((96) * Rnd)
            If Enc Then
                xCh = ((xCh + xOffset) Mod 95)
            Else
                xCh = ((xCh - xOffset) Mod 95)
                If xCh < 0 Then xCh = xCh + 95
            End If
            xCh = xCh + 32
            xOutTxt = xOutTxt & Chr$(xCh)
        End If
    Next I
    Encryption = xOutTxt
End Function
Sub EncryptionRange()
    Dim xRg As Range
    Dim xPsd As String
    Dim xTxt As String
    Dim xEnc As Boolean
    Dim xRet As Variant
    Dim xCell As Range
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    xPsd = InputBox("Enter password:", "Kutools for Excel")
    If xPsd = "" Then
        MsgBox "Password cannot be empty", , "Kutools for Excel"
        Exit Sub
    End If
    xRet = Application.InputBox("Type 1 to encrypt cell(s);Type 2 to decrypt cell(s)", "Kutools for Excel", , , , , , 1)
    If TypeName(xRet) = "Boolean" Then Exit Sub
    If xRet > 0 Then
        xEnc = (xRet Mod 2 = 1)
        For Each xCell In xRg
            If xCell.Value <> "" Then
                xCell.Value = Encryption(xPsd, xCell.Value, xEnc)
            End If
        Next
    End If
End Sub

3. Yna pwyswch F5 allwedd i weithredu'r VBA, ac mae deialog yn galw allan am ddewis celloedd i'w hamgryptio. Gweler y screenshot:
amgryptio doc dadgryptio 1

4. Yna cliciwch OK a nodi cyfrinair ar gyfer y celloedd wedi'u hamgryptio mewn deialog popped arall. Gweler y screenshot:
amgryptio doc dadgryptio 2

5. Cliciwch OK, ac yna yn y trydydd deialog, teipiwch 1 i amgryptio celloedd dethol, os ydych chi am ddadgryptio celloedd, nodwch 2. Gweler y screenshot:
amgryptio doc dadgryptio 3

6. Cliciwch OK, ac mae'r celloedd a ddewiswyd wedi'u hamgryptio. Gweler y screenshot:
amgryptio doc dadgryptio 4


Amgryptio neu ddadgryptio celloedd dethol gyda Kutools ar gyfer Excel

Gyda'r dull uchod i amgryptio neu ddadgryptio celloedd ychydig yn gymhleth, ond os oes gennych chi hynny Kutools ar gyfer Excel wedi'i osod, gallwch ei ddefnyddio Amgryptio Celloedd ac Dadgryptio Celloedd cyfleustodau i'w gyflawni'n gyflym.

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel isod:

1. Dewiswch y celloedd rydych chi am eu hamgryptio, a chlicio Kutools Byd Gwaith > Amgryptio Celloedd. Gweler y screenshot:
amgryptio doc dadgryptio 5

2. Yna nodwch a chadarnhewch y cyfrinair yn y Amgryptio Celloedd deialog, a dewis un math amgryptio yn y Mask adran. Gweler y screenshot:
amgryptio doc dadgryptio 6

3. Cliciwch Ok or Gwneud cais, ac yn awr mae'r celloedd a ddewiswyd wedi'u hamgryptio.
amgryptio doc dadgryptio 7

Os oes angen i chi ddadgryptio'r celloedd, dewiswch nhw a chlicio Kutools Byd Gwaith > Dadgryptio, a nodi'r cyfrinair i'w dadgryptio. Gweler y screenshot:

amgryptio doc dadgryptio 8  mae doc kutools yn amgryptio celloedd 5

Yr erthyglau y gallai fod gennych ddiddordeb ynddynt:

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
what to do if i forgot the password for first method ?
This comment was minimized by the moderator on the site
Thanks - very useful. A couple of low-importance questions from me. 1. Why do you prefix your variables with the character "x"? I'm not quite seeing what benefit this provides. 2. What does the "Sft" in "xSft1" and "xSft2" stand for?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations