Excel'de seçili hücreleri nasıl şifreleyebilir veya şifresini nasıl çözebilirim?
Bazı durumlarda, diğer kullanıcıların belirli hücreleri görmesini engellemek için bu hücreleri şifrelemek isteyebilirsiniz. Peki bunu nasıl hızlıca yapabilirsiniz? Bu makalede, Excel’de seçili hücre içeriklerini anında şifrelemek ve şifresini çözmek için kullanabileceğiniz pratik yöntemleri paylaşıyorum.
Seçili hücreleri VBA ile şifreleme veya şifresini çözme
Seçili hücreleri Kutools for Excel ile şifreleme veya şifresini çözme 
Seçili hücreleri VBA ile şifreleme veya şifresini çözme
Excel'de seçili hücreleri hızlıca şifrelemek veya şifresini çözmek için kullanabileceğiniz bir VBA kodu aşağıdadır.
1. Microsoft Visual Basic for Applications penceresini göstermek için Alt + F11 tuşlarına basın.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki VBA kodunu yeni Modül penceresine yapıştırın.
VBA: Seçili hücreleri şifreleyin veya şifrelerini çö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 Sub3. Ardından VBA'yı çalıştırmak için F5 tuşuna basın; şifrelenecek hücreleri seçmeniz için bir iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:
4. Ardından Tamam düğmesine tıklayın ve açılan başka bir iletişim kutusunda Hücreleri Şifrele için bir parola girin. Ekran görüntüsüne bakın:
5. Tamam düğmesine tıklayın; ardından üçüncü iletişim kutusunda seçili hücreleri şifrelemek için 1 yazın. Eğer hücreleri şifresini çözmek istiyorsanız, 2 girin. Ekran görüntüsüne bakın:
6. Tamam düğmesine tıklayın; seçili hücreler artık şifrelenmiştir. Ekran görüntüsüne bakın:
Seçili hücreleri Kutools for Excel ile şifreleme veya şifresini çözme
Yukarıdaki yöntemi kullanarak şifreleme veya hücrelerin şifresini çözme işlemi biraz karmaşık olabilir; ancak Kutools for Excel yüklüyse, bu işlemleri hızlıca gerçekleştirmek için Hücreleri Şifrele ve Hücreleri Şifre Çöz yardımcı programlarını kullanabilirsiniz.
Kutools for Excel uygulamasını ücretsiz olarak yükledikten sonra, aşağıdaki adımları uygulayın:ücretsiz yükleyipKutools for Excel
1. Şifrelemek istediğiniz hücreleri seçin ve KUTOOLS PLUS > Hücreleri Şifrele seçeneğine tıklayın. Ekran görüntüsüne bakın:
2. Ardından, Hücreleri Şifrele iletişim kutusunda parolanızı girip onaylayın ve Maskele bölümünden bir şifreleme türü seçin. Ekran görüntüsüne bakın:
3. Tamam veya Uygula düğmesine tıklayın; artık seçili hücreler şifrelenmiştir.
Hücrelerin şifresini çözmek istiyorsanız, öncelikle bunları seçin, ardından KUTOOLS PLUS > Şifresini Çöz seçeneğine tıklayıp parolanızı girerek şifrelerini çözün. Ekran görüntüsüne bakın:
Şifrele ve Hücreleri Şifre Çöz
İlginizi çekebilecek diğer makaleler:
- Excel'de verileri hızlıca ters çevirmek nasıl yapılır?
- Excel'de tüm olası 4 haneli kombinasyonları içeren bir liste nasıl oluşturulur?
- Excel’de yinelenmeyen rastgele sayılar nasıl oluşturulur?
- Excel'de yalnızca görünür (filtrelenmiş) hücrelere değerleri nasıl yapıştırabilirsiniz?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar