-=Макрос прав доступа=-

Дата: Воскресенье, 29.05.2011, 11:39 | Сообщение № 1

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Всем привет.

Файла пока нет, но выглядеть он будет так:
Пустой лист с надписью "У Вас нет прав доступа";
Несколько "очень скрытых" листов (количество всегда разное) названных по User Name адресатов.

Цель макроса: При получении файла юзером, должен скрываться пустой лист и отображаться лист соответствующий User Namе. Если такого User Name в названиях листов нет - то ничего не происходит.

Спасибо.

ЮMoney:41001419691823 | WMR:126292472390

Дата: Воскресенье, 29.05.2011, 14:30 | Сообщение № 2

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

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

Сообщений: 1068

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

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

XL 2016

Здоров, Серега.
предлагаю на пустом листе написать - "У Вас нет прав доступа либо отключены макросы" - была такая проблема...
[vba]

Код

Private Sub Workbook_Open()
       Dim sh0 As Worksheet, shUser As Worksheet

       Set sh0 = ActiveSheet 'узкое место - лучше указать на "пустого" поконкретней

       On Error Resume Next
       Set shUser = Sheets(Environ("UserName"))
       If Err = 0 Then
           shUser.Visible = xlSheetVisible
           sh0.Visible = xlSheetVeryHidden
       End If
       On Error GoTo 0

End Sub

[/vba]

Дата: Воскресенье, 29.05.2011, 14:38 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (Саня)

все это добро в обработчик Workbook_Open

Ага, ты пост подредактировал wink

Блин, а проверить-то его как?

ЮMoney:41001419691823 | WMR:126292472390

Дата: Воскресенье, 29.05.2011, 15:02 | Сообщение № 4

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

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

Сообщений: 1068

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

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

XL 2016

Quote (Serge_007)

Блин, а проверить-то его как?

я надеюсь первое слово - это не обращение biggrin

что и на что проверить?

Дата: Воскресенье, 29.05.2011, 15:11 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (Саня)

я надеюсь первое слово - это не обращение

Правильно надеешься smile

ЮMoney:41001419691823 | WMR:126292472390

Дата: Воскресенье, 29.05.2011, 15:19 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Работает, да не совсем...

Лист 1 скрывает, а вот лист "фыфыы" - остаётся.

К сообщению приложен файл: Analitica.xls (31.0 Kb)

ЮMoney:41001419691823 | WMR:126292472390

Дата: Воскресенье, 29.05.2011, 19:48 | Сообщение № 7

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

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

Сообщений: 1068

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

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

XL 2016

Quote (Serge_007)

а вот лист "фыфыы" - остаётся.

макрос скрывает только твой лист-заставку и открывает лист с названием логина пользователя,
остальные листы изначально (я так думал и это правильно, т.к. макросы "вырублены" и все листы напоказ, если не скрыты изначально - на макросы так уж сильно надеяться нельзя) "очень" скрыты и с ними он ничего не делает...

Дата: Воскресенье, 29.05.2011, 20:09 | Сообщение № 8

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (Саня)

макрос скрывает только твой лист-заставку и открывает лист с названием логина пользователя

Точно, так и надо.
Но всё равно что-то не так...
Смотри, я прикладываю файл. Измени название листа Serge 007 на своё, сохрани файл и открой его.
У меня файл открывается на листе Лист 1, а не на Serge 007, как должно быть...

К сообщению приложен файл: 7887899.xls (32.0 Kb)

ЮMoney:41001419691823 | WMR:126292472390

Дата: Воскресенье, 29.05.2011, 20:34 | Сообщение № 9

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

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

Сообщений: 1068

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

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

XL 2016

проверь свой логин -
Environ("UserName")

К сообщению приложен файл: 3127543.xls (28.5 Kb)

Дата: Воскресенье, 29.05.2011, 20:42 | Сообщение № 10

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (Саня)

проверь свой логин

Логин у меня всегда один smile

И в первом варианте кода - работало...

И сейчас работает. Но ты явно в коде логин прописал, а надо что бы макрос сам получал его...

ЮMoney:41001419691823 | WMR:126292472390

Дата: Воскресенье, 29.05.2011, 21:17 | Сообщение № 11

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

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

Сообщений: 1068

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

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

XL 2016

в редакторе VB нажми Ctrl+G и напиши там
?Environ("UserName")
нажми ввод. Что у тебя получилось?

Дата: Воскресенье, 29.05.2011, 21:27 | Сообщение № 12

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (Саня)

в редакторе VB нажми Ctrl+G и напиши там
?Environ("UserName")
нажми ввод. Что у тебя получилось?

Serge 007

Я же прежде чем лист называть формулами проверил какой у меня User Name

ЮMoney:41001419691823 | WMR:126292472390

Дата: Воскресенье, 29.05.2011, 21:30 | Сообщение № 13

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

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

Сообщений: 1068

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

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

XL 2016

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

Дата: Понедельник, 30.05.2011, 23:25 | Сообщение № 14

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Саня, сегодня проверить не удалось - слишком много работы...

ЮMoney:41001419691823 | WMR:126292472390

Дата: Вторник, 31.05.2011, 12:26 | Сообщение № 15

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

Ранг: Участник клуба

Сообщений: 3208

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

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

2003

Серёга, а в продолжение идеи Сани попробуй-ка в модуле ЭтаКнига размести такой код:
[vba]

Код

Private Sub Workbook_Open()
     Dim iSht As Worksheet
     On Error Resume Next
     For Each iSht In ThisWorkbook.Sheets
        iSht.Visible = IIf(iSht.Name = Environ("UserName"), xlSheetVisible, xlSheetVeryHidden)
     Next
     If Err Then ThisWorkbook.Close SaveChanges:=False
End Sub

[/vba]

Только для первой пробы лучше сделать последний If так: [vba]

Код

If Err Then MsgBox "Sheet " & Environ("UserName") & " not found!"
' If Err Then ThisWorkbook.Close SaveChanges:=False

[/vba]

У меня почему-то со своим UserName работало отлично, а когда я вместо Environ("UserName") при тестировании указывал напрямую Serge_007, то не всегда хотела открываться и приходилось извращаться - макросы запрещать чтобы книгу открыть biggrin

Может, пробел в имени как-то мешает? Кстати, а разве в UserName допустимы пробелы?

С уважением,
Алексей
MS Excel 2003 - the best!!!

Дата: Вторник, 31.05.2011, 12:36 | Сообщение № 16

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Спасибо Алекс.

Цитата Alex_ST ()

а разве в UserName допустимы пробелы?

У меня есть. Проверял функцией ЯЧЕЙКА.

ЮMoney:41001419691823 | WMR:126292472390

Дата: Вторник, 31.05.2011, 13:45 | Сообщение № 17

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

Ранг: Участник клуба

Сообщений: 3208

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

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

2003

А мой-то макрос проверил?
У меня пашет настолько нормально, что открыть книгу, где нет твоего листа можно только предварительно отключив макросы

С уважением,
Алексей
MS Excel 2003 - the best!!!

Дата: Вторник, 31.05.2011, 13:59 | Сообщение № 18

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (Alex_ST)

А мой-то макрос проверил?

Не находит мой лист, хотя он есть в файле и назван правильно (в МсгБокс тоже отображается правильно). Сейчас разбираться времени нет, работы много, поэтому позже.

ЮMoney:41001419691823 | WMR:126292472390

Дата: Вторник, 31.05.2011, 14:20 | Сообщение № 19

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

Ранг: Участник клуба

Сообщений: 3208

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

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

2003

У меня, кстати, тоже с твоим персональным листом были проблемы.
Попробуй когда дойдут руки до отладки добавить персональный лист так:
[vba]

Код

Sub AddUserSheet()
ThisWorkbook.Sheets.Add
ActiveSheet.Name = Environ("UserName")
End Sub

[/vba]

С уважением,
Алексей
MS Excel 2003 - the best!!!

Дата: Вторник, 31.05.2011, 17:09 | Сообщение № 20

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

Ранг: Участник клуба

Сообщений: 3208

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

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

2003

Серёга, у меня сегодня на работе было свободное время и вот что я накрутил:
Для каждого из "нужных" юзеров в книге есть свой лист, имя которого совпадает с именем пользователя компьютера (переменная окружения "UserName" ).
Перед закрытием книги все листы пользователей сильно скрываются (SheetVeryHidden).
Лист Access_Denied (имя задаётся константой в декларациях модуля ЭтаКнига) показывается (SheetVisible) и книга сохраняется.
Лист Access_Denied Защищен от изменений паролем.
Проект VBA защищен паролем.
ОБА ПАРОЛЯ - пробел.
Поэтому даже если на компьютере макросы, пользователь, для которого в книге нет персонального листа, открыть спрятанные листы книги не сможет, а увидит только лист Access_Denied.
Если же макросы включены, то книга просто закроется.
(для этого нужно исправить последние строки процедуры Workbook_Open так:[vba]

Код

'If Err Then MsgBox "Sheet " & UName & " not found!" ' пытаемся скрыть PublicSheet. Если будет ошибка, то значит все другие уже скрыты
If Err Then ThisWorkbook.Close SaveChanges:=False

[/vba]

Единственное, что пока не смог сделать: если с "левого" компа открыть книгу при отключенных макросах, искалечить имя листа Access_Denied и сохраниться, то после следующего открытия со включенными макросами может заглючить, т.к. не найдёт нужный лист.

Код

К сообщению приложен файл: CheckUserName.xls (70.0 Kb)

С уважением,
Алексей
MS Excel 2003 - the best!!!