запрет сохранения

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

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

запрет сохранения (Word)

запрет сохранения

KaTeR-Ok

Дата: Четверг, 05.02.2015, 08:14 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

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

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

Excel 2007

Добрый всем день, помогите с проблемкой, пожалуйста. Как можно запретить сохранять книгу эксель всем пользователям, кроме себя? То есть, что бы они могли открывать её, пользоваться (редактировать), но не могли потом всё это сохранить. Заранее спасибо откликнувшимся

Ответить

Gustav

Дата: Четверг, 05.02.2015, 08:22 | Сообщение № 2

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

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

Сообщений: 2794

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

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Процедура обработки события Workbook.BeforeSave. В ней анализируете пользователя.

Текущего пользователя вот так получаете:
UserName = Environ$("UserName")

МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Четверг, 05.02.2015, 08:39

Ответить

KaTeR-Ok

Дата: Четверг, 05.02.2015, 12:59 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

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

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

Excel 2007

Gustav, Спасибо, конечно, за ответ, но где и что надо сделать - не понятно

Ответить

Manyasha

Дата: Четверг, 05.02.2015, 18:34 | Сообщение № 4

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

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

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

Excel 2010, 2016

KaTeR-Ok, В модуль книги поместите
[vba]

Код

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
     UserName = Environ$("UserName")
     If UserName <> "user" Then
         Cancel = True
     End If
End Sub

[/vba]

ЯД: 410013299366744 WM: R193491431804

Ответить

Gustav

Дата: Четверг, 05.02.2015, 19:40 | Сообщение № 5

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

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

Сообщений: 2794

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

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Да, ну или можно не заморачиваться на пользователя, а просто поставить пароль на запись:
[vba]

Код

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
       If InputBox("Введите пароль для сохранения книги") <> "1234" Then 'в данном случае пароль: 1234
           Cancel = True
           MsgBox "Вы не можете сохранять эту рабочую книгу!"
       End If
End Sub

[/vba]
Разумеется, надо будет закрыть паролем и проект VBA, чтобы пытливые и любознательные не подсмотрели пароль на запись.

Прикладываю файл, на котором можно поиграться с паролем. А можно и использовать как шаблон для своих рабочих книг, разумеется, стерев секретную информацию на Листе1.

Файл перед открытием следует сохранить на своем компьютере.

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

МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Четверг, 05.02.2015, 23:28

Ответить

KaTeR-Ok

Дата: Пятница, 06.02.2015, 08:06 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

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

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

Excel 2007

Всем спасибо за ответы

Ответить

запрет сохранения (Word)

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