Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
4 разных текст-фразы, 4 уникальных пароля.
 
#1
13.10.2014 05:59:40
Здравствуйте, есть задача, которая состоит в том, что бы на одном листе книги работали 4 профиля, все под разными паролями, + желательно что бы каждый из них знал, что существует только их профиль.
Что нужно:
4 разных пароля, например: "Gosha", "Lena", "Petr", "Dima"
при вводе каждого из них открывается уникальный текст, например вводим пароль "Gosha", выходит текст "Привет Гоша", вводим пароль "Lena", выходит текст "Привет Лена". И да нужно что бы это все срабатывало по нажатия на открытие файла, пока один из 4ех пользователей не введет свой пароль, лист должен быть чистым.

Заранее спасибо за помощь.
 
 
 
#2
13.10.2014 06:25:05
сходите сюда Разные пользователи
Лень двигатель прогресса, доказано!!!
 
 
 
#3
13.10.2014 12:20:54
Можно так
Код на книге:
Код
Private Sub Workbook_Open()
  n = Sheets.Count
  For i = 1 To n
  Worksheets(i).Protect Password:="xxx", UserInterfaceOnly:=True
  Next
  UserForm1.Show
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.ScreenUpdating = False
  Worksheets("Запуск"  .Visible = xlSheetVisible 'делает видимым только 1 лист, в моем случае с именем "Запуск"
  n = Sheets.Count
  For i = 2 To n
  Worksheets(i).Visible = xlSheetVeryHidden
  Next
End Sub

xxx - пароль на защиту всей книги от редактирования, если вам нужен только просмотр

Код на форме:

Private Sub CommandButton1_Click()
    If TextBox1.Text = "Gosha" Then
    UserForm1.Hide
    MsgBox "Привет, Гоша!"
    Worksheets("Гоша"  .Visible = True 'есть некий лист для Гоши и только он становится видимым
    Else:
    If TextBox1.Text = "Lena" Then
    MsgBox "Привет, Лена!"
    Worksheets("Лена"  .Visible = True 'есть некий лист для Лены и только он становится видимым    
    Else: MsgBox "Введен неверный пароль"
    End If ' можно добавить сколько хочешь вариантов
    End If
End Sub
Соответственно, они могут работать на разных листах, а это все будет сводиться в один, который как раз и нужен создателю файла.
Изменено: yanulya_r - 13.10.2014 18:11:44
 
 
 
#4
13.10.2014 12:40:00
В общем найдено примерно то, что нужно.
В прикрепленом файле форма логина по юзернейму и паролю, можно как-то переписать, что бы доступ к листу был только по паролю, без юзернеймов вводишь 1 из 4 паролей и появляется нужный лист? Кто умеет помогите пожалуйста переправить условие. Заранее спасибо.
 
 
 
#5
13.10.2014 12:44:47
Чем вам мой код выше не устраивает, как раз форма только для ввода пароля.
Изменено: yanulya_r - 13.10.2014 12:45:35
 
 
 
#6
13.10.2014 12:48:25
Кросс: http://www.excel-vba.ru/forum/index.php?topic=3430.0

А вот только по паролю не советую - большая вероятность того, что человек просто попутает пароли и станет работать не в своем листе. Связка Логин-Пароль обеспечивает бОльшую безопасность и сохранность данных от несанкционированного к ним доступа.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
Страницы: 1
Наверх