Как одновременно защитить все книги в папке в Excel?
В Excel вы можете защитить книгу, чтобы другие пользователи не могли её редактировать, но задумывались ли вы когда-нибудь, как защитить сразу несколько книг? Здесь я расскажу о нескольких приёмах для одновременной защиты всех книг в папке и нескольких листов в одной книге Excel.
Одновременная защита книг в папке с помощью VBA
Одновременная защита нескольких листов с помощью Kutools для Excel
Одновременная защита книг в папке с помощью VBA
Чтобы защитить книги в определённой папке, воспользуйтесь макросом.
1. Создайте новую рабочую книгу и нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications. Затем выберите Вставка > Модуль и вставьте приведённый ниже код в модуль.
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 для Excel
На практике чаще всего приходится защищать сразу несколько листов в одной книге. Однако встроенные средства Excel позволяют защищать листы только по одному. К счастью, существует мощный инструмент — Kutools для Excel, функция «Защита листа» которого позволяет одновременно защитить все листы или выбранные листы книги.
После бесплатной установкиKutools для Excel выполните следующие действия:
1. Откройте книгу, листы которой необходимо защитить, и выберите KUTOOLS PLUS > Защита листа > Защитить листы.
2. В диалоговом окне «Защита листа» отметьте нужные листы из списка. См. скриншот:
3. Нажмите кнопку Ok, после чего появится ещё одно диалоговое окно для ввода и подтверждения пароля. См. скриншот:
4. Нажмите кнопку Ok, и появится диалоговое окно с уведомлением об успешной защите листов.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек