...Давайте развивать тему по делу. Что именно непонятно из ссылок?...

Эта же тема обсуждалась и на другом форуме, но вопрос решили здесь у Вас. Я там закрыл вопрос.
Помогло мне вот это:

Код: (vb)

Private Sub Workbook_Open()
    Dim arr, sSh
    arr = Array("Отчет", "База", "Бланк")
    For Each sSh in arr
        Protect_for_User_Non_for_VBA Me.Sheets(sSh)
    Next
End Sub

Sub Protect_for_User_Non_for_VBA(wsSh As Worksheet)
    wsSh.Protect Password:="1111", AllowFiltering:=True, UserInterfaceOnly:=True
End Sub

Комментарий глобального модератора

кнопка цитирования не для ответа

Супер !!!!!!!!!!!!!  Чох саг ол гардаш!!!!!!!!!!!!!!

elnur_quba, а зачем Вы дублируете сообщения?

Я сначала не заметил старую тему и открыл новую. Потом пока Вы отвечали нашёл старую и там же положил ссылку на новую чтобы не заблуждать посетитителей. Постараюсь не повторять. Прошу прошения.
*Скажу честно, сам не люблю такие вещи  

...то нужен маркер, чтобы определять нужные листы, иначе придется все имена вручную прописывать.

Вот листы и доступные в них диапазоны (вернее эти диапозоны в листах должны оставатся открытыми)

AMALIYYAT_BAZASI A1:M1
MUSTARI_BAZASI A1:K1
AMBAR_BAZASI A1:K1
ISCI_BAZASI A1:M1

дубль

Да
Я потом заметил 

Что мешает запускать макрос при открытии книги или при активации листа? Можно вообще защитить лист и отключать/включать защиту в обработчике кнопки.

Я пробовал защитить AMALIYYAT_BAZASI путём Рецензирование>Защита листа. Но в этом случае даёт ошибку 1004.
Подходить только макрос который указан выше, но к сожалению его каждый раз приходится включить вручную. Если есть какой то вариант сделать так чтобы он запускался автоматически при открытии файла было бы хорошо.
Отмечу, что таких листов вроде "базы" в файле много. Если решим одну с остальными сам разберусь.

Добрый вечер. Прошу помочь с защитой листа, только при некоторых условиях.
Ниже в файле много листов. Мне нужно проработать только на 2х листах - "AMALIYYAT_BAZASI" и "AMALIYYAT_DAXIL_ET"

Процесс: При нажатии на кнопку "DAXIL ET" расположенный на листе "AMALIYYAT_DAXIL_ET" excel должен скопировать информацию в диапазоне B2:B14, перейти на лист AMALIYYAT_BAZASI вставить исключително на ячейки A1:M1, там же встравить новые ячейки A1:M1 со сдвигом вниз, вернутся на лист AMALIYYAT_DAXIL_ET, очистить содержимое в ячейках B3:B6, B10:B11, B13 и закончить свою работу. Это работает нормально.

Вопрос: Как мы видим лист AMALIYYAT_BAZASI не защищена от изменений. Нужно сделать так, чтобы на листе прошли только изменения при нажатии на кнопку DAXIL ET (выше я указал для чего она нужна), чтобы кассир не лазил и не изменял данные в самой базе, тоесть на листе AMALIYYAT_BAZASI.

Вот макрос на листе AMALIYYAT_BAZASI. Но она выключается автоматически при закрытии файла. А потом снова приходится его вкючить(выполнить).

Sub Amaliyyat_bazasi()
ScrollArea = "A1:M1"
End Sub

Прошу знатков помощи, заранее спасибо.