Excel'de seçili hücreleri nasıl şifreleyebilir / şifresini çözebilirim?
Bazı durumlarda, diğer kullanıcılar tarafından görüntülenen hücreleri engellemek için bazı hücreleri şifrelemek isteyebilirsiniz, bunu nasıl hızlı bir şekilde yapabilirsiniz? Şimdi bu makalede, Excel'de seçilen hücre içeriğini hızlı bir şekilde şifrelemek ve şifresini çözmek için püf noktaları tanıtıyorum.
VBA ile seçili hücreleri şifreleyin veya şifresini çözün
Kutools for Excel ile seçilen hücreleri şifreleyin veya şifresini çözün
VBA ile seçili hücreleri şifreleyin veya şifresini çözün
İşte Excel'de seçili hücreleri hızlı bir şekilde şifreleyebilen veya şifresini çözebilen bir VBA kodu.
1. Basın Alt + F11 görüntüleme tuşları Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modülve VBA kodunun altına yeni modül pencere.
VBA: Seçili hücreleri şifreleyin veya şifresini çözün.
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. Ardından F5 VBA'yı yürütmek için anahtar ve şifrelenecek hücreleri seçmek için bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
4. Sonra tıklayın OK ve başka bir açılan iletişim kutusunda şifrelenmiş hücreler için parolayı girin. Ekran görüntüsüne bakın:
5. tık OKve ardından üçüncü iletişim kutusuna yazın 1 seçili hücreleri şifrelemek için, hücrelerin şifresini çözmek istiyorsanız 2. Ekran görüntüsüne bakın:
6. tık OKve seçilen hücreler şifrelenir. Ekran görüntüsüne bakın:
Kutools for Excel ile seçilen hücreleri şifreleyin veya şifresini çözün
Yukarıdaki yöntemle hücreleri şifrelemek veya şifresini çözmek biraz karmaşıktır, ancak Kutools for Excel yüklü, kullanabilirsiniz Hücreleri Şifrele ve Hücrelerin Şifresini Çöz hızlı bir şekilde halletmek için yardımcı programlar.
Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. |
Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:
1. Şifrelemek istediğiniz hücreleri seçin ve Kutools Artı > Hücreleri Şifrele. Ekran görüntüsüne bakın:
2. Ardından, şifreyi girin ve onaylayın. Hücreleri Şifrele iletişim kutusuna gidin ve bir şifreleme türü seçin Maske Bölüm. Ekran görüntüsüne bakın:
3. tık Ok or Tamamve şimdi seçilen hücreler şifrelenmiştir.
Hücrelerin şifresini çözmeniz gerekirse, onları seçin ve tıklayın. Kutools Artı > azalmakve şifresini çözmek için şifreyi girin. Ekran görüntüsüne bakın:
Hücreleri Şifreleme ve Şifresini Çözme
İlginizi çekebilecek makaleler:
- Excel'de verileri hızlı bir şekilde ters çevirmek nasıl?
- Excel'deki tüm olası 4 basamaklı kombinasyonların bir listesini nasıl oluşturabilirim?
- Excel'de kopyalar olmadan rastgele sayı nasıl oluşturulur?
- Değerleri yalnızca Excel'de görünen / filtrelenmiş hücrelere nasıl yapıştırabilirim?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!