Перейти к основному содержанию
 

Как зашифровать / расшифровать выбранные ячейки в Excel?

Автор: Сан Последнее изменение: 2024 июля 09 г.

В некоторых случаях вы можете захотеть зашифровать некоторые ячейки, чтобы предотвратить просмотр ячеек другими пользователями. Как это сделать быстро? В этой статье я расскажу о приемах быстрого шифрования и дешифрования содержимого выбранных ячеек в Excel.

Зашифровать или расшифровать выбранные ячейки с помощью VBA

Зашифровать или расшифровать выбранные ячейки с помощью Kutools for Excel хорошая идея3


Зашифровать или расшифровать выбранные ячейки с помощью VBA

Вот код VBA, который может быстро зашифровать или расшифровать выбранные ячейки в Excel.

1. Нажмите Alt + F11 ключи для отображения Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте ниже код VBA в новый Модули окно.

VBA: зашифровать или расшифровать выбранные ячейки.

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 Sub

3. Затем нажмите F5 ключ для выполнения VBA, и появится диалоговое окно для выбора ячеек для шифрования. Смотрите скриншот:
код vba для выбора данных для защиты

4. Затем нажмите OK и введите пароль для зашифрованных ячеек в другом всплывающем диалоговом окне. Смотрите скриншот:
vba код для ввода пароля

5. Нажмите OK, а затем в третьем диалоговом окне введите 1 чтобы зашифровать выбранные ячейки, если вы хотите расшифровать ячейки, введите 2. Смотрите скриншот:
введите 1 для шифрования выбранных ячеек, введите 2 для расшифровки ячеек

6. Нажмите OK, и выбранные ячейки зашифрованы. Смотрите скриншот:
выбранные ячейки зашифрованы


Зашифровать или расшифровать выбранные ячейки с помощью Kutools for Excel

С помощью вышеуказанного метода шифрования или дешифрования ячеек немного сложно, но если у вас есть Kutools for Excel установлен, вы можете использовать Зашифровать ячейки , так и Расшифровать ячейки утилиты, чтобы быстро это сделать.

Kutools for Excel предлагает более 300 расширенных функций для оптимизации сложных задач, повышения креативности и эффективности. Улучшено возможностями искусственного интеллектаKutools точно автоматизирует задачи, упрощая управление данными. Подробная информация о Kutools для Excel...         Бесплатная пробная версия...

После бесплатная установка Kutools for Excel, сделайте следующее:

1. Выберите ячейки, которые нужно зашифровать, и нажмите Кутулс Плюс > Зашифровать ячейки. Смотрите скриншот:
нажмите «Шифровать ячейки» в kutools

2. Затем введите и подтвердите пароль в Зашифровать ячейки диалоговом окне и выберите один тип шифрования в Маска раздел. Смотрите скриншот:
введите и подтвердите пароль в диалоговом окне «Шифрование ячеек»

3. Нажмите Ok or Применить, и теперь выбранные ячейки зашифрованы.
выбранные ячейки зашифрованы

Если вам нужно расшифровать ячейки, выделите их и нажмите Кутулс Плюс > Decrypt, и введите пароль для их расшифровки. Смотрите скриншот:

нажмите Kutools Plus > Расшифровать  введите пароль для расшифровки

Шифрование и дешифрование ячеек

 

Статьи, которые могут вас заинтересовать:

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!