| Вопрос: ПАРОЛЬ НА ЕКСЕЛЬ | Добавлено: 21.02.06 14:25 |
Автор вопроса:  SLAVA
|
| ЕСТЬ ЕКСЕЛЬ, В НЕМ 1-10 ЛИСТОВ,ПРИ ОТКРЫТИЕ ФАИЛА В ЗАВИСИМОСТИ ОТ ТОГО, КАКОЙ ПОРОЛЬ (ДЛЯ КАЖДОГО ПОЛЬЗОВАТЕЛЯ ЕСТЬ СВОЙ ПАРОЛЬ)ВОБЬЕМ, ОТКРОЮТСЯ ЛИСТЫ В ЗАВИСИМОСТИ ОТ ПАРОЛЯ. НО ВСЯ ПРОБЛЕМА В ТОМ ЧТО ПРИ ОТКРЫТИЯ КОДА ВИДНЫ ВСЕ ПАРОЛИ, ПОМОГИТЕ! ПРИМЕР СКИНУ ВЕЧЕРОМ. НАЛОГОВАЯ МОЖЕТ УВИДЕТЬ НЕНУЖНОЕ! |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  astoro ICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #1 | Добавлено: 21.02.06 14:28 |
| в курсе, что пароль с экселевского документа снимается за 15 минут? | ||
|
Номер ответа: 2 Автор ответа: GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #2 | Добавлено: 21.02.06 14:29 |
|
В VBA задача решения не имеет. Ибо посмотрят всё равно.
http://www.bash.org.ru/quote.php?num=4524 |
||
|
Номер ответа: 3 Автор ответа: SLAVA Вопросов: 8 Ответов: 22 |
Профиль | | #3 | Добавлено: 21.02.06 23:51 |
|
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Unprotect (psw) Worksheets(1).Visible = -1 'теперь необязательно For i = 2 To Worksheets.Count Worksheets(i).Visible = 2 Next ActiveWorkbook.Protect Password:=psw, Structure:=True End Sub Private Sub Workbook_Open() psw = "123" 'Пароль на защиту книги Load UserForm1 UserForm1.Show End Sub (eta kniga) ----------------- Private Sub CommandButton1_Click() ActiveWorkbook.Unprotect (psw) Select Case TextBox1.Value Case "Иванов" For i = 2 To Worksheets.Count If InStr(Worksheets(i).Name, "Иванов"  > 0 Then Worksheets(i).Visible = -1
Next Case "Петров" For i = 2 To Worksheets.Count If InStr(Worksheets(i).Name, "Петров" > 0 Then Worksheets(i).Visible = -1
Next Case "slava" For i = 2 To Worksheets.Count Worksheets(i).Visible = -1 Next Case Else MsgBox "Неправильно введен пароль вы получите доступ только к " + Worksheets(1).Name admin = False End Select Unload UserForm1 ActiveWorkbook.Protect Password:=psw, Structure:=True End Sub Private Sub UserForm_Activate() UserForm1.Caption = "Введите пароль" CommandButton1.Caption = "ОК" TextBox1.PasswordChar = "*" End Sub (user form) ------------------------------------------ (modules) Public psw As String |
||
|
Номер ответа: 4 Автор ответа: SLAVAВопросов: 8 Ответов: 22 |
Профиль | | #4 | Добавлено: 21.02.06 23:52 |
| neujeli ni kak nelizea spreatati? | ||
|
Номер ответа: 5 Автор ответа: HOOLIGANВопросов: 0 Ответов: 1066 |
Профиль | | #5 | Добавлено: 22.02.06 00:10 |
| Криптостойкость пароля определяется температурой паяльника... | ||
|
Номер ответа: 6 Автор ответа: SerJВопросов: 24 Ответов: 332 |
Профиль | | #6 | Добавлено: 22.02.06 11:50 |
А обязательно, что налоговая видела этот файл? Зашифруй полностью книгу. Или файл скинь на дискетку и спрачь в сейф... А ключ от сейфа проглоти 
2GSerg: Эт, точно
(http://www.bash.org.ru/quote.php?num=4524) |
||
Страница: 1 |