защита листа/книги по умолчанию при выходе из файла

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

защита листа/книги по умолчанию при выходе из файла (Макросы/Sub)

QwertyBoss

Дата: Среда, 23.12.2015, 06:16 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 87

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Доброго утра!!! Не могу в толк взять почему при закрытии книги, у меня не ставиться защита листов. Указал в модуле листа все что надо (даже в модуле книги), а при открытии защита не стоит... Вывел на кнопки (5 -снятие и 6-защита) - все работает. Чего я не учёл? (пароль - 123).

К сообщению приложен файл: 8971374.xlsm (83.5 Kb)

Ответить

Nic70y

Дата: Среда, 23.12.2015, 08:42 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9223

Репутация: 2478 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

ActiveWorkbook.Save

[/vba]наверное

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Среда, 23.12.2015, 08:43

Ответить

QwertyBoss

Дата: Среда, 23.12.2015, 08:58 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 87

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Не совсем понял зачем сохранялка?

Ответить

Nic70y

Дата: Среда, 23.12.2015, 09:01 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 9223

Репутация: 2478 ±

Замечаний: 0% ±

Excel 2010

Если вы не сохраните файл, значит он и не запомнит, что был установлен пароль.

ЮMoney 41001841029809

Ответить

QwertyBoss

Дата: Среда, 23.12.2015, 09:11 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 87

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Всё понял. Получилось. Спс Вам.

Ответить

QwertyBoss

Дата: Среда, 23.12.2015, 09:31 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 87

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

После того как установил автоматическую защиту листа и при работе с файлом, перестал макрос реагировать
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Rng As Range
        If IsEmpty(Rng) Then
            Rng.Select
        End If
End Sub

[/vba]
Есть ли какая то зависимость?

К сообщению приложен файл: 0173801.xlsm (72.7 Kb)

Ответить

RAN

Дата: Среда, 23.12.2015, 09:55 | Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Есть. Защищенную ячейку выделить нельзя.
Посмотрел код.
Ваши процедуры защиты - полный бред.
Если ставите пароль, то и снимать защиту нужно с паролем.
В одной процедере отключаете обработку событий, в другой включаете.

Вы задуматься о том, что делаете, не пытались? Без относительно к коду, просто подумать?

Быть или не быть, вот в чем загвоздка!

Ответить

QwertyBoss

Дата: Среда, 23.12.2015, 10:17 | Сообщение № 8

Группа: Пользователи

Ранг: Участник

Сообщений: 87

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Мда... Критику тоже нужно принимать такой какая она есть. Я только учусь и всё собираю по форумам да ютубам и следую советом форумчан... Буду дум

Лишнее удалил (Сохранения, кодирования, шифрования... потом доделаю), оставил только самое необходимое. Но и тут не хочет код работать

[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Rng As Range
        If IsEmpty(Rng) Then
            Rng.Select
        End If
End Sub

[/vba]

Уже голова пухнет...

К сообщению приложен файл: 5844079.xlsm (64.0 Kb)

Сообщение отредактировал QwertyBoss - Среда, 23.12.2015, 12:31

Ответить

защита листа/книги по умолчанию при выходе из файла (Макросы/Sub)

Страница 1 из 1
1