Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

Защитите книги в папке сразу с помощью VBA

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

Вкладка «Office» Включите редактирование и просмотр с вкладками в Office и упростите свою работу ...
Kutools для Excel решает большинство ваших проблем и повышает производительность на 80%
  • Повторно использовать что-либо: Добавьте наиболее часто используемые или сложные формулы, диаграммы и все остальное в избранное и быстро используйте их в будущем.
  • Больше, чем текстовые функции 20: Извлечь номер из текстовой строки; Извлечь или удалить часть текстов; Преобразование чисел и валют в английские слова ...
  • Инструменты слияния: Несколько рабочих книг и листов в одном; Объединить несколько ячеек / строк / столбцов без потери данных; Объединить повторяющиеся строки и суммы ...
  • Сплит Инструменты: Разбить данные на несколько листов на основе значения; Одна рабочая книга для нескольких файлов Excel, PDF или CSV; От одного столбца до нескольких столбцов ...
  • Вставить Пропуск Скрытые / отфильтрованные строки; Подсчет и сумма по цвету фона; Создать список рассылки и Отправка писем по значению ячейки...
  • Суперфильтр: Создавайте расширенные схемы фильтров и применяйте их к любым листам; Сортировать по неделям, дням, частоте и более; Фильтр жирным шрифтом, формулами, комментариями ...
  • Более чем мощные функции 300; Работает с Office 2007-2019 и 365; Поддерживает все языки; Простота развертывания на вашем предприятии или в организации.

arrow синий правый пузырь Защитите книги в папке сразу с помощью VBA

Чтобы защитить рабочие книги в определенной папке, вы можете применить макрокод для решения.

1. Включите новую книгу и нажмите Alt + F11 , чтобы открыть Microsoft Visual Basic для Applications и нажмите Вставить > модуль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

doc защищает все книги в папке 1

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

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

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

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

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


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

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

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

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

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

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

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

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

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

doc загрузить 1


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

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

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

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Martin · 1 months ago
    Brilliant. Saves me nearly an hour every month. Thank you.
  • To post as a guest, your comment is unpublished.
    Mary · 1 years ago
    can you do the same code but for unprotecting? with option to browse for the folder
  • To post as a guest, your comment is unpublished.
    P · 2 years ago
    I'm getting a syntax error for the following: <span style="background-color...
  • To post as a guest, your comment is unpublished.
    ckshah · 2 years ago
    workbook protect ...great program....
    very helpful