BACK

 

 

 

Kako šifrirati tekst

     

Sub sifriranje()

   Dim x As Integer
   Dim trk As String
   Dim Pojam As String
     Range("a1") = "CROexcel.com 1234567890 !""""#$"
     Pojam = Range("a1")
     For x = 1 To Len(Pojam) Step 1
     If trk = " " Then
     trk = trk & "032"
     End If
     trk = trk & Format(Asc(Mid(Pojam, x, 1)), "000")
     Next
    Range("a1") = trk
  End Sub

Kopirajte u modul i pokrenite makro

 

 

Kako dešifrirati isti tekst

     

Sub desifriranje()

    Dim x As Integer
   Dim trk As String
     Dim Pojam As String
   On Error Resume Next
     Pojam = Range("a1")
   For x = 1 To Len(Pojam) Step 3
     trk = trk & Chr(Mid(Pojam, x, 3))
  Next
     Range("a1") = trk
End Sub

Kopirajte u modul i vidite što se skriva iza  "Pojma"

 

Mnogi su tražili kako šifrirati i dešifrirati tekst koji se napiše u Excelu da ga se ne može

pročitati. Radi se naime o jednostavnom šifriranju teksta.

Ostavljam svakom ponaosob da ovom kodu dodaju petlju i da prolaskom kroz pune ćelije

šifriraju ili dešiifriraju takst (naizmjeničnim pokretanjem makroa izmjenjivat će se sadržaj ćelije).

 

Back to Top

 

Iz modula u modul upisati kod

Public Sub test()
   Dim oModul As Object
   Dim Knji As Workbook
   Set Knji = Workbooks.Add
   Set oModul = Knji.VBProject.VBComponents.Add(1)
     With oModul.CodeModule
       .InsertLines 1, "Sub Test()"
       .InsertLines 2, " Activesheet.Cells(1,1) = 23"
       .InsertLines 3, "End Sub"
    End With
End Sub