şifreli yazıyı deşifre etme Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Public gszData As String
Public Sub DemoEncryptData()
    gszData = CStr(Application.InputBox("Enter a string to be encrypted.", "Encyrption Demo"))
    If (gszData  CStr(False)) And (Len(gszData) > 0) Then
        EncryptDecrypt gszData
        MsgBox "The encrypted string is:" & vbLf & vbLf & gszData, vbInformation, "Encryption Demo"
    Else
        gszData = vbNullString
    End If
End Sub
Public Sub DemoDecryptData()
    If Len(gszData) > 0 Then
        EncryptDecrypt gszData
        MsgBox "The decrypted string is:" & vbLf & vbLf & gszData, vbInformation, "Encryption Demo"
    Else
        MsgBox "There is no stored data to decrypt.", vbExclamation, "Encryption Demo"
    End If
End Sub
Private Sub EncryptDecrypt(ByRef szData As String)

Const lKEY_VALUE As Long = 215
    
    Dim bytData() As Byte
    Dim lCount As Long
    
    bytData = szData
    
    For lCount = LBound(bytData) To UBound(bytData)
        bytData(lCount) = bytData(lCount) Xor lKEY_VALUE
    Next lCount

szData = bytData
    
End Sub

Benzer Sonuçlar
No	Makro Adı
1	şifreli yazıyı deşifre etme
2	veri değiştirirken uyarı alma
3	dosyayı sizden başkası kaydetmesin
4	kaydetmeden önce şifre isteme
5	Tüm Çalışma Sayfalarını Hemen Koruyun: Tüm çalışma sayfalarınızı tek seferde korumak istiyorsanız, sizin için bir koddur. & Nbsp; Bu makroyu çalıştırdığınızda, bir şifre girmek için bir giriş kutusu bulacaksınız. Parolanızı girdikten sonra Tamamı tıklayın. Ve, CAPSye dikkat etmeyi unutma.
6	şifreli giriş 0-254 arası bir sayı
7	şifreli kapali bir dosyadan veri almak
8	tüm şifreli sayfaları geri açma
9	şifreli giriş userformda textboxlu
10	excele şifreli giriş 3 hakkınız var.
11	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
12	Seçili hücredeki yazının, sayının veya ifadenin türünü tespit etme (yazı mı, sayı mı)
13	tüm excel dosyasında yazdığımız tüm kodların silinmesini
14	Excel dosyasını kaydetmeyi engelleme işlemi
15	çalışma kitabına şifreli giriş
16	hücre seçilince şifreli giriş
17	multipage geçiş şifreli
18	renkli hücreye şifreli giriş (sarı)
19	Yanlış Kelimelerle Hücreleri Vurgulayın: Yazım hatası nedeniyle tüm hücreleri kontrol etmek zorlaşırsa bu kod tam size göre. Seçimdeki her bir hücreyi kontrol eder ve yanlış yazılmış bir kelimenin bulunduğu hücreyi vurgular.
20	excel dosyası belirli bir tarihten sonra açılmasın

Benzer Sonuçlar

Makro Adı

şifreli yazıyı deşifre etme

veri değiştirirken uyarı alma

dosyayı sizden başkası kaydetmesin

kaydetmeden önce şifre isteme

Tüm Çalışma Sayfalarını Hemen Koruyun: Tüm çalışma sayfalarınızı tek seferde korumak istiyorsanız, sizin için bir koddur. & Nbsp; Bu makroyu çalıştırdığınızda, bir şifre girmek için bir giriş kutusu bulacaksınız. Parolanızı girdikten sonra Tamamı tıklayın. Ve, CAPSye dikkat etmeyi unutma.

şifreli giriş 0-254 arası bir sayı

şifreli kapali bir dosyadan veri almak

tüm şifreli sayfaları geri açma

şifreli giriş userformda textboxlu

excele şifreli giriş 3 hakkınız var.