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
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:
4. Ansin cliceáil OK agus cuir isteach pasfhocal do na cealla criptithe i dialóg popped amach eile. Féach an pictiúr:
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:
6. cliceáil OK, agus tá na cealla roghnaithe criptithe. Féach an pictiúr:
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:
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:
3. cliceáil Ok or Cuir iarratas isteach, agus anois tá na cealla roghnaithe criptithe.
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:
Cealla a Chriptiú agus a Dhíchriptiú
Na hailt a bhféadfadh spéis a bheith agat iontu:
- Conas sonraí a smeach go tapa bun os cionn in Excel?
- Conas liosta a ghiniúint de na teaglamaí 4 dhigit uile is féidir in Excel?
- Conas uimhir randamach a ghiniúint gan dúbailtí in Excel?
- Conas luachanna a ghreamú do chealla infheicthe / scagtha in Excel amháin?
Uirlisí Táirgiúlachta Oifige is Fearr
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 ...
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á!