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

Ответ Создать новую тему
 
21.11.2012, 01:38   #1
Pandora12
Форумчанин
Регистрация: 23.09.2011
Сообщений: 61
Репутация: 0 (0)
Есть защищеная книга в Excel-2003, состоящая из некоторого кол-ва отдлельных листов. Как сделать, чтобы при активации соответствуюещго листа выводилась запись о необходимости введения пароля, т.е. доступ к листу книги был бы только под паролем ?
21.11.2012, 01:38
AdAgent
Объявления
21.11.2012, 14:22   #2
sn_88
Форумчанин
Регистрация: 21.06.2011
Сообщений: 160
Репутация: 51 (51)
Лучшие ответы: 3
Можно так попробовать (код поставить на ту страницу, которая нуждается в блокировке):
Код 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
Другие темы раздела
Как сделать связку с данными (числовые значения) из экселя в таблицу в ворде MS Excel
Имеется бюджетная таблица в Excel-2003, в ячейках которой есть параметры - числовые значения. Эти данные имеются для 20 организаций. Для каждой организации надо готовить отчет в виде ворд -документа, состоящего из 140 таблиц на 140 листах (таблицы сопроводлаются текстом). Для каждой организации ...
MS Excel Где можно купить недорого лицензированный майкрософт Офис только с Экселем -2003/2010
Для народа в Германии нужен русскоязычный лицензирвоанный офис (стикер клеющйися с ключом активизации) ТОЛЬКО для работы с Экселем, + желательно разных версий Excel 2003, 2007, 2010 (может быть еще что-то появилось, не следил за новинками, если кто знает подскажите). официально на сайте...
21.11.2012, 15:00  [ТС]   #3
Pandora12
Форумчанин
Регистрация: 23.09.2011
Сообщений: 61
Репутация: 0 (0)
Цитата Сообщение от sn_88 Посмотреть сообщение
Можно так попробовать
Спасибо, а как залочить VbProject ?
21.11.2012, 15:06   #4
sn_88
Форумчанин
Регистрация: 21.06.2011
Сообщений: 160
Репутация: 51 (51)
Лучшие ответы: 3
В оболочке VBA жмем вкладку Tools -> VbaProject Properties -> Protection и ставим галку на Lock Project for Viewing ну и пароль пишем. Это самый простой. Уверен, что в нете можно еще способов нагуглить )
21.11.2012, 15:06
AdAgent
Объявления
21.11.2012, 15:10  [ТС]   #5
Pandora12
Форумчанин
Регистрация: 23.09.2011
Сообщений: 61
Репутация: 0 (0)
Цитата Сообщение от sn_88 Посмотреть сообщение
В оболочке VBA жмем вкладку Tools -> VbaProject Properties -> Protection и ставим галку на Lock Project for Viewing ну и пароль пишем. Это самый простой. Уверен, что в нете можно еще способов нагуглить )
А не подскажете, как еще сдеалть пароль на всю книгу, чтобы можно было устанавливать срок действия пароля в рамках некого ограниченного переиода времени, т.е. закончился срок действия пароля и пользователь не cможет больше зайти в книгу (Excel-2003) ?
21.11.2012, 15:29   #6
sn_88
Форумчанин
Регистрация: 21.06.2011
Сообщений: 160
Репутация: 51 (51)
Лучшие ответы: 3
Вот так можно.(ставить на "Эта книга")

Код 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
21.11.2012, 15:29
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
MS Excel Копирование результатов поиска по книге на отдельный лист
Ребята, помогите! Уже замучился искать! Есть книга, около 30 листов, на каждом листе таблица из 4 столбцов (дата, время, название, хронометраж). Мне нужно найти по всей книге строки с записью (допустим, "mov_blablabla"), а все результаты скопировать на новый лист в виде такой же строки. ...
MS Office Excel vertalius 06.02.2014 12:28
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. паролем должна быть закрыта сама книга, листы к ней и ячейки. пару лет назад сталкивался с программкой, которая мне помогла сломать пароль у защищенной эксель-таблицы Excel-2003.. Какие...
MS Office Excel Pandora12 21.11.2012 00:46
Как вскрыть Excel, защищенный паролем? - Базы данных
Помогите вскрыть Excel, защищенный паролем. Заранее спасибо Олег
Базы данных Oleg 04.08.2011 06:27
Опции темы

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

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