Снять/защитить диапазон с учетом добавления строк

[dzv]

Добрый день уважаемые участники клуба!

Помогите решить задачу.

Имеется файл, в котором я пытаюсь по максимуму защитить файл от нежелательных ошибок, которые возникают при неправильном вводе данных. Также, в нем, допускаю работу только при включении макросов, чтобы при отключении, файл был полностью защищен от различных манипуляций.
Практически все сделал, но осталась одна не решенная задача, а именно.
Нужно, чтобы при добавлении (добавление/удаление происходит только с помощью кнопки) строк (после строки № 10) они (строки) каким-то образом считались, чтобы при новом открытии эти строки были не защищены.
Ниже приведен код, в котором это необходимо реализовать (я так понимаю добавить определенный алгоритм).

Private Sub Workbook_Open()
    '// Снять защиту диапазона ячеек и строк.
    Worksheets(1).Unprotect Password:="пароль"
    Worksheets(1).Range("$D$3,$I$2:$N$2,$V$7,$F$14:$I$14,$N$14:$R$14,$B$16:$D$16,$B$17:$D$17").Name = "РабочаяОбласть"
    Range("РабочаяОбласть").Locked = False
    Range("РабочаяОбласть").FormulaHidden = False
    Rows(10).Locked = False
    Rows(10).FormulaHidden = False
    Worksheets(1).Range("$D$3").Select
    Worksheets(1).Protect Password:="пароль", AllowSorting:=True, AllowFiltering:=True
    ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    '// Возобновить защиту диапазона строк.
    Worksheets(1).Unprotect Password:="пароль"
    Worksheets(1).Rows("1:4000").Locked = True
    Worksheets(1).Rows("1:4000").FormulaHidden = True
    Worksheets(1).Protect Password:="пароль"
End Sub

Жду с нетерпением Ваши ответы и предложения!

С уважением, Дмитрий.

[dzv]

Я так понимаю со словом "Уважаемые" я погорячился...

Просмотров много, но ответов ноль...

Если эта задача требует чего-то дополнительного, неужели нельзя об этом написать хотя бы пару слов (фраз)...

Или возможно я неправильно задал и изложил свой вопрос?!

[EducatedFool]

Ниже приведен код, в котором это необходимо реализовать (я так понимаю добавить определенный алгоритм)

А какое отношение имеет Ваш код к прикреплённому файлу?

Вы уверены, что это - тот самый файл?
Именованный диапазон "РабочаяОбласть" с адресом "$D$3,$I$2:$N$2,$V$7,$F$14:$I$14,$N $14:$R$14,$B$16:$D$16,$B$17:$D$17"
мягко говоря, не очень-то совпадает с диапазоном данных на листе...

они (строки) каким-то образом считались, чтобы при новом открытии эти строки были не защищены.

Что и где считать, и какие строки надо защищать, я вообще не понял...

[dzv]

EducatedFool, спасибо что откликнулись!

"РабочаяОбласть + Rows(10)" - это начальный диапазон.
Возможно я не правильно выражаюсь, простите, не программист и даже не любитель, скорее начинающий чайник.

Код не вставил в файл, потому что он не доработанный. С помощью кнопок, которые в файле, будут добавляться/удаляться строки после строки №10 ("Rows(10)").
Вот и сам вопрос:

Каким образом возможно их добавлять после строки №10, чтобы при закрытии и следующем открытии файла, в новом диапазоне не было защиты?!

Мой файл при открытии вызывает первую часть кода и при этом снимает с "РабочаяОбласть + Rows(10)" защиту ячеек. А когда я его закрываю, защищает строки с 1:4000 и автоматически его сохраняет, чтобы при открытии файла без макросов, в нем ничего невозможно было изменять.

[0mega]

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

Что и где считать, и какие строки надо защищать, я вообще не понял...

Похоже, что автор желает "закрыть" на пароль первые 10 строк, а остальные сделать общедоступными

[dzv]

0mega, немножко не так.

Вот что открытым:
1. "$D$3,$I$2:$N$2,$V$7,$F$14:$I$1 4,$N $14:$R$14,$B$16:$D$16,$B$17:$D$17" = РабочаяОбласть
2. И строка №10, а также все ново-добавленные строки после №10.
№10,11,12,13,...,4000 - только добавленные!

[0mega]

к сожалению, я не смогу здесь помочь...
а вот EducatedFool, если еще раз зайдет на эту тему, то наверняка предоставит Вам все на "блюдечко с голубой кайомочкой"
P.S.
Могу лишь подбросить идейку.
А что если все ( что не должно быть общедоступным) разместить на новом листе, а лист закрыть паролем.

[0mega]

по непонятной причине мой пост продублировался 2 раза и поэтому вместо 2-го дубля написано это оправдание

[dzv]

0mega, спасибо Вам!
Я так и сделал, пока что это единственный способ, благо еще тема появилась про защиту файла паролем, где EducatedFool как всегда на высоте.

Думаю, смысла больше нет отвечать в этой теме, разве, что будут конкретные идеи.

Буду дальше бороться со своим файлом, всем удачи!