Перейти к основному содержанию

Как установить пароли для защиты отдельных рабочих листов пользователями в Excel?

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


Чтобы защитить каждый рабочий лист по отдельности и ограничить доступ пользователей к рабочим листам, примените следующий код VBA:

1. Откройте новую книгу и создайте новый лист с именем «Основной», см. снимок экрана:

2, Затем нажмите Alt + F11 , чтобы открыть Microsoft Visual Basic для приложений окно, дважды щелкните Эта рабочая тетрадь слева Проект-VBAProject панель, чтобы открыть пустой модуль кода, а затем скопируйте и вставьте следующий код VBA в окно кода, см. снимок экрана:

Код VBA: установка паролей для защиты отдельных листов пользователями

Option Explicit
Dim gUserName As String
Dim gUserPass As String
Private Sub Workbook_Open()
'Updateby ExtendOffice
Dim xWShs As Sheets
Dim xWSh As Worksheet
Dim xUserName As String
Dim xPass As String
Dim xBolH As Boolean
GTINPUT:
xUserName = InputBox("Enter the user name")
If TypeName(xUserName) = "String" Then
    If xUserName = "" Then
        Exit Sub
    End If
End If
xUserName = LCase(xUserName)
xPass = InputBox("User name:" & xUserName & Chr(13) & Chr(10) & "Enter the password:")
If TypeName(xPass) = "String" Then
    If xPass = "" Then
    MsgBox "The password is incorrect, please enter the user name and password again."
    GoTo GTINPUT
    End If
Else
    MsgBox "The password is incorrect, please enter the user name and password again."
    GoTo GTINPUT
End If
Set xWShs = Worksheets
xBolH = False
For Each xWSh In Worksheets
    If xWSh.Name = xUserName Then
    xBolH = True
    Exit For
    End If
Next
If xBolH Then
Set xWSh = xWShs(xUserName)
On Error GoTo GTINPUT2
xWSh.Unprotect (xPass)
xWSh.Visible = True
xWSh.Activate
Else
Set xWSh = xWShs.Add
xWSh.Name = xUserName
xWSh.Activate
End If
gUserName = xUserName
gUserPass = xPass
Exit Sub
GTINPUT2:
    MsgBox "The password is incorrect, please enter the user name and password again."
    GoTo GTINPUT
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim xWSh As Worksheet
On Error Resume Next
Set xWSh = Worksheets(gUserName)
xWSh.Protect Password:=gUserPass, DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
For Each xWSh In Worksheets
    If xWSh.Name <> "Main" Then
        xWSh.Visible = xlSheetVeryHidden
    End If
Next xWSh
ActiveWorkbook.Save
End Sub

3. Затем поместите курсор в конец Private Sub Workbook_Open () сценарий и нажмите F5 ключ для запуска этого кода. Теперь в появившемся окне введите имя пользователя, для которого вы хотите создать лист для этого пользователя, см. снимок экрана:

4. А затем нажмите OK кнопку, в следующем окне подсказки введите пароль для защиты этого листа, см. снимок экрана:

5. Продолжайте нажимать OK Кнопка, и сразу же создается новый лист с именем пользователя, и вы можете создавать данные для этого пользователя по мере необходимости. Смотрите скриншот:

6. Повторите описанный выше шаг 3 — шаг 5 для создания других листов один за другим, которые вы хотите использовать.

7. После создания листов сохраните текущую книгу, щелкнув Файл > Сохранить как., В Сохранить как диалоговое окно, укажите имя файла, а затем выберите Книга Excel с поддержкой макросов (* .xlsm) формат из Сохранить как выпадающий список, см. снимок экрана:

8. Затем нажмите кнопку Сохранить, чтобы сохранить этот файл.

9. А затем закройте книгу и снова откройте ее, затем щелкните Включить контент в верхней части строки формул для активации кода, см. скриншот:

10. Теперь появится всплывающее окно, чтобы напомнить вам ввести имя пользователя и пароль, чтобы открыть определенный лист определенным пользователем.

11. Наконец, при отправке этой книги другим пользователям вы должны отправить пользователю имя пользователя и пароль. Они будут открывать и редактировать только свои собственные листы и не имеют права просматривать другие рабочие листы.


  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Разделить содержимое ячеек; Объедините повторяющиеся строки и сумму / среднее значение... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Избранные и быстро вставляйте формулы, Диапазоны, диаграммы и изображения; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Группировка сводной таблицы по номер недели, день недели и другое ... Показать разблокированные, заблокированные ячейки разными цветами; Выделите ячейки, у которых есть формула / имя...
вкладка kte 201905
  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How would you then allow for an admin user to see all of those password protected sheets?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations