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

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.06.2006, 00:06
    #33798428
k-nike2
k-nike2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ReadOnly для одной ячейки
Antonariy прав. Это же стандартная функция экселя!
Если вам надо защитить от изменения часть ячеек, то сперва выделите все ячейки, затем контекстное меню, формат ячеек, защита, убрать галку защищаемая ячейка. Потом выделяете ячейки которые хотите защитить и ставите на них галку, а уж затем сервис-)защита-)защитить лист.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.06.2006, 07:56
    #33798566
Kulikoff
Kulikoff
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ReadOnly для одной ячейки
спасибо большое!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.03.2007, 08:22
    #34413834
DrugON
DrugON
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ReadOnly для одной ячейки
Не стал создавать новую тему - эта по смыслу подходит. В общем трабл вот в чем. На листе 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
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
14.07.2008, 13:27
    #35428522
mallory
mallory
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ReadOnly для одной ячейки
Пусть лист защищен. Нужно в коде для некоторого диапазона(возьмем: B2:D7) разрешить редактирование. Делал так:
Код: plaintext
1.
Book.Sheet.Range("B2:D7");  // установили диапазон 
Book.Sheet.Range.AllowEdit = True;
Но чот не дает обратиться к AllowEdit ...Почему ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2008, 14:08
    #35428695
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ReadOnly для одной ячейки
> Автор: 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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ReadOnly для одной ячейки / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 375ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2162062]:
 0ms
get settings:
 9ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 64ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 215ms
total:  375ms
x
x
Закрыть


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