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

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

2.Меню «Вид -> Макроси»
{{::i1.png?800|}}

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

{{::i2.png?400|}}

{{::i3.png?600|}}

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.Результат має виглядати так:

{{::i4.png?600|}}

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

{{::i5.png?600|}}

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

{{::i6.png?600|}}

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

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

{{::i7.png?600|}}

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

{{::i8.png?600|}}