Bagaimana cara mengenkripsi / mendekripsi sel yang dipilih di Excel?
Dalam beberapa kasus, Anda mungkin ingin mengenkripsi beberapa sel untuk mencegah sel dilihat oleh pengguna lain, bagaimana Anda bisa menyelesaikannya dengan cepat? Sekarang di artikel ini, saya memperkenalkan trik untuk mengenkripsi dan mendekripsi konten sel yang dipilih dengan cepat di Excel.
Enkripsi atau dekripsi sel yang dipilih dengan VBA
Enkripsi atau dekripsi sel tertentu dengan Kutools for Excel
Enkripsi atau dekripsi sel yang dipilih dengan VBA
Berikut adalah kode VBA yang dapat dengan cepat mengenkripsi atau mendekripsi sel yang dipilih di Excel.
1. tekan Alt + F11 kunci untuk ditampilkan Microsoft Visual Basic untuk Aplikasi jendela.
2. klik Menyisipkan > Modul, dan tempelkan kode VBA di bawah ini ke yang baru Modul jendela.
VBA: Mengenkripsi atau mendekripsi sel yang dipilih.
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. Kemudian tekan F5 kunci untuk menjalankan VBA, dan sebuah dialog muncul untuk memilih sel yang akan dienkripsi. Lihat tangkapan layar:
4. Lalu klik OK dan masukkan kata sandi untuk sel terenkripsi di dialog lain yang muncul. Lihat tangkapan layar:
5. klik OK, lalu di dialog ketiga, ketik 1 untuk mengenkripsi sel yang dipilih, jika Anda ingin mendekripsi sel, masukkan 2. Lihat tangkapan layar:
6. klik OK, dan sel yang dipilih dienkripsi. Lihat tangkapan layar:
Enkripsi atau dekripsi sel tertentu dengan Kutools for Excel
Dengan metode di atas untuk mengenkripsi atau mendekripsi sel sedikit rumit, tetapi jika Anda punya Kutools untuk Excel diinstal, Anda dapat menggunakan Enkripsi Sel dan Dekripsi Sel utilitas untuk menyelesaikannya dengan cepat.
Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. |
Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:
1. Pilih sel yang ingin Anda enkripsi, dan klik Kutools Ditambah > Enkripsi Sel. Lihat tangkapan layar:
2. Kemudian masukkan dan konfirmasi kata sandi di Enkripsi Sel dialog, dan pilih satu jenis enkripsi di file Masker bagian. Lihat tangkapan layar:
3. klik Ok or Mendaftar, dan sekarang sel yang dipilih dienkripsi.
Jika Anda perlu mendekripsi sel, pilih dan klik Kutools Ditambah > Dekripsi, dan masukkan sandi untuk mendekripsi mereka. Lihat tangkapan layar:
Enkripsi dan Dekripsi Sel
Artikel yang mungkin Anda minati:
- Bagaimana cara cepat membalikkan data di Excel?
- Bagaimana cara membuat daftar semua kemungkinan kombinasi 4 digit di Excel?
- Bagaimana cara menghasilkan nomor acak tanpa duplikat di Excel?
- Bagaimana cara menempelkan nilai ke sel yang terlihat / difilter hanya di Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!