Kako šifrirati / dešifrirati izbrane celice v Excelu?
V nekaterih primerih boste morda želeli šifrirati nekatere celice, da preprečite celice, ki si jih ogledajo drugi uporabniki. Kako lahko to hitro storite? Zdaj v tem članku predstavljam trike za hitro šifriranje in dešifriranje izbrane vsebine celic v Excelu.
Šifriranje ali dešifriranje izbranih celic z VBA
Šifriranje ali dešifriranje izbranih celic s programom Kutools za Excel
Šifriranje ali dešifriranje izbranih celic z VBA
Tu je koda VBA, ki lahko hitro šifrira ali dešifrira izbrane celice v Excelu.
1. Pritisnite Alt + F11 tipke za prikaz Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduliin pod novo kodo prilepite pod kodo VBA Moduli okno.
VBA: šifriranje ali dešifriranje izbranih celic.
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. Nato pritisnite F5 tipko za zagon VBA in odpre se pogovorno okno za izbiro celic za šifriranje. Oglejte si posnetek zaslona:
4. Nato kliknite OK in v drugo izpustno pogovorno okno vnesite geslo za šifrirane celice. Oglejte si posnetek zaslona:
5. klik OKin nato v tretjem pogovornem oknu vnesite 1 če želite šifrirati izbrane celice, če želite dešifrirati celice, vnesite 2. Oglejte si posnetek zaslona:
6. klik OK, izbrane celice pa so šifrirane. Oglejte si posnetek zaslona:
Šifriranje ali dešifriranje izbranih celic s programom Kutools za Excel
Z zgornjim načinom je šifriranje ali dešifriranje celic nekoliko zapleteno, če pa že Kutools za Excel lahko uporabite Šifriraj celice in Dešifriraj celice pripomočki za hitro izvedbo.
Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. |
po brezplačna namestitev Kutools za Excel, naredite spodaj:
1. Izberite celice, ki jih želite šifrirati, in kliknite Kutools Plus > Šifriraj celice. Oglejte si posnetek zaslona:
2. Nato vnesite in potrdite geslo v Šifriraj celice in izberite eno vrsto šifriranja v Maska odsek. Oglejte si posnetek zaslona:
3. klik Ok or Uporabi, zdaj pa so izbrane celice šifrirane.
Če želite celice dešifrirati, jih izberite in kliknite Kutools Plus > Dešifrirajin vnesite geslo za njihovo dešifriranje. Oglejte si posnetek zaslona:
Šifriranje in dešifriranje celic
Članki, ki vas bodo morda zanimali:
- Kako hitro obrniti podatke na glavo v Excelu?
- Kako ustvariti seznam vseh možnih 4-mestnih kombinacij v Excelu?
- Kako ustvariti naključno številko brez dvojnikov v Excelu?
- Kako prilepiti vrednosti v vidne / filtrirane celice samo v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!