Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Pandora12
Форумчанин
0 / 0 / 0
Регистрация: 23.09.2011
Сообщений: 61
21.11.2012, 01:38     Как закрыть паролем отдельный лист в защищенный книге Excel-2003
  #1
Есть защищеная книга в Excel-2003, состоящая из некоторого кол-ва отдлельных листов. Как сделать, чтобы при активации соответствуюещго листа выводилась запись о необходимости введения пароля, т.е. доступ к листу книги был бы только под паролем ?
AdAgent
Объявления
21.11.2012, 01:38
sn_88
Форумчанин
51 / 51 / 3
Регистрация: 21.06.2011
Сообщений: 163
21.11.2012, 14:22
  #2
Можно так попробовать (код поставить на ту страницу, которая нуждается в блокировке):
Код Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Activate()
Application.EnableCancelKey = xlDisabled
A = InputBox("Vvedite parol", vbYesNo)
 
    If A <> "1234" Then
    MsgBox ("Parol ne verniy")
1:      Worksheets(1).Select
        Worksheets(1).Activate
    End If
On Error GoTo 1
Application.EnableCancelKey = xlInterrupt
End Sub
Только во избежание подсмотра пароля нужно залочить VbProject
Pandora12
Форумчанин
0 / 0 / 0
Регистрация: 23.09.2011
Сообщений: 61
21.11.2012, 15:00  [ТС]
  #3
Цитата Сообщение от sn_88 Посмотреть сообщение
Можно так попробовать
Спасибо, а как залочить VbProject ?
sn_88
Форумчанин
51 / 51 / 3
Регистрация: 21.06.2011
Сообщений: 163
21.11.2012, 15:06
  #4
В оболочке VBA жмем вкладку Tools -> VbaProject Properties -> Protection и ставим галку на Lock Project for Viewing ну и пароль пишем. Это самый простой. Уверен, что в нете можно еще способов нагуглить )
Pandora12
Форумчанин
0 / 0 / 0
Регистрация: 23.09.2011
Сообщений: 61
21.11.2012, 15:10  [ТС]
  #5
Цитата Сообщение от sn_88 Посмотреть сообщение
В оболочке VBA жмем вкладку Tools -> VbaProject Properties -> Protection и ставим галку на Lock Project for Viewing ну и пароль пишем. Это самый простой. Уверен, что в нете можно еще способов нагуглить )
А не подскажете, как еще сдеалть пароль на всю книгу, чтобы можно было устанавливать срок действия пароля в рамках некого ограниченного переиода времени, т.е. закончился срок действия пароля и пользователь не cможет больше зайти в книгу (Excel-2003) ?
sn_88
Форумчанин
51 / 51 / 3
Регистрация: 21.06.2011
Сообщений: 163
21.11.2012, 15:29     Как закрыть паролем отдельный лист в защищенный книге Excel-2003
  #6
Вот так можно.(ставить на "Эта книга")

Код Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Workbook_Open()
Application.EnableCancelKey = xlDisabled           
A = InputBox("Vvedite parol", vbYesNo)
 
If Date <= "22.12.2012" Then          ' проверка на дату 
    If A <> "1234" Then                    ' пароль
    MsgBox ("Parol ne verniy")
1:      ActiveWorkbook.Close (False)
 
    End If
On Error GoTo 1
Else: MsgBox ("Srok deystviya parola istek")
GoTo 1
 
End If
Application.EnableCancelKey = xlInterrupt
End Sub
Yandex
Объявления
21.11.2012, 15:29
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
MS Excel Копирование результатов поиска по книге на отдельный лист
Ребята, помогите! Уже замучился искать! Есть книга, около 30 листов, на каждом листе таблица из 4 столбцов (дата, время, название, хронометраж). Мне нужно найти по всей книге строки с записью...
MS Office Excel vertalius 06.02.2014 12:28
MS Excel Макрос на копирование страниц на отдельный лист
Здравствуйте! После нажатия кнопки "Создать сетки боёв" на листе "Список по группам") создаются копии определённых листов, в зависимости от количества спортсменов в группе. Все созданные листы...
MS Office Excel VanBlack 02.12.2013 14:19
VBA Как в рабочей книге добавить лист и назвать его по своей фамилии
Нужен макрос. Суть такова: в рабочей книге добавить лист и назвать его по своей фамилии. На этот лист вы-вести фамилию, имя, отчество студента и установить шрифт размером в 12 пт; имя рабочего листа...
VBA WalterWhite 20.12.2012 08:18
MS Excel Как организовать совместный доступ для редактирования данных в защищенной книге Excel-2003
Предполагается для наполнения листов книги (объемный рассчет бюджета в бух. программе) пользоваться функцией"Совместным удаленным редактированием данных отдельными пользователями", т.е. планиурется...
MS Office Excel Pandora12 21.11.2012 01:14
MS Excel Как организовать дступ к защищенной книге Excel-2003 на определнный промежуток времени
Есть довольно объемная бухгалтерская программа, разработанная в Excel-2003 для рассчета бюджета, т.е. книга, в которой много много бюджетиков в виде отдельных листов книги, которые затем на другом...
MS Office Excel Pandora12 21.11.2012 00:58
MS Excel Как минимизировать вероятность/успеха взлома пароля в книге/листах Excel-2003
Сижу и ломаю голову, как минимизировать вероятность/успеха взлома пароля в защищенной книге/листах Excel-2003. паролем должна быть закрыта сама книга, листы к ней и ячейки. пару лет назад сталкивался...
MS Office Excel Pandora12 21.11.2012 00:46
Как вскрыть Excel, защищенный паролем?
Помогите вскрыть Excel, защищенный паролем. Заранее спасибо Олег
Базы данных Oleg 04.08.2011 06:27
VBA Скопировать каждый лист excel в отдельный файл
Подскажите, пожалуйста! Как скопировать, к примеру 20 отдельных листов в файле excel в отдельный файл, для каждого листа?
VBA Apriori0482 11.02.2010 23:11
Опции темы

Текущее время: 16:10. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.