Note: The other languages of the website are Google-translated. Back to English

Как защитить сразу все книги в папке в Excel?

В Excel вы можете защитить книгу, чтобы другие пользователи не могли ее редактировать, но создавали ли вы когда-нибудь образ для защиты нескольких книг одновременно? Здесь я расскажу о некоторых приемах защиты всех книг в папке и нескольких листов в книге в Excel.

Одновременная защита книг в папке с помощью VBA

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

Вкладка Office позволяет редактировать и просматривать в Office с вкладками и значительно упрощает работу ...
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
  • Повторное использование чего угодно: Добавляйте наиболее часто используемые или сложные формулы, диаграммы и все остальное в избранное и быстро используйте их в будущем.
  • Более 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

 

док защитить все книги в папке 1

2. Нажмите F5 ключ и Выберите папку всплывает окно, в котором вы можете выбрать папку для защиты всех ее листов.
док защитить все книги в папке 2

3. Нажмите OK и появится диалоговое окно для ввода пароля для защиты книг.
док защитить все книги в папке 3

4. Нажмите OK, появится диалоговое окно, напоминающее вам, что все книги в выбранной папке были успешно защищены одним паролем.
док защитить все книги в папке 4

Когда вы открываете книги, защищенные указанным выше кодом, появляется диалоговое окно для ввода пароля. Смотрите скриншот:
док защитить все книги в папке 5

Функции: Этот код работает с версией Excel 2007 или более поздней, если вы хотите применить его для защиты более низкой версии, вы можете изменить xFile = "* .xls" в xFile = "* .xlsx" в коде.


стрелка синий правый пузырь Защитите несколько листов одновременно с помощью Kutools for Excel

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

Kutools for Excel, с более чем 120 удобные функции Excel, повысьте эффективность работы и сэкономьте рабочее время.

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

1. Включите книгу, листы которой вы хотите защитить, и нажмите Предприятие > Защитить лист. Смотрите скриншот:
док защитить все книги в папке 6

2. в Защитить лист В диалоговом окне вы можете выбрать нужные листы из списка. Смотрите скриншот:
док защитить все книги в папке 7

3. Нажмите Ok, и появится еще одно диалоговое окно для ввода и повторного ввода пароля, см. снимок экрана:
док защитить все книги в папке 8

4. Нажмите Ok, и появится диалоговое окно, напоминающее об успешной защите листов.
док защитить все книги в папке 9

Чтобы снять защиту с этих листов, вам просто нужно нажать Предприятие > Снять защиту листа ввести пароль для снятия защиты.
док защитить все книги в папке 10

документ скачать 1


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

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (8)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
защита рабочей книги ... отличная программа .... очень полезная
Этот комментарий был сведен к минимуму модератором на сайте
Я получаю синтаксическую ошибку для следующего:
Этот комментарий был сведен к минимуму модератором на сайте
Вы это исправили? Как?
Этот комментарий был сведен к минимуму модератором на сайте
только удалить их
Этот комментарий был сведен к минимуму модератором на сайте
вы можете сделать тот же код, но для снятия защиты? с возможностью поиска папки
Этот комментарий был сведен к минимуму модератором на сайте
Блестящий. Экономит мне почти час каждый месяц. Спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Я использую Mac, и когда я нажимаю клавишу F5, у меня не работает, пожалуйста, как я могу решить эту проблему?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, можешь попробовать вариант - клавиши F8. Но я тестировал этот VBA только в системе Microsoft, я не знаю, работает ли он на Mac.
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL