Шифрування «чутливих» даних в Excel файлі

1.Відкрити потрібний Excel файл, створити копію (Сохранить как…). Надалі робота виконується з копією!

2.Меню «Вид → Макроси»

3.Введіть назву макроса (1) і натисніть кнопку «Создать» (2) Примітка: назва макроса має складатися з латинських літер – рекомендуємо Encrypt

4.У створеному макросі додати наступний код :

 Dim Pass$, Key$
  Pass = InputBox("Enter key:")
  Key = WorksheetFunction.Rept(Pass, 100)
  Count = 0
  For Each cell In Selection
      Count = Count + 1
      Out = ""
      Txt = cell.Formula
      Iter = Len(Txt)
      If Iter > 255 Then Iter = 255
      For i = 1 To Iter
          Out = Out & Chr((Asc(Mid(Txt, i, 1)) + Asc(Mid(Key, i, 1))) Mod 256)
      Next i
      cell.Value = Out
  Next cell
  MsgBox Count & " items encrypted !"

5.Результат має виглядати так:

6.Закрити вікно роботи з макросами

7.На Excel листі виділити мишкою або за допомогою клавіатури (shift + стрілки) потрібний діапазон клітин

8.Далі Меню «Вид → Макроси» і натисніть кнопку «Выполнить»

9.Введіть будь-який ключ (5 – 10 букв та/або цифр ) і натисніть кнопку «Ок»

10.Отриманий результат