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

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 y nodir 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:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 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 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 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 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (2)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch - defnyddiol iawn. Cwpl o gwestiynau pwysig iawn gen i. 1. Pam ydych chi'n rhagddodi'ch newidynnau gyda'r nod "x"? Dydw i ddim yn gweld yn union pa fudd y mae hyn yn ei roi. 2. Beth mae'r "Sft" yn "xSft1" a "xSft2" yn ei olygu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth i'w wneud os anghofiais y cyfrinair ar gyfer y dull cyntaf?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir