Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=187579&view=findpost&p=1584547 Wed, 30 May 2007 14:52:02 +0000 Защита листа и свойство .Locked https://forum.sources.ru/index.php?showtopic=187579&view=findpost&p=1584547
Добавлено
п.с. какой-то значек не в тему попался...]]> Krasnaja Shapka VB for Application https://forum.sources.ru/index.php?showtopic=187579&view=findpost&p=1584134 Wed, 30 May 2007 10:18:27 +0000 Защита листа и свойство .Locked https://forum.sources.ru/index.php?showtopic=187579&view=findpost&p=1584134 Цитата Krasnaja Shapka @
у меня ячейки были объедены

за что ж ты их.. :lol:
Цитата
В объединенную ячейку Excel помещает только данные верхнего левого угла из выделенного диапазона Данные из других ячеек уничтожаются.
в отношении имен работает то же правило]]> Old Bat VB for Application https://forum.sources.ru/index.php?showtopic=187579&view=findpost&p=1583988 Wed, 30 May 2007 08:38:56 +0000 Защита листа и свойство .Locked https://forum.sources.ru/index.php?showtopic=187579&view=findpost&p=1583988
например, объеденены "а1" и "а2"... выделяю их, присваиваю имя "ячейка" - имя присваивается только для "а1", а не для "а1:а2"!!!!... в результате я пытаюсь изменить свойство .locked не для всей объедененной ячейки, а только для одной из них!!!

вот такая хрень.
и на такую фигню я полдня убил!]]> Krasnaja Shapka VB for Application https://forum.sources.ru/index.php?showtopic=187579&view=findpost&p=1583391 Tue, 29 May 2007 16:58:06 +0000 Защита листа и свойство .Locked https://forum.sources.ru/index.php?showtopic=187579&view=findpost&p=1583391
    Sub Макрос1()
        With Range("H6")
            .Select
            .Locked = True
        End With
    End Sub

Прекрасно работает]]> Pavel55 VB for Application https://forum.sources.ru/index.php?showtopic=187579&view=findpost&p=1583132 Tue, 29 May 2007 13:22:23 +0000 Защита листа и свойство .Locked https://forum.sources.ru/index.php?showtopic=187579&view=findpost&p=1583132
        With Range("ячейка")
                        .Select
                        .Locked = True
        End With

не работает?

только
        With Range("ячейка")
                        .Select
                        Selection.Locked = True
        End With
]]> Krasnaja Shapka VB for Application https://forum.sources.ru/index.php?showtopic=187579&view=findpost&p=1582613 Tue, 29 May 2007 07:57:12 +0000 Защита листа и свойство .Locked https://forum.sources.ru/index.php?showtopic=187579&view=findpost&p=1582613 Krasnaja Shapka VB for Application https://forum.sources.ru/index.php?showtopic=187579&view=findpost&p=1582407 Tue, 29 May 2007 05:29:06 +0000 Защита листа и свойство .Locked https://forum.sources.ru/index.php?showtopic=187579&view=findpost&p=1582407 ключевым сдесь является
.Select
ты переводишь фокус с контрола на лист и после этого можно делать
Range("ячейка").Locked и др.
у CommandButton даже свойство есть такое TakeFocusOnClick (т.е. оставлять фокус на кнопке или нет)
у CheckBox такого нет и поэтому фокус всегда на нем после клика, отсюда и проблема]]> vkodor VB for Application https://forum.sources.ru/index.php?showtopic=187579&view=findpost&p=1579218 Fri, 25 May 2007 14:32:46 +0000 Защита листа и свойство .Locked https://forum.sources.ru/index.php?showtopic=187579&view=findpost&p=1579218 пишу код:

        With Range("ячейка")
            If ActiveSheet.Shapes("Flag 1").ControlFormat.Value = xlOn Then
                        .Value = 3
                        .Locked = False
            End If
        End With

выдает ошибку "нельзя установить свойство Locked класса Range"

порылся в инете, ничего не понял, но добавил вместо
    .Locked = False

    .Select
    Selection.Locked = False


все работает.

внимание вопрос: какого черта тут оно работает если в первом случае не работало??? как по мне так один хрен Selection.Locked или Range("ячейка").Locked, а вот оказывается нифига!]]> Krasnaja Shapka VB for Application