Нажатием кнопки запретить возможность изменения записей

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

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

17.02.2011 17:08:18

Уважаемые знатоки, здравствуйте!
Возник вопрос по экселю следующего характера:
Какую процедуру можно навесить на кнопку, чтобы запретить редактирование/изменение/добавления записей на лист приложения. Но доступ, копирование чтобы было возможно.

Очень большой опыт с работой access VBA, а вот с экселевским VBA пока не разобрался..

С Уважением,
Сергей

Лалыч

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

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

17.02.2011 17:29:18

Private Sub CommandButton1_Click()

Первый раз пишу на Excel VBA, вот что то наклепал по быстрому, но компилятор ругается..

Dim Sht As Worksheet
Sht = лист1
Sht.Protection.AllowDeletingColumns = False
Sht.Protection.AllowDeletingRows = False
Sht.Protection.AllowFormattingCells = False
Sht.Protection.AllowFormattingColumns = False
Sht.Protection.AllowFormattingRows = False
Sht.Protection.AllowInsertingColumns = False
Sht.Protection.AllowUsingPivotTables = True
Sht.Protection.AllowSorting = True
End Sub

Помогите пожалуйста

Лалыч

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

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

17.02.2011 18:28:40

Ребята, нашел процедуру:
If InputBox("To PROTECT all sheets, enter the password below:") <> "321" Then Exit Sub
For Each Worksheet In Worksheets
Worksheet.Protect Password:="mypass", _
DrawingObjects:=False, _
Contents:=True, Scenarios:=False, _
AllowFormattingCells:=False, _
AllowFormattingColumns:=True, _
AllowFormattingRows:=True, _
AllowInsertingColumns:=False, _
AllowInsertingRows:=True, _
AllowInsertingHyperlinks:=False, _
AllowDeletingColumns:=False, _
AllowDeletingRows:=True, _
AllowSorting:=False, _
AllowFiltering:=False, _
AllowUsingPivotTables:=False
Next Worksheet

End Sub

Все работает, ок. но как в этом случае разблокировать программно же..

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#4 17.02.2011 18:29:38 Попробуйте: set Sht = worksheets("Лист1") Я сам - дурнее всякого примера! ...

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#5 17.02.2011 18:31:19 Так же: Worksheet.unProtect Password:="mypass", _ Я сам - дурнее всякого примера! ...