Skip to main content

Conas cealla roghnaithe a chriptiú / dhíchriptiú in Excel?

I roinnt cásanna, b’fhéidir gur mhaith leat roinnt cealla a chriptiú chun na cealla a bhreathnaíonn úsáideoirí eile a chosc, conas is féidir leat é a dhéanamh go tapa? Anois san alt seo, tugaim isteach na cleasanna chun ábhar roghnaithe cille in Excel a chriptiú agus a dhíchriptiú go tapa.

Cealla roghnaithe a chriptiú nó a dhíchriptiú le VBA

Déan cealla roghnaithe a chriptiú nó a dhíchriptiú le Kutools le haghaidh Excel smaoineamh maith3


Cealla roghnaithe a chriptiú nó a dhíchriptiú le VBA

Seo cód VBA atá in ann cealla roghnaithe a chriptiú nó a dhíchriptiú go tapa in Excel.

1. Brúigh Alt + F11 eochracha le taispeáint Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. cliceáil Ionsáigh > Modúil, agus greamaigh faoi bhun chód VBA leis an gceann nua Modúil fhuinneog.

VBA: Cealla roghnaithe a chriptiú nó a dhíchriptiú.

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. Ansin brúigh F5 eochair chun an VBA a fhorghníomhú, agus tagann dialóg amach chun cealla a roghnú le criptiú. Féach an pictiúr:
criptigh doc criptigh 1

4. Ansin cliceáil OK agus cuir isteach pasfhocal do na cealla criptithe i dialóg popped amach eile. Féach an pictiúr:
criptigh doc criptigh 2

5. cliceáil OK, agus ansin sa tríú dialóg, clóscríobh 1 chun cealla roghnaithe a chriptiú, más mian leat cealla a dhíchriptiú, iontráil 2. Féach an pictiúr:
criptigh doc criptigh 3

6. cliceáil OK, agus tá na cealla roghnaithe criptithe. Féach an pictiúr:
criptigh doc criptigh 4


Déan cealla roghnaithe a chriptiú nó a dhíchriptiú le Kutools le haghaidh Excel

Leis an modh thuas chun cealla a chriptiú nó a dhíchriptiú tá sé rud beag casta, ach má tá Kutools le haghaidh Excel suiteáilte, is féidir leat a úsáid Cealla a Chriptiú agus Cealla a Dhíchriptiú fóntais chun é a chur i gcrích go tapa.

Kutools le haghaidh Excel, le níos mó ná 300 feidhmeanna úsáideacha, déanann sé do phoist níos éasca. 

Tar éis suiteáil saor in aisce Kutools for Excel, déan mar atá thíos le do thoil:

1. Roghnaigh na cealla is mian leat a chriptiú, agus cliceáil Kutools Plus > Cealla a Chriptiú. Féach an pictiúr:
criptigh doc criptigh 5

2. Ansin cuir isteach agus dearbhaigh an focal faire sa Cealla a Chriptiú dialóg, agus roghnaigh cineál criptithe amháin sa Masc alt. Féach an pictiúr:
criptigh doc criptigh 6

3. cliceáil Ok or Cuir iarratas isteach, agus anois tá na cealla roghnaithe criptithe.
criptigh doc criptigh 7

Más gá duit na cealla a dhíchriptiú, roghnaigh iad agus cliceáil Kutools Plus > Díchriptigh, agus cuir isteach an pasfhocal chun iad a dhíchriptiú. Féach an pictiúr:

criptigh doc criptigh 8  criptíonn doc kutools cealla 5

Na hailt a bhféadfadh spéis a bheith agat iontu:

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
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