Разграничение прав доступа в книгах с общим доступом

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

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

Разграничение прав доступа в книгах с общим доступом (Макросы/Sub)

ArkaIIIa

Дата: Вторник, 07.02.2017, 11:01 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 894

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

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

2010

Добрый день, уважаемые господа!

Есть условный файл в который ограниченный список сотрудников должен уметь вносить исправления в режиме общего доступа, а все остальные - должны открывать файл просто на просмотр.

Пытался воспользоваться макросом:
[vba]

Код

Private Sub Workbook_Open()
    If Environ("USERNAME") <> "ivanov-ii" Then
    Worksheets("Лист1").EnableOutlining = True
    Worksheets("Лист1").Protect Password:="123007", UserInterfaceOnly:=True
    Else
        For i = 1 To Worksheets.Count
            Worksheets(i).Unprotect Password:="123007"
        Next i
    End If
End Sub

[/vba]
... но на книгах с общим доступом он работать отказывается.
Возможно у Вас есть идеи, как это можно реализовать?

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

Ответить

K-SerJC

Дата: Вторник, 07.02.2017, 12:22 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

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

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

Excel 2013

как идея можно попробовать
в этой же папке сделать другой файл, в котором будет работать макрос
основной файл сделать скрытым, или по другому пути положить

макрос в доп файле проверяет кто открыл его, и открывает основной файл с необходимым разрешением, после закрывается сам.

Благими намерениями выстелена дорога в АД.

Ответить

Разграничение прав доступа в книгах с общим доступом (Макросы/Sub)

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