Помогите ограничить доступ на использование макросов

Пользователь

Сообщений: 3 Регистрация: 01.01.1970

22.08.2011 10:13:41

Dobriy den'.
Proshu prosheniya za latinicu, ne znayu pochemu, ne mogu pishat' na russkom, vmesto bukv kvadratiki.
Sut' pros'bi sdelat' ogranicheniya na ispolzovaniye makrosov po sredstvam parolya ("Dobavit" - ispolzuyut vse, "Ochistit' poisk" - ispolzuyut vse, a vot "Udalit'" tol'ko vvedya parol.).
Tak je konechno je horosho bilo bi, esli shapku tablici nelzya bilo redaktirovat.

Zaranee blagodaren, eshe raz proshu prosheniya za latinicu.

Прикрепленные файлы

post_252084.rar (66.72 КБ)

sva

Пользователь

Сообщений: 1027 Регистрация: 23.12.2012

22.08.2011 10:50:56

Можно так:
Sub delete()
Dim sPass As String
sPass = Application.InputBox(Prompt:="Введите пароль", Title:="Введите пароль")
If sPass = False Then Exit Sub
If sPass <> "1234" Then '1234 пароль
MsgBox "Неверный пароль" & Chr(10) & "Выполнение прервано"
Exit Sub
End If
Selection.EntireRow.delete shift:=xlUp
End Sub

shawtylow Пользователь Сообщений: 3 Регистрация: 01.01.1970	#3 22.08.2011 11:20:39 Super! ogromnoe spasibo, eshe bi jnat' kak shapku zakrepit' ot udaleniya i izmeneniya, v "recenzirovani" zashita ne sovsem podhodit, cherez obichniy "Delete" mojno udalit'. Da i v "Zayavkah" esli zashitit', to makros "Debug" pishet..

Hugo Пользователь Сообщений: 26326 Регистрация: 22.12.2012	#4 22.08.2011 11:38:34 Ставьте защиту листа, которую снимайте макросм при скрытии строк, потом сразу макросом ставите защиту назад.

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#5 22.08.2011 11:53:24 Ну или прикрутите форму авторизации: http://excelvba.ru/tools/Authentication Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

shawtylow Пользователь Сообщений: 3 Регистрация: 01.01.1970	#6 22.08.2011 13:37:13 Макрос "Авторизация" конечно идеальный вариант. Но у меня что-то не получается привязать к таблице, вроде пытался править, но все равно ошибка выдает. Был бы очень благодарен, если бы помогли привязать. Мне главное бы защитить от изменений диапазонов и удаления самой шапки.

Читают тему