Право доступа к документу - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Право доступа к документу - Мир MS Excel

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

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

Право доступа к документу

Право доступа к документу

Дата: Среда, 29.02.2012, 10:06 | Сообщение № 1

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

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

Сообщений: 156

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

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

Скажите: можно-ли установить защиту на определенные ячейки или диапазоны листа, причем на разные диапазоны одного листа разные пароли. Например, чтобы в одном документе работали разные пользователи и могли изменять только определенные ячейки?

Ответить

Дата: Среда, 29.02.2012, 10:08 | Сообщение № 2

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (Rusel)

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

Такой вопрос был как-то. Ответ отрицательный

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Среда, 29.02.2012, 10:09 | Сообщение № 3

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

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

Сообщений: 156

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

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

Спасибо, будем искать другие пути...

Ответить

Дата: Среда, 29.02.2012, 10:36 | Сообщение № 4

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

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

Сообщений: 1068

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

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

XL 2016

в модуль "ЭтаКнига":
[vba]

Code

Private Sub Workbook_Open()
     Dim sRngAddr As String: sRngAddr = ""
     Select Case Environ("UserName")
         Case "ivanov", "petrov": sRngAddr = "B2:C13"
         Case "sidorov": sRngAddr = "F10:H20"
         Case "sanya"
         Case Else
             MsgBox "Вы не можете открыть эту книгу", vbCritical
             With ThisWorkbook
                 .Saved = True
                 .Close
             End With
     End Select

     Sheets(1).ScrollArea = sRngAddr
End Sub

[/vba]

паролей никаких нет, но можно контролировать диапазоны доступа разных пользователей

Ответить

Дата: Среда, 29.02.2012, 11:31 | Сообщение № 5

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

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

Сообщений: 156

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

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

А как это работает?

Ответить

Дата: Среда, 29.02.2012, 12:17 | Сообщение № 6

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

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

Сообщений: 514

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

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

Можно еще попробовать такой вариант:
[vba]

Code

Sub Auto_Open()
pswd = InputBox("Введите пароль доступа к файлу(1 или 2):")
Select Case pswd
       Case "1"
           locked ("B5:D8")
       Case "2"
           locked ("E5:G8")
       Case Else
           ThisWorkbook.Close True
End Select
End Sub
Sub locked(diap As String)
           ActiveSheet.Unprotect
           Cells.locked = True
           Range(diap).locked = False
           ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

[/vba]

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

"Ничто не приносит людям столько неприятностей, как разум."

Сообщение отредактировал Jhonson - Среда, 29.02.2012, 12:22

Ответить

Дата: Среда, 29.02.2012, 12:48 | Сообщение № 7

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

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

Сообщений: 1068

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

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

XL 2016

Quote (Rusel)

А как это работает?

в той самой книге Alt+F11, двойн. щелчок по модулю "ЭтаКнига" (слева область "Project - VBAProject", если ее нет, то Ctrl+R), в этот модуль вставляешь тот код,
меняешь придуманных пользователей на своих, адрес после пользователей - это как раз адрес, где пользователю позволено "тусоваться"
если адреса нет (как у San'и), то ограничений нет.
Sheets(1).ScrollArea = sRngAddr - на первом по-порядке листе все это и применяется.

осталось только пользователям включить макросы (демонический смех) killed

killed

Ответить

Дата: Среда, 29.02.2012, 13:04 | Сообщение № 8

Группа: Редакторы

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

Сообщений: 431

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

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

[vba]

Code

Select Case InputBox("Введите пароль доступа к файлу(1 или 2):")

[/vba]
Jhonson, не?

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba

Ответить

Дата: Среда, 29.02.2012, 13:13 | Сообщение № 9

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

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

Сообщений: 514

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

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

Quote (nerv)

Jhonson, не?

Согласен, без лишних переменных ))))

"Ничто не приносит людям столько неприятностей, как разум."

Ответить

Дата: Среда, 29.02.2012, 13:19 | Сообщение № 10

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

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

Сообщений: 156

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

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

в файле Jhonsonа пароль запрашивается только при открытии документа? И если пользователь вошел, то нажав Alt F11, может посмотреть остальные пароли?

Ответить

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

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

А для тех, кто вошел, ставим пароль на VBAProject.

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Среда, 29.02.2012, 13:37 | Сообщение № 12

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

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

Сообщений: 156

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

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

Quote (RAN)

А для тех, кто вошел, ставим пароль на VBAProject.

Этого я точно не умею.
Посоветуйте литературу или ссылку, где можно поподробнее изучить VBA?

Ответить

Дата: Среда, 29.02.2012, 14:07 | Сообщение № 13

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

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

Сообщений: 514

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

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

Не вижу трудностей с паролем на VBAProject:

Кликаем правой кнопкой на VBAProject(Имя Файла)
в открывшемся меню выбираем VBAProject Properties...
Далее на закладке Protection ставим галочку и вводим пароль!

"Ничто не приносит людям столько неприятностей, как разум."

Ответить

Дата: Среда, 29.02.2012, 14:44 | Сообщение № 14

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

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

Сообщений: 514

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

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

Quote (Rusel)

Посоветуйте литературу или ссылку, где можно поподробнее изучить VBA?

На этом сайте есть все что нужно!

"Ничто не приносит людям столько неприятностей, как разум."

Ответить

Дата: Среда, 29.02.2012, 14:45 | Сообщение № 15

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

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

Сообщений: 156

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

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

Jhonson, Благодарю. С паролем разобрался. пойду на сайт погляжу...

Ответить

Дата: Среда, 29.02.2012, 14:48 | Сообщение № 16

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

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

Сообщений: 514

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

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

Quote (Rusel)

пойду на сайт погляжу...

biggrin

Насмешил )))

"Ничто не приносит людям столько неприятностей, как разум."

Ответить

Право доступа к документу

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

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!