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

Решения Excel 3 октября 2025
Поделись сейчас:

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

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

Установите разные привилегии

Предположим, теперь трем торговым представителям необходимо изменить этот файл. Имя и пароль устанавливаются, как показано на изображении ниже:Пример

И каждому человеку нужно будет изменить определенный рабочий лист.

  1. Нажмите сочетание клавиш «Alt + F11» на клавиатуре, чтобы открыть редактор Visual Basic.
  2. А затем вставьте новую пользовательскую форму в редактор.Вставить пользовательскую форму
  3. На этом шаге вставьте две метки, два текстовых поля и две кнопки в пользовательскую форму.
  4. А затем измените заголовок для пользовательской формы и тех элементов, которые вы вставляете на шаге 3. Вы также можете обратиться к изображению ниже:Изменить заголовок
  5. После этого измените «PasswordChar» на «*» для второго текстового поля.ПарольChar
  6. После этого дважды щелкните форму пользователя.
  7. Затем введите в модуль следующие коды:
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" And TextBox2.Value = "456") Then
    Me.Hide: Application.Visible = True

    For Each objTargetWorksheet In ActiveWorkbook.Worksheets
      If objTargetWorksheet.Name = TextBox1.Value Then
        objTargetWorksheet.Unprotect Password:=12345
      Else
        objTargetWorksheet.Protect Password:=12345, DrawingObjects:=True, Contents:=True, Scenarios:=True
      End If
    Next
  Else
    MsgBox "Please input the right user name and the right password"
  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

В кодах мы будем защищать другие рабочие листы. И пользователи могут изменять только соответствующие рабочие листы. Вы также можете изменить пароли в соответствии с вашими потребностями.

  1. После этого дважды щелкните «ThisWorkbook» в проекте VBA.
  2. А затем введите в него следующие коды:
Private Sub Workbook_Open()
  Application.Visible = False: UserForm1.Show
End Sub

Эта рабочая тетрадь

  1. Чтобы пользователи не могли изменять коды VBA, вам необходимо установить пароль для проектов VBA. В нашей предыдущей статье Как защитить паролем коды VBA на листе Excel, мы ввели методы. Вы также можете установить специальный пароль.
  2. В конце сохраните этот файл Excel.
  3. При следующем открытии файла пользовательская форма не появится. Вам нужно нажать кнопку «Включить контент» в файле.
  4. И тогда вы увидите окно «Войти». Введите имя и пароль в два текстовых поля.
  5. После этого нажмите кнопку «Войти» в окне.Вход

В настоящее время Джон может изменять только свой рабочий лист. Он не может изменить другие рабочие листы или коды VBA. Кроме того, кроме трех торговых представителей, никто другой не может открыть этот файл без пароля. В следующий раз, когда у вас возникнет такое требование, вы также можете установить такое окно входа в книгу для книги.

Распознайте проблему в повреждении Excel

Время от времени Excel повреждается из-за множества факторов. Перед тобойtarЧтобы исправить ваши файлы, вам необходимо определить проблему вместе с причинами катастрофы с данными. Кроме того, если вы ничего не знаете о восстановлении данных, вы можете восстановить поврежденный Excel xlsx с помощью стороннего инструмента. Благодаря передовому алгоритму этот инструмент может обрабатывать любыеost все ошибки Excel.

Об авторе:

Анна Ма — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить поврежденный docx и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

Комментарии закрыты.