ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Марокс для excel по защите строк
14 сообщений из 14, страница 1 из 1
Марокс для excel по защите строк
    #35689627
utkinev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
utkinev
Гость
Никто не подскажет, как сделать макрос, чтобы автоматически протектились ячейки определенного цвета?
...
Рейтинг: 0 / 0
03.12.2008, 09:43
| Ответить | Цитировать | Написать  
Марокс для excel по защите строк
    #35689656
Евгений_Анатольевич
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Евгений_Анатольевич
Участник
utkinevНикто не подскажет, как сделать макрос, чтобы автоматически протектились ячейки определенного цвета?

Создаете макрос который просто протектит выбранную ячейку.. потом в него дописываете условие, что если цвет такой-то, то вот эту самую защиту и выполнить.. а вобще конечно лучше цикл пробегающий лист и выпаолняющий сказанное выше..
...
Рейтинг: 0 / 0
03.12.2008, 09:59
| Ответить | Цитировать | Написать  
Марокс для excel по защите строк
    #35689827
utkinev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
utkinev
Гость
Евгений_Анатольевич,

можно чуть-чуть по-подробнее, а то с VBA очень слабо дружу, хотя бы приметку кода :| Буду очень благодарен!
...
Рейтинг: 0 / 0
03.12.2008, 10:50
| Ответить | Цитировать | Написать  
Марокс для excel по защите строк
    #35689921
Евгений_Анатольевич
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Евгений_Анатольевич
Участник
utkinev,

дык вы октройте эксель нажмите в сервисе записать макрос и защитите пару ячеек сначала, поменяйте цвет у нескольких, при этом сама прога генерирует код. потом останоите там же макрос и в редакторе посмотрите.. синтаксис языка VB-шный.. в помощи неплохое описание всех объектов есть..
...
Рейтинг: 0 / 0
03.12.2008, 11:11
| Ответить | Цитировать | Написать  
Марокс для excel по защите строк
    #35690025
utkinev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
utkinev
Гость
Евгений_Анатольевич,

делал так, потом свой же макрос не хочет принимать, даже в первозданном виде :\
...
Рейтинг: 0 / 0
03.12.2008, 11:32
| Ответить | Цитировать | Написать  
Марокс для excel по защите строк
    #35690067
Евгений_Анатольевич
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Евгений_Анатольевич
Участник
utkinev,

текст макроса выложите сюда
...
Рейтинг: 0 / 0
03.12.2008, 11:39
| Ответить | Цитировать | Написать  
Марокс для excel по защите строк
    #35690075
Евгений_Анатольевич
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Евгений_Анатольевич
Участник
и где выдает ошибки напишите
...
Рейтинг: 0 / 0
03.12.2008, 11:39
| Ответить | Цитировать | Написать  
Марокс для excel по защите строк
    #35690125
utkinev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
utkinev
Гость
Я делал не через визуализированное меню, т.к. там вообще не нашел как протектить определенные ячейки, за исключением параметра AllowEditRanges во время протекта самого листа. Может я чего-то совсем не догоняю, но написал я следующее:

Sub Macro1()
Range("E4").Select
ActiveCell.Locked
End Sub

Про лок определенных цветов, я вообще молчу %(
...
Рейтинг: 0 / 0
03.12.2008, 11:53
| Ответить | Цитировать | Написать  
Марокс для excel по защите строк
    #35690139
Евгений_Анатольевич
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Евгений_Анатольевич
Участник
utkinev,

Код: plaintext
ActiveCell.Locked = True
...
Рейтинг: 0 / 0
03.12.2008, 11:56
| Ответить | Цитировать | Написать  
Марокс для excel по защите строк
    #35690144
Евгений_Анатольевич
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Евгений_Анатольевич
Участник
Locked Property
See AlsoApplies ToExampleSpecificsLocked property as it applies to the ChartObject, ChartObjects, LinkFormat, OLEObject, OLEObjects, Scenario, Shape, and Style objects.

True if the object is locked, False if the object can be modified when the sheet is protected. Read/write Boolean.

expression.Locked
expression Required. An expression that returns one of the above objects.

Locked property as it applies to the CellFormat and Range objects.

True if the object is locked, False if the object can be modified when the sheet is protected. Returns Null if the specified range contains both locked and unlocked cells. Read/write Variant.

expression.Locked
expression Required. An expression that returns one of the above objects.

Example
As it applies to the CellFormat and Range objects.

This example unlocks cells A1:G37 on Sheet1 so that they can be modified when the sheet is protected.

Код: plaintext
1.
Worksheets("Sheet1").Range("A1:G37").Locked = False
Worksheets("Sheet1").Protect

Читаем помощь внимательнее...
...
Рейтинг: 0 / 0
03.12.2008, 11:57
| Ответить | Цитировать | Написать  
Марокс для excel по защите строк
    #35690168
utkinev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
utkinev
Гость
:-] да, мой промах! тявкать перестал, только вот ячейка все равно не лочится и модифицировать ее все еще можно :\
...
Рейтинг: 0 / 0
03.12.2008, 12:03
| Ответить | Цитировать | Написать  
Марокс для excel по защите строк
    #35690178
Евгений_Анатольевич
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Евгений_Анатольевич
Участник
utkinev,

вы Protect листу сделали?
...
Рейтинг: 0 / 0
03.12.2008, 12:06
| Ответить | Цитировать | Написать  
Марокс для excel по защите строк
    #35691048
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
utkinevНикто не подскажет, как сделать макрос, чтобы автоматически протектились ячейки определенного цвета?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Sub LockCells(ByVal pstrWorkSheet As String, ByVal pintColorIndex As Integer)
    Dim objWorkSheet As Worksheet
    Dim objCell As Range
    
    Set objWorkSheet = ThisWorkbook.Worksheets(pstrWorkSheet)
    
    With objWorkSheet
        .Unprotect
        For Each objCell In .UsedRange.Cells
            objCell.Locked = objCell.Interior.ColorIndex = pintColorIndex
        Next objCell
        .Protect
    End With
    
End Sub

Private Sub CommandButton1_Click()
    LockCells "Sheet1",  13 
End Sub
...
Рейтинг: 0 / 0
03.12.2008, 15:42
| Ответить | Цитировать | Написать  
Марокс для excel по защите строк
    #35691098
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Небольшое замечание. Если вы под "словом" "протектились" понимаете выполнение метода Protect в Excel, то такое невозможно, т.к. этот метод отсутствует в коллекции методов класса Range, к которому относятся и отдельные ячейки.
...
Рейтинг: 0 / 0
03.12.2008, 15:52
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Марокс для excel по защите строк
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35690125&tid=2161555]:
 0ms
get settings:
 9ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 44ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 215ms
total:  360ms
созд. / загр.: 360ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]