Пароль на защиту листа

@DarkSacred · Регистрация: 24.01.2011

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

Добрый день.

Помогите, пожалуйста заполнить пробел в коде.
Необходимо узнать как можно проверить установлен ли пароль на защищенном листе.

Visual Basic

If sh.ProtectContents Then    'если лист защищен
       If ... Then 'условие должно проверять есть ли пароль на листе или он защищен без пароля
             pass = InputBox(Prompt:="Введите пароль")
             sh.Unprotect Password:=pass
       Else
             sh.Unprotect
    End If

Заранее спасибо!!!!

@Helen_fire · 25.01.2011, 16:25

Сделайте просто:

Visual Basic

On Error GoTo 1
ActiveSheet.Unprotect Password:=""
ActiveSheet.Protect Password:=InputBox(Prompt:="Введите пароль")
1: 
' дальнейшая процедура

В случае отсутствия пароля или пустого пароля, компьютер будет требовать ввести пароль, иначе проходить этот шаг (3-ю строку) мимо. ;-)

	25.01.2011, 16:25

Опции темы