Как защитить сразу все книги в папке в Excel?
В Excel вы можете защитить книгу, чтобы другие пользователи не могли ее редактировать, но создавали ли вы когда-нибудь образ для защиты нескольких книг одновременно? Здесь я расскажу о некоторых приемах защиты всех книг в папке и нескольких листов в книге в Excel.
Одновременная защита книг в папке с помощью VBA
Защитите несколько листов одновременно с помощью Kutools for Excel
Одновременная защита книг в папке с помощью 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, и появится диалоговое окно, напоминающее об успешной защите листов.
Чтобы снять защиту с этих листов, вам просто нужно нажать Предприятие > Снять защиту листа ввести пароль для снятия защиты.
Лучшие инструменты для офисной работы
Усовершенствуйте свои навыки работы с Excel с помощью Kutools for Excelи испытайте эффективность, как никогда раньше. Kutools for Excel Предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Office Tab Добавляет в Office интерфейс с вкладками и значительно упрощает вашу работу
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!








