Как защитить сразу все книги в папке в Excel?
В Excel вы можете защитить книгу, чтобы другие пользователи не могли ее редактировать, но создавали ли вы когда-нибудь образ для защиты нескольких книг одновременно? Здесь я расскажу о некоторых приемах защиты всех книг в папке и нескольких листов в книге в Excel.
Одновременная защита книг в папке с помощью VBA
Защитите несколько листов одновременно с помощью Kutools for Excel 
- Повторное использование чего угодно: Добавляйте наиболее часто используемые или сложные формулы, диаграммы и все остальное в избранное и быстро используйте их в будущем.
- Более 20 текстовых функций: Извлечь число из текстовой строки; Извлечь или удалить часть текстов; Преобразование чисел и валют в английские слова.
- Инструменты слияния: Несколько книг и листов в одну; Объединить несколько ячеек / строк / столбцов без потери данных; Объедините повторяющиеся строки и сумму.
- Разделить инструменты: Разделение данных на несколько листов в зависимости от ценности; Из одной книги в несколько файлов Excel, PDF или CSV; От одного столбца к нескольким столбцам.
- Вставить пропуск Скрытые / отфильтрованные строки; Подсчет и сумма по цвету фона; Отправляйте персонализированные электронные письма нескольким получателям массово.
- Суперфильтр: Создавайте расширенные схемы фильтров и применяйте их к любым листам; Сортировать по неделям, дням, периодичности и др .; Фильтр жирным шрифтом, формулы, комментарий ...
- Более 300 мощных функций; Работает с Office 2007-2021 и 365; Поддерживает все языки; Простое развертывание на вашем предприятии или в организации.
Одновременная защита книг в папке с помощью VBA
Чтобы защитить книги в определенной папке, вы можете применить код макроса для решения.
1. Включите новую книгу и нажмите Alt + F11 , чтобы открыть Microsoft Visual Basic для приложенияns и щелкните Вставить > модульe и вставьте код ниже в Модули скрипты.
VBA: защита книг в папке.
Sub ProtectAll()
Dim xWorkBooks As Workbook
Dim xExitFile As String
Dim xPassWord As Variant
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then
Exit Sub
Else
xStrPath = xStrPath + "\"
End If
xPassWord = Application.InputBox("Enter password", "Kutools for Excel", , , , , , 2)
If (xPassWord = False) Or (xPassWord = "") Then
MsgBox "Password cannot be blank!", vbInformation, "Kutools for Excel"
Exit Sub
End If
xFile = "*.xls"
xExitFile = Dir(xStrPath & xFile)
On Error Resume Next
Application.ScreenUpdating = False
Do While xExitFile <> ""
Set xWorkBooks = Workbooks.Open(xStrPath & xExitFile)
Application.DisplayAlerts = False
xWorkBooks.SaveAs Filename:=xWorkBooks.FullName, Password:=xPassWord
Application.DisplayAlerts = True
Workbooks(xExitFile).Close False
Set xWorkBooks = Nothing
xExitFile = Dir
Loop
Application.ScreenUpdating = True
MsgBox "Successfully protect!", vbInformation, "Kutools for Excel"
End Sub
2. Нажмите F5 ключ и Выберите папку всплывает окно, в котором вы можете выбрать папку для защиты всех ее листов.
3. Нажмите OK и появится диалоговое окно для ввода пароля для защиты книг.
4. Нажмите OK, появится диалоговое окно, напоминающее вам, что все книги в выбранной папке были успешно защищены одним паролем.
Когда вы открываете книги, защищенные указанным выше кодом, появляется диалоговое окно для ввода пароля. Смотрите скриншот:
Функции: Этот код работает с версией Excel 2007 или более поздней, если вы хотите применить его для защиты более низкой версии, вы можете изменить xFile = "* .xls" в xFile = "* .xlsx" в коде.
Защитите несколько листов одновременно с помощью Kutools for Excel
На самом деле, в нашей повседневной работе будет чаще защищать несколько листов в книге. Но в Excel вам нужно защищать листы один за другим с помощью встроенной функции. Однако есть мощный инструмент - Kutools for Excel, Его Защитить лист Утилита может помочь вам защитить все листы или выбранные листы книги сразу.
| Kutools for Excel, с более чем 120 удобные функции Excel, повысьте эффективность работы и сэкономьте рабочее время. | ||
После бесплатная установка Kutools for Excel, сделайте следующее:
1. Включите книгу, листы которой вы хотите защитить, и нажмите Предприятие > Защитить лист. Смотрите скриншот:
2. в Защитить лист В диалоговом окне вы можете выбрать нужные листы из списка. Смотрите скриншот:
3. Нажмите Ok, и появится еще одно диалоговое окно для ввода и повторного ввода пароля, см. снимок экрана:
4. Нажмите Ok, и появится диалоговое окно, напоминающее об успешной защите листов.
Чтобы снять защиту с этих листов, вам просто нужно нажать Предприятие > Снять защиту листа ввести пароль для снятия защиты.
Лучшие инструменты для работы в офисе
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
