Как закрыть паролем отдельный лист в защищенный книге Excel-2003

@Pandora12 · Регистрация: 23.09.2011

Author24 — интернет-сервис помощи студентам

Есть защищеная книга в Excel-2003, состоящая из некоторого кол-ва отдлельных листов. Как сделать, чтобы при активации соответствуюещго листа выводилась запись о необходимости введения пароля, т.е. доступ к листу книги был бы только под паролем ?

@sn_88 · 21.11.2012, 14:22

Можно так попробовать (код поставить на ту страницу, которая нуждается в блокировке):

Visual Basic

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 · 21.11.2012, 15:00 **[ТС]**

Сообщение от sn_88

Можно так попробовать

Спасибо, а как залочить VbProject ?

@sn_88 · 21.11.2012, 15:06

В оболочке VBA жмем вкладку Tools -> VbaProject Properties -> Protection и ставим галку на Lock Project for Viewing ну и пароль пишем. Это самый простой. Уверен, что в нете можно еще способов нагуглить )

@Pandora12 · 21.11.2012, 15:10 **[ТС]**

Сообщение от sn_88

В оболочке VBA жмем вкладку Tools -> VbaProject Properties -> Protection и ставим галку на Lock Project for Viewing ну и пароль пишем. Это самый простой. Уверен, что в нете можно еще способов нагуглить )

А не подскажете, как еще сдеалть пароль на всю книгу, чтобы можно было устанавливать срок действия пароля в рамках некого ограниченного переиода времени, т.е. закончился срок действия пароля и пользователь не cможет больше зайти в книгу (Excel-2003) ?

@sn_88 · 21.11.2012, 15:29

Вот так можно.(ставить на "Эта книга")

Visual Basic

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

@Pandora12 0 / 0 / 0 Регистрация: 23.09.2011 Сообщений: 61
		1
	Как закрыть паролем отдельный лист в защищенный книге Excel-2003 21.11.2012, 01:38. Показов 3404. Ответов 5 Метки нет (Все метки) Есть защищеная книга в Excel-2003, состоящая из некоторого кол-ва отдлельных листов. Как сделать, чтобы при активации соответствуюещго листа выводилась запись о необходимости введения пароля, т.е. доступ к листу книги был бы только под паролем ? 0

@Pandora12 0 / 0 / 0 Регистрация: 23.09.2011 Сообщений: 61
	21.11.2012, 15:00 [ТС]	3
	Сообщение от sn_88 Можно так попробовать Спасибо, а как залочить VbProject ? 0

@sn_88 65 / 65 / 4 Регистрация: 21.06.2011 Сообщений: 166
	21.11.2012, 15:06	4
	В оболочке VBA жмем вкладку Tools -> VbaProject Properties -> Protection и ставим галку на Lock Project for Viewing ну и пароль пишем. Это самый простой. Уверен, что в нете можно еще способов нагуглить ) 0

@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) ? 0

	21.11.2012, 15:29