Kau

Как заблокировать ячейки в VBA в Spreadsheet (в сетке EXCEL) чтобы при запуске в них ничего нельзя было вводить, но чтобы они и данные в них были видны?
Помогите кто знает ПЛИЗ !!!

Tim

Там есть свойство листа - Protection оно или False или True
Но вот там еще есть параметры у этого свойства
например такой (вдруг тебе пригодится)
UserIterfaceOnly он позволяет модифицировать данные на листе только макросами а когда ручками будут, то он будет ругаться... (ексель в смысле )
а данные там так и так (в защищенном и незащищенном режиме) видать тока если ты лист не скрываешь.

Kau

Спасибо TIM

Kau

Да еще вопросик как инициализировать это свойство программно?

Tim

Ну тут нет ничего проще
вызови панельку VBA на экран
нажми запись макроса
и сделай как юзер - защиту листа
нажми стоп
потом дуй в макрос смотри код
там и синтаксис будет и все все все
а если чего и не будет, встань курсором на слово протекшн и нажми ф1
хелп будет полный и с примерами

Tim

Ну тут нет ничего проще
вызови панельку VBA на экран
нажми запись макроса
и сделай как юзер - защиту листа
нажми стоп
потом дуй в макрос смотри код
там и синтаксис будет и все все все
а если чего и не будет, встань курсором на слово протекшн и нажми ф1
хелп будет полный и с примерами

Kau

Дело в том что таблицу я вставляю в Visual Basic там есть свойства листа, в которых есть 'Защита ячеек' и 'Блокировка' я пробовал ставить и то и другое но в первом случае доступа к ячейкам нет вообще, а во втором они свободно изменяются и не блокируются. Мне подходит первый способ, но надо сделать эту блокировку/разблокировку программно, а не в меню на стадии разработки.

Kau

Люди помогите ПЛИЗ !!!

debutant

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

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = '$A$1' Then
Me.Range('$A$2').Select
End If
End Sub

Удачи!