ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ReadOnly для одной ячейки
9 сообщений из 9, страница 1 из 1
ReadOnly для одной ячейки
    #33797886
Kulikoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kulikoff
Участник
Подскажите, плиз, каксделать ReadOnly только для строго заданных ячеек, а не для всего документа Ексель? И можно ли вобще такое сделать?
...
Рейтинг: 0 / 0
18.06.2006, 10:36
| Ответить | Цитировать | Написать  
ReadOnly для одной ячейки
    #33798178
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Защита листа?
...
Рейтинг: 0 / 0
18.06.2006, 18:17
| Ответить | Цитировать | Написать  
ReadOnly для одной ячейки
    #33798203
Kulikoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kulikoff
Участник
Не листа, а отдельных ячеек или диапазона ячеек
...
Рейтинг: 0 / 0
18.06.2006, 19:07
| Ответить | Цитировать | Написать  
ReadOnly для одной ячейки
    #33798316
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
есть вот такой трюк
выделяем диапазон, потом данные-проверка

...
Рейтинг: 0 / 0
18.06.2006, 21:50
| Ответить | Цитировать | Написать  
ReadOnly для одной ячейки
    #33798428
k-nike2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
k-nike2
Гость
Antonariy прав. Это же стандартная функция экселя!
Если вам надо защитить от изменения часть ячеек, то сперва выделите все ячейки, затем контекстное меню, формат ячеек, защита, убрать галку защищаемая ячейка. Потом выделяете ячейки которые хотите защитить и ставите на них галку, а уж затем сервис-)защита-)защитить лист.
...
Рейтинг: 0 / 0
19.06.2006, 00:06
| Ответить | Цитировать | Написать  
ReadOnly для одной ячейки
    #33798566
Kulikoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kulikoff
Участник
спасибо большое!
...
Рейтинг: 0 / 0
19.06.2006, 07:56
| Ответить | Цитировать | Написать  
ReadOnly для одной ячейки
    #34413834
DrugON
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DrugON
Гость
Не стал создавать новую тему - эта по смыслу подходит. В общем трабл вот в чем. На листе Excel есть ячейки для ввода данных и расчетные, т.е. с формулами. Нужно защитить от изменения ячейки с формулами. Но не весь лист. В общем, сделал сначала так. В книге:
В книге:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Locked = True Then
Me.Protect password:="3037"
Else
Me.Unprotect password:="3037"
End If
End Sub

И нужные ячейки сделал защищенными. При выделении защищенной ячейки лист блокируется, с остальными можно делать все, что угодно. Те, против которых это делалось :) догадались обходить эту защиту тупым выделением всех ячеек (CTRL+A) и снятием защиты с них.
Какой бы способ внедрить поизощреннее? Помогите, плиз.
...
Рейтинг: 0 / 0
25.03.2007, 08:22
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
ReadOnly для одной ячейки
    #35428522
mallory
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mallory
Участник
Пусть лист защищен. Нужно в коде для некоторого диапазона(возьмем: B2:D7) разрешить редактирование. Делал так:
Код: plaintext
1.
Book.Sheet.Range("B2:D7");  // установили диапазон 
Book.Sheet.Range.AllowEdit = True;
Но чот не дает обратиться к AllowEdit ...Почему ?
...
Рейтинг: 0 / 0
14.07.2008, 13:27
| Ответить | Цитировать | Написать  
ReadOnly для одной ячейки
    #35428695
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: mallory
> Пусть лист защищен. Нужно в коде для некоторого диапазона(возьмем:
> B2:D7) разрешить редактирование. Делал так:
> Book.Sheet.Range("B2:D7"); // установили диапазон
> Book.Sheet.Range.AllowEdit = True;Но чот не дает обратиться к AllowEdit
> ...Почему ?

Object BrowserProperty AllowEdit As Boolean
read-only
Member of Excel.Range

Так что обратится дает. Не дает его изменить.

Можно попробовать сделать так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub UseAllowEditRanges()

    Dim wksSheet As Worksheet

    Set wksSheet = Application.ActiveSheet

    ' Add a range that can be edited on the protected worksheet.
    wksSheet.Protection.AllowEditRanges.Add "Test", Range("A1")
    wksSheet.Protect
    wksSheet.Range("A1").Value = "qwerty"
    ' Notify the user the title of the range that can be edited.
'    MsgBox wksSheet.Protection.AllowEditRanges(1).Title

End Sub

--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
14.07.2008, 14:08
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ReadOnly для одной ячейки
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33798566&tid=2162062]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 52ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 245ms
total:  385ms
созд. / загр.: 385ms
x
x
Закрыть


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