Защита столбца в Excel

@gegoza · Регистрация: 11.08.2009

Студворк — интернет-сервис помощи студентам

Есть документ Excel с разного рода информацией.
Пусть есть первый столбец это наименование фирм.
остальные это цифры и текст.
Требуется сделать защиту на столбец с наименованием, чтобы пользователь мог только заносить новые наименования и не мог исправлять или удалять старые.
И еще требуется выводить в отдельный столбец значения которые изменялись в документе.

@Limum12 · 21.07.2023, 22:30

Добрый день.
Задача схожая:
Столбец наименование повторяется на всех листах книги(добустим, столбец А)
Требуется сделать защиту на столбец А, чтобы пользователь мог заносить информацию в другие солбцы, кроме защищенного.
Защита должна работать для всех листов книги. Заранее спасибо!

@MikeVol · 22.07.2023, 00:52

Limum12, Здравствуйте. Как вариант, вставьте следущий код в модуль ЭтаКнига:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Option Explicit
 
' События которое срабатывает при выборе ячейки на любом листе в книге
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim ws          As Worksheet
 
    ' Задаем номер защищенного столбца (в данном случае, столбец А)
    Dim protectedColumn As Long: protectedColumn = 1
 
    ' Пароль для защиты столбца А
    Dim password    As String: password = "1111"
 
    ' Отключаем защиту на всех листах
    For Each ws In ThisWorkbook.Worksheets
        ws.Unprotect password:=password
    Next ws
 
    ' Проверяем, находится ли активная ячейка в защищенном столбце
    If Target.Column = protectedColumn Then
        ' Если активная ячейка в столбце А, то включаем защиту на активном листе,
        ' разрешая только редактирование содержимого ячеек, но не рисование или сценарии
        Sh.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, password:=password
    End If
 
End Sub

После того как вы вставили код в книгу, сохраните вашу книгу и закройте её. Откройте вашу книгу снова и пользуйтесь. Код прокоментировал коментариями для того чтоб вы понял что делает каждая строчка в коде. Надеюсь вы разберётесь. Пароль для снятия защиты столбца A 1111
Удачи.

Новые блоги и статьи Все статьи Все блоги /
Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .

@gegoza 0 / 0 / 0 Регистрация: 11.08.2009 Сообщений: 3

	Защита столбца в Excel 06.07.2010, 14:46. Показов 13445. Ответов 21 Метки нет (Все метки) Есть документ Excel с разного рода информацией. Пусть есть первый столбец это наименование фирм. остальные это цифры и текст. Требуется сделать защиту на столбец с наименованием, чтобы пользователь мог только заносить новые наименования и не мог исправлять или удалять старые. И еще требуется выводить в отдельный столбец значения которые изменялись в документе. 0

@Limum12 0 / 0 / 0 Регистрация: 01.08.2022 Сообщений: 1
	21.07.2023, 22:30
	Добрый день. Задача схожая: Столбец наименование повторяется на всех листах книги(добустим, столбец А) Требуется сделать защиту на столбец А, чтобы пользователь мог заносить информацию в другие солбцы, кроме защищенного. Защита должна работать для всех листов книги. Заранее спасибо! 0