Безопасность Excel очень важна для вашей работы. В этой статье мы представим метод установки разных привилегий для разных пользователей с помощью Excel VBA.
В нашей предыдущей статье Как создать окно входа в систему для защиты вашей книги Excel, мы представили метод создания окна входа в вашу книгу Excel. Но когда нескольким пользователям необходимо получить доступ к документу, необходимо произвести дополнительные настройки. Кроме того, вы должны гарантировать, что эти пользователи не будут вносить неправильные изменения в файл. Теперь следуйте инструкциям ниже и посмотрите, как выполнить эту задачу.
Установите разные привилегии
Предположим, теперь трем торговым представителям необходимо изменить этот файл. Имя и пароль устанавливаются, как показано на изображении ниже:
И каждому человеку нужно будет изменить определенный рабочий лист.
- Нажмите сочетание клавиш «Alt + F11» на клавиатуре, чтобы открыть редактор Visual Basic.
- А затем вставьте новую пользовательскую форму в редактор.
- На этом шаге вставьте две метки, два текстовых поля и две кнопки в пользовательскую форму.
- А затем измените заголовок для пользовательской формы и тех элементов, которые вы вставляете на шаге 3. Вы также можете обратиться к изображению ниже:
- После этого измените «PasswordChar» на «*» для второго текстового поля.
- После этого дважды щелкните форму пользователя.
- Затем введите в модуль следующие коды:
Private Sub CommandButton1_Click() Dim objTargetWorksheet As Worksheet If (TextBox1.Value = "John" And TextBox2.Value = "234") _ Or (TextBox1.Value = "Amy" And TextBox2.Value = "345") _ Or (TextBox1.Value = "Paul" И TextBox2.Value = "456") Затем Me.Hide: Application.Visible = True для каждого объектаTargetWorksheet В ActiveWorkbook.Worksheets Если objTargetWorksheet.Name = TextBox1.Value Затем объектTargetWorksheet.Unprotect Password:=12345 Else objTargetWorksheet.Protect Password:=12345, DrawingObjects:=True, Contents:=True, Scenarios:=True End If Next Else MsgBox «Пожалуйста, введите правильное имя пользователя и правильный пароль» End If End Sub Private Sub CommandButton2_Click() ThisWorkbook. Application.Quit End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) ThisWorkbook.Application.Quit End Sub
В кодах мы будем защищать другие рабочие листы. И пользователи могут изменять только соответствующие рабочие листы. Вы также можете изменить пароли в соответствии с вашими потребностями.
- После этого дважды щелкните «ThisWorkbook» в проекте VBA.
- А затем введите в него следующие коды:
Private Sub Workbook_Open() Application.Visible = False: UserForm1.Show End Sub
- Чтобы пользователи не могли изменять коды VBA, вам необходимо установить пароль для проектов VBA. В нашей предыдущей статье Как защитить паролем коды VBA на листе Excel, мы ввели методы. Вы также можете установить специальный пароль.
- В конце сохраните этот файл Excel.
- При следующем открытии файла пользовательская форма не появится. Вам нужно нажать кнопку «Включить контент» в файле.
- И тогда вы увидите окно «Войти». Введите имя и пароль в два текстовых поля.
- После этого нажмите кнопку «Войти» в окне.
В настоящее время Джон может изменять только свой рабочий лист. Он не может изменить другие рабочие листы или коды VBA. Кроме того, кроме трех торговых представителей, никто другой не может открыть этот файл без пароля. В следующий раз, когда у вас возникнет такое требование, вы также можете установить такое окно входа в книгу для книги.
Распознайте проблему в повреждении Excel
Время от времени Excel повреждается из-за множества факторов. Перед тобойtarЧтобы исправить ваши файлы, вам необходимо определить проблему вместе с причинами катастрофы с данными. Кроме того, если вы ничего не знаете о восстановлении данных, вы можете восстановить поврежденный Excel xlsx с помощью стороннего инструмента. Благодаря передовому алгоритму этот инструмент может обрабатывать любыеost все ошибки Excel.
Об авторе:
Анна Ма — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить поврежденный docx и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com