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
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:
4. Yna cliciwch OK a nodi cyfrinair ar gyfer y celloedd wedi'u hamgryptio mewn deialog popped arall. Gweler y screenshot:
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:
6. Cliciwch OK, ac mae'r celloedd a ddewiswyd wedi'u hamgryptio. Gweler y screenshot:
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:
2. Yna nodwch a chadarnhewch y cyfrinair yn y Amgryptio Celloedd deialog, a dewis un math amgryptio yn y Mask adran. Gweler y screenshot:
3. Cliciwch Ok or Gwneud cais, ac yn awr mae'r celloedd a ddewiswyd wedi'u hamgryptio.
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 A Dadgryptio Celloedd
Yr erthyglau y gallai fod gennych ddiddordeb ynddynt:
- Sut i droi data wyneb i waered yn gyflym yn Excel?
- Sut i gynhyrchu rhestr o'r holl gyfuniadau 4 digid posib yn Excel?
- Sut i gynhyrchu rhif ar hap heb ddyblygu yn Excel?
- Sut i gludo gwerthoedd i gelloedd gweladwy / hidlo yn Excel yn unig?
Offer Cynhyrchiant Swyddfa Gorau
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...
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!