Здравствуйте, парни! Снова нужна ваша помощь!
Есть диапазон (А10:АТ15), который нужно заблокировать так, чтобы эффект был сравним с защитой листа, при полной блокировки ячейки, но не прибегая к защите листа
Т.е. в этом диапазоне формулы скрыты, НЕЛЬЗЯ ВЫДЕЛИТЬ заблокированные ячейки(кроме А10), а по нажатию на ячейку А10 выдавалось бы стандартное окно для ввода пароля.
Покапавшись на форуме нашел такой скриптик:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Locked = True Then
Me.Protect Password:="13"
Else
Me.Unprotect Password:="13"
End If
End Sub
но он многим плох, например: защищённая им ячейка по нажатию на неё показывает свою формулу; если рядом незащищёная ячейка, то начиная с неё, можно выделить защищёную; и как уже понятно скрипт не блокирует защищёные ячейки(т.е. их можно выделить). Вобщем не подходит.
Есть диапазон (А10:АТ15), который нужно заблокировать так, чтобы эффект был сравним с защитой листа, при полной блокировки ячейки, но не прибегая к защите листа
Т.е. в этом диапазоне формулы скрыты, НЕЛЬЗЯ ВЫДЕЛИТЬ заблокированные ячейки(кроме А10), а по нажатию на ячейку А10 выдавалось бы стандартное окно для ввода пароля.
Покапавшись на форуме нашел такой скриптик:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Locked = True Then
Me.Protect Password:="13"
Else
Me.Unprotect Password:="13"
End If
End Sub
но он многим плох, например: защищённая им ячейка по нажатию на неё показывает свою формулу; если рядом незащищёная ячейка, то начиная с неё, можно выделить защищёную; и как уже понятно скрипт не блокирует защищёные ячейки(т.е. их можно выделить). Вобщем не подходит.
