В БД необходимо создать макрос, суть которого расчет итоговой строки по условию

[EducatedFool]

В макросе есть такая строка:
Const ПарольЗащитыЛиста = "13", ПарольДоступаКФункциям = "civic"

Пароль запрашивается только при очистке и заполнении БД.
Формирование выборки осуществляется без запроса пароля.
Если надумаете сменить пароль для листов, не забудьте внести изменения в константу ПарольЗащитыЛиста.

Для снятия \ установки защиты предусмотрены 2 макроса:

Sub СнятьЗащитуСЛистов()
    Dim sh As Worksheet: On Error Resume Next
    For Each sh In ThisWorkbook.Worksheets
        sh.Unprotect ПарольЗащитыЛиста
    Next
End Sub

Sub УстановитьЗащитуНаЛисты()
    Dim sh As Worksheet: On Error Resume Next
    For Each sh In ThisWorkbook.Worksheets
        sh.Protect Password:=ПарольЗащитыЛиста, UserInterfaceOnly:=True
    Next
End Sub

Посмотрите такой вариант:

[mex32]

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

В макросе есть такая строка:
Const ПарольЗащитыЛиста = "13", ПарольДоступаКФункциям = "civic"

Если надумаете сменить пароль для листов, не забудьте внести изменения в константу ПарольЗащитыЛиста.

Я понял, уже раз поменял. Спасибо. Всех Вам благ!

Не угодали пароль