Пользовательский доступ к вкладкам

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

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

Пользовательский доступ к вкладкам (Настройки Excel)

редактирование

Дата: Среда, 02.10.2013, 11:16 | Сообщение № 1

Группа: Гости

Можно ли организовать редактирование вкладок разными пользователями. Например в документе эксель три вкладки лист1 лист 2 лист3, лист1 может редактировать только domain1\user1 лист2 - domain1\user2, лист3 - domain1\user3. Надеюсь суть вопроса понятна

Ответить

Матраскин

Дата: Среда, 02.10.2013, 11:33 | Сообщение № 2

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

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

Сообщений: 375

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

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

20xx

[vba]

Код

Private Sub Workbook_Open()
     UserName = VBA.Environ$("USERNAME") ' получаем имя юзера
     Sheets("Name_sheet").Visible = xlVeryHidden 'блокируем лист
     If UserName = "Name_user" Then
        Sheets("Name_sheet").Visible = xlSheetVisible ' делаем видимым
     End If
End Sub

[/vba]

надеюсь суть ответа понятна yes

в интернете опять кто-то не прав

Сообщение отредактировал Матраскин - Среда, 02.10.2013, 11:36

Ответить

Poltava

Дата: Среда, 02.10.2013, 11:51 | Сообщение № 3

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

Ранг: Форумчанин

Сообщений: 232

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

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

[vba]

Код

Sub Info()
Set objSysInfo = CreateObject("ADSystemInfo") 'Подключаемся к AD
CurrentCompName = Right(Left(objSysInfo.ComputerName, InStr(1, _
     objSysInfo.ComputerName, ",") - 1), Len(Left(objSysInfo.ComputerName, InStr(1, _
     objSysInfo.ComputerName, ",") - 1)) - InStr(1, Left(objSysInfo.ComputerName, _
     InStr(1, objSysInfo.ComputerName, ",") - 1), "=")) 'Получаем имя компьютера
usrInfo = objSysInfo.UserName 'Читаем развернутую информацию о текущем пользователе
Set objSysInfo = Nothing
UserName = VBA.Environ$("USERNAME") ' получаем имя юзера
End Sub

[/vba]
Ну а так к примеру можно получить имя компьютера и данные пользователя для компьютера подключенного в домен

Ответить

Пользовательский доступ к вкладкам (Настройки Excel)

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