Разграничение прав доступа на области листа

@BadNV · Регистрация: 24.01.2013

Задача: сделать так, чтобы лист могли видеть все пользователи, но Группа 1 могла редактировать и добавлять только в одном диапозоне ячеек, а Группа 2 - в другом.
Как это сделать?
Пока смог только прятать листы от разнух групп, в зависимости от Username (пользователи в основном - люди возрастные и в компьютере не особо разбираются, как поменять имя пользователя в exel не найдут). Поскольку в 1-й группе 8 человек, в другой - 12, можно вбить их всех в макрос.

Visual Basic

1
2
3

If Application.UserName = "" Then
Sheets("Доходы").Visible = xlVeryHidden
Sheets("Расходы").Visible = True

Какое свойство можно поставитть вместо Visible (и соответственно какое значение ему придать), чтобы было видно все ячейки, но было раздлеление по диапозонам в части возможности редактирования?

@~~Апострофф~~ · 07.02.2013, 11:36

Вариант (в модуль эта книга) -

Visual Basic

Private Sub Workbook_Open()
ActiveSheet.Unprotect
Cells.Locked = False
Select Case Application.UserName
  Case "user1", "user2", "user3", "user4", "user5" 'для перечисленных пользователей
    Columns(1).Locked = True 'запрещаем редактирование первого стобца
  Case "user11", "user12", "user13", "user14", "user15" 'для перечисленных пользователей
    Columns(2).Locked = True 'запрещаем редактирование второго стобца
  Case Else 'для все прочих
    Cells.Locked = True 'запрещаем редактирование всего листа
End Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

@BadNV · 07.02.2013, 13:01 **[ТС]**

Спасибо! А как отключить всплывающее сообщения? Чтобы не писал "Ячейка защищена от редактирования. Зайдите туда то и отключите то-то". Так даже мои возрастники ее отключят из чистого любопытства.
Строчка Application.DisplayAlerts = False почему-то не помогла.

Добавлено через 12 минут
Отбой. Нашел как сделать.

@~~Апострофф~~ · 07.02.2013, 13:49

Не по теме:

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

Отбой. Нашел как сделать.

Нашел, так поделись со всеми:)

@BadNV · 07.02.2013, 13:53 **[ТС]**

Это не через макрос делается.
Вкладка рецензирование - Защитить лист - убрать галочку напротив "выделение заблокированных ячеек". В итоге, те ячейки, которые макрос блокирует для юзера не могут быть выделены, а значит и сообщений не будет.

@~~Апострофф~~ · 07.02.2013, 14:03

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

Это не через макрос делается.

Можно и через макрос

Visual Basic

1	ActiveSheet.EnableSelection = xlUnlockedCells

@BadNV · 07.02.2013, 15:06 **[ТС]**

Чей-то не помогает эта строчка, все равно сообщение выскакивает.

@~~Апострофф~~ · 07.02.2013, 15:27

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

все равно сообщение выскакивает

Я вставил эту строку после 2-й строки своего варианта. Сообщение выскакивает только при двойном клике и при условии, что весь лист заблокирован, иначе происходит вход в активную ячейку. Возможно, что-то не учтено?

@BadNV · 07.02.2013, 15:29 **[ТС]**

Пардон, все встало как надо. Так и не понял, где не так сделал. Просто перезалил в VBA твой макрос еще раз.

@BadNV 3 / 0 / 0 Регистрация: 24.01.2013 Сообщений: 11
	07.02.2013, 13:01 [ТС]	3
	Спасибо! А как отключить всплывающее сообщения? Чтобы не писал "Ячейка защищена от редактирования. Зайдите туда то и отключите то-то". Так даже мои возрастники ее отключят из чистого любопытства. Строчка Application.DisplayAlerts = False почему-то не помогла. Добавлено через 12 минут Отбой. Нашел как сделать. 0

@~~Апострофф~~
	07.02.2013, 13:49 #4
	Не по теме: Сообщение от BadNV Отбой. Нашел как сделать. Нашел, так поделись со всеми:) 0

@BadNV 3 / 0 / 0 Регистрация: 24.01.2013 Сообщений: 11
	07.02.2013, 13:53 [ТС]	5
	Это не через макрос делается. Вкладка рецензирование - Защитить лист - убрать галочку напротив "выделение заблокированных ячеек". В итоге, те ячейки, которые макрос блокирует для юзера не могут быть выделены, а значит и сообщений не будет. 0

@BadNV 3 / 0 / 0 Регистрация: 24.01.2013 Сообщений: 11
	07.02.2013, 15:06 [ТС]	7
	Чей-то не помогает эта строчка, все равно сообщение выскакивает. 0

@~~Апострофф~~ Заблокирован
	07.02.2013, 15:27	8
	Сообщение от BadNV все равно сообщение выскакивает Я вставил эту строку после 2-й строки своего варианта. Сообщение выскакивает только при двойном клике и при условии, что весь лист заблокирован, иначе происходит вход в активную ячейку. Возможно, что-то не учтено? 0

@BadNV 3 / 0 / 0 Регистрация: 24.01.2013 Сообщений: 11
	07.02.2013, 15:29 [ТС]	9
	Пардон, все встало как надо. Так и не понял, где не так сделал. Просто перезалил в VBA твой макрос еще раз. 0

Опции темы

Разграничение прав доступа на области листа

Решение