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

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

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

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

2. Затем нажмите клавиши "Alt" + "F11", чтобы открыть окно "Microsoft Visual Basic for Applications", дважды щелкните "ThisWorkbook" в левой панели "Project-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. Наконец, отправляя эту рабочую книгу другим пользователям, вы должны отправить им имя пользователя и пароль. Они смогут открывать и редактировать только свои собственные листы и не будут иметь права просматривать другие листы.