Як встановити паролі для захисту окремих аркушів користувачами в Excel?
В Excel ви можете встановити різні паролі для різних аркушів, це означає, що один користувач може вносити зміни в один аркуш за допомогою одного пароля, а інший може використовувати інший пароль для внесення змін до іншого аркуша. Але іноді ви просто хочете, щоб кожен користувач міг переглядати та мати доступ до свого аркуша. Чи можливо це вирішити в Excel?
Щоб захистити кожен робочий аркуш окремо та обмежити доступ до робочих аркушів для користувачів, застосуйте наведений нижче код VBA:
1. Відкрийте нову книгу та створіть новий аркуш із назвою «Основний», див. знімок екрана:
2. Потім натисніть Alt + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікно, двічі клацніть ThisWorkbook зліва Проект-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. Потім помістіть курсор у кінець Приватна додаткова робоча книга_Open() сценарію та натисніть F5 ключ для запуску цього коду. Тепер у спливаючому вікні підказки введіть ім’я користувача, для якого ви хочете створити аркуш для цього користувача, перегляньте знімок екрана:
4. А потім натисніть OK кнопку, у наступному вікні підказки введіть пароль для захисту цього аркуша, див. знімок екрана:
5. Продовжуйте натискати OK кнопку, і одразу створюється новий аркуш із іменем користувача, і ви можете створити потрібні дані для цього користувача. Перегляньте скріншот:
6. Повторіть описані вище кроки 3 – крок 5 для створення інших аркушів один за одним, які ви хочете використовувати.
7. Після створення аркушів збережіть поточну книгу, клацнувши філе > Зберегти як., В Зберегти як у діалоговому вікні вкажіть ім’я файлу, а потім виберіть Книга Excel з підтримкою макросів (* .xlsm) формат з Зберегти як випадаючий список, див. знімок екрана:
8. Потім натисніть кнопку «Зберегти», щоб зберегти цей файл.
9. Потім закрийте робочу книгу та знову відкрийте її, а потім клацніть Увімкнути вміст у верхній частині панелі формул, щоб активувати код, перегляньте знімок екрана:
10. Тепер з’явиться вікно підказки, яке нагадає вам ввести ім’я користувача та пароль, щоб відкрити певний аркуш певним користувачем.
11. Нарешті, надсилаючи цю книгу іншим користувачам, ви повинні надіслати їм ім’я користувача та пароль. Вони відкриватимуть і редагуватимуть лише власні аркуші та не матимуть дозволу переглядати інші аркуші.
Найкращі інструменти для підвищення продуктивності офісу
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
- Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
- Об’єднати клітинки / рядки / стовпці та Ведення даних; Вміст розділених комірок; Поєднуйте повторювані рядки та суму / середнє... Запобігання дублюючим клітинам; Порівняйте діапазони...
- Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
- Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
- Улюблені та швидко вставлені формули, Діапазони, діаграми та зображення; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
- Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
- Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
- Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
- Групування зведеної таблиці за номер тижня, день тижня та багато іншого ... Показати розблоковані, заблоковані клітини за різними кольорами; Виділіть клітини, які мають формулу / назву...
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
