Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » МАкрос на защиту от редактирования только отдельных столбцов (Макросы/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)
 
Ответить
Сообщениездравствуйте! помогите с макросом в ексел.
необходимо чтоб при запуске файла( при открытии) макрос защитил в активном листе все столбцы от редактирования( чтоб никто не смог изменить данные в этих столбцах), кроме тех столбцов в первой ячейке которых пусто.
у меня в файле в первой строке по 2 ячейки объединенные, т.е когда в A1( A1 и B1 объединенные ячейки) вносятся данные, необходимо чтоб, столбцы А и Б блокировались от редактирования, тоже самое и в следующих столбца, когда в С1( С1 и Д1 объединенные ячейки) вносятся данные, необходимо чтоб, столбцы С и Д блокировались от редактирования и так далее....и не могли бы внести в код чтоб при нажатии комбинации клавиш ctrl+L защита снималась( чтоб только ответственный человек мог снимать защиту и возвращать обратно)

Автор - aidanasabaz
Дата добавления - 25.04.2024 в 21:59
Nic70y Дата: Пятница, 26.04.2024, 08:45 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8791
Репутация: 2293 ±
Замечаний: 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
 
Ответить
Сообщениемодуль книги
[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]

Автор - Nic70y
Дата добавления - 26.04.2024 в 08:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » МАкрос на защиту от редактирования только отдельных столбцов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!