МАкрос на защиту от редактирования только отдельных столбцов

Старая форма входа

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

МАкрос на защиту от редактирования только отдельных столбцов (Макросы/Sub)

aidanasabaz

Дата: Четверг, 25.04.2024, 21:59 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 4

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

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

2016

здравствуйте! помогите с макросом в ексел.
необходимо чтоб при запуске файла( при открытии) макрос защитил в активном листе все столбцы от редактирования( чтоб никто не смог изменить данные в этих столбцах), кроме тех столбцов в первой ячейке которых пусто.
у меня в файле в первой строке по 2 ячейки объединенные, т.е когда в A1( A1 и B1 объединенные ячейки) вносятся данные, необходимо чтоб, столбцы А и Б блокировались от редактирования, тоже самое и в следующих столбца, когда в С1( С1 и Д1 объединенные ячейки) вносятся данные, необходимо чтоб, столбцы С и Д блокировались от редактирования и так далее....и не могли бы внести в код чтоб при нажатии комбинации клавиш ctrl+L защита снималась( чтоб только ответственный человек мог снимать защиту и возвращать обратно)

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

Ответить

Nic70y

Дата: Пятница, 26.04.2024, 08:45 | Сообщение № 2

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

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

Сообщений: 9005

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

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

Excel 2010

модуль книги
[vba]

Код

Private Sub Workbook_Open()
    ActiveSheet.Unprotect
    Cells.Locked = False
    a = Cells(1, Columns.Count).End(xlToLeft).Column
    For b = 1 To a Step 2
        c = Cells(1, b).Value
        If c <> "" Then
            Range(Columns(b), Columns(b + 1)).Locked = True
        End If
    Next
    ActiveSheet.Protect
End Sub

[/vba]
стандартный
[vba]

Код

Sub u_()
' Сочетание клавиш: Ctrl+Shift+L
ActiveSheet.Unprotect
End Sub

[/vba]

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

ЮMoney 41001841029809

Ответить

МАкрос на защиту от редактирования только отдельных столбцов (Макросы/Sub)

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