Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как исключить изменения цвета ячейки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как исключить изменения цвета ячейки (Формулы/Formulas)
Как исключить изменения цвета ячейки
Lexaarni777 Дата: Четверг, 11.02.2016, 17:27 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Помогите пожалуйста вроде ответа на форуме не нашел.
В таблице есть ячейки желтого цвета именно в эти ячейки сотрудник должен вносить информацию, как сделать так чтобы он не смог изменить их цвет? притом защита листа на всех ячейках кроме желтых уже стоит ( в примере пароль 1)
К сообщению приложен файл: 4115899.xlsx(30Kb)


Сообщение отредактировал Lexaarni777 - Четверг, 11.02.2016, 17:32
 
Ответить
СообщениеПомогите пожалуйста вроде ответа на форуме не нашел.
В таблице есть ячейки желтого цвета именно в эти ячейки сотрудник должен вносить информацию, как сделать так чтобы он не смог изменить их цвет? притом защита листа на всех ячейках кроме желтых уже стоит ( в примере пароль 1)

Автор - Lexaarni777
Дата добавления - 11.02.2016 в 17:27
Manyasha Дата: Четверг, 11.02.2016, 17:44 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1587
Репутация: 669 ±
Замечаний: 0% ±

Excel 2007, 2010
Lexaarni777, а я и так не могу изменить цвет. Только если защиту снять.


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеLexaarni777, а я и так не могу изменить цвет. Только если защиту снять.

Автор - Manyasha
Дата добавления - 11.02.2016 в 17:44
Lexaarni777 Дата: Четверг, 11.02.2016, 17:49 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Lexaarni777, а я и так не могу изменить цвет. Только если защиту снять.

Если в ячейку вставлять информацию то цвет меняется.
 
Ответить
Сообщение
Lexaarni777, а я и так не могу изменить цвет. Только если защиту снять.

Если в ячейку вставлять информацию то цвет меняется.

Автор - Lexaarni777
Дата добавления - 11.02.2016 в 17:49
Manyasha Дата: Четверг, 11.02.2016, 17:58 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 1587
Репутация: 669 ±
Замечаний: 0% ±

Excel 2007, 2010
Lexaarni777, у меня не меняется...
то цвет меняется
похоже на УФ, но я его не нашла в Вашем файле.
Напишите адрес такой ячейки, которая, если вставить в нее данные, меняет цвет.


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеLexaarni777, у меня не меняется...
то цвет меняется
похоже на УФ, но я его не нашла в Вашем файле.
Напишите адрес такой ячейки, которая, если вставить в нее данные, меняет цвет.

Автор - Manyasha
Дата добавления - 11.02.2016 в 17:58
gling Дата: Четверг, 11.02.2016, 18:05 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация: 325 ±
Замечаний: 0% ±

2010
Ячейки вне таблицы не защищены. Защитите все ячейки на листе. Выделите весь лист - поставьте галочку защищаемой ячейки, выделите жёлтые ячейки - снимите с них галочку защищаемой ячейки. При защите листа снимите галочку "выделение заблокированных ячеек" и включите защиту. Можно будет выделять ячейки только жёлтого цвета, а следовательно цвет ячейки при копировании и вставке будет жёлтый. при внесении данных в другие ячейки нужнобудет снимать защиту.
Цитата
если вставить в нее данные,
Если только копированием.


Сообщение отредактировал gling - Четверг, 11.02.2016, 18:08
 
Ответить
СообщениеЯчейки вне таблицы не защищены. Защитите все ячейки на листе. Выделите весь лист - поставьте галочку защищаемой ячейки, выделите жёлтые ячейки - снимите с них галочку защищаемой ячейки. При защите листа снимите галочку "выделение заблокированных ячеек" и включите защиту. Можно будет выделять ячейки только жёлтого цвета, а следовательно цвет ячейки при копировании и вставке будет жёлтый. при внесении данных в другие ячейки нужнобудет снимать защиту.
Цитата
если вставить в нее данные,
Если только копированием.

Автор - gling
Дата добавления - 11.02.2016 в 18:05
Lexaarni777 Дата: Четверг, 11.02.2016, 19:36 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
похоже на УФ, но я его не нашла в Вашем файле.
Напишите адрес такой ячейки, которая, если вставить в нее данные, меняет цвет.

Ячейки вне таблицы не защищены. Защитите все ячейки на листе. Выделите весь лист - поставьте галочку защищаемой ячейки, выделите жёлтые ячейки - снимите с них галочку защищаемой ячейки. При защите листа снимите галочку "выделение заблокированных ячеек" и включите защиту. Можно будет выделять ячейки только жёлтого цвета, а следовательно цвет ячейки при копировании и вставке будет жёлтый. при внесении данных в другие ячейки нужно будет снимать защиту.

У меня уже защищены все ячейки от изменений кроме желтых (их мне надо оставить незащищенными для заполнения (но в тоже время чтобы цвет нельзя было изменить))
 
Ответить
Сообщение
похоже на УФ, но я его не нашла в Вашем файле.
Напишите адрес такой ячейки, которая, если вставить в нее данные, меняет цвет.

Ячейки вне таблицы не защищены. Защитите все ячейки на листе. Выделите весь лист - поставьте галочку защищаемой ячейки, выделите жёлтые ячейки - снимите с них галочку защищаемой ячейки. При защите листа снимите галочку "выделение заблокированных ячеек" и включите защиту. Можно будет выделять ячейки только жёлтого цвета, а следовательно цвет ячейки при копировании и вставке будет жёлтый. при внесении данных в другие ячейки нужно будет снимать защиту.

У меня уже защищены все ячейки от изменений кроме желтых (их мне надо оставить незащищенными для заполнения (но в тоже время чтобы цвет нельзя было изменить))

Автор - Lexaarni777
Дата добавления - 11.02.2016 в 19:36
gling Дата: Четверг, 11.02.2016, 19:44 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация: 325 ±
Замечаний: 0% ±

2010
А так не устраивает? Как и написано в Сообщении №5.
К сообщению приложен файл: 1811144.xlsx(30Kb)


Сообщение отредактировал gling - Четверг, 11.02.2016, 19:46
 
Ответить
СообщениеА так не устраивает? Как и написано в Сообщении №5.

Автор - gling
Дата добавления - 11.02.2016 в 19:44
Udik Дата: Четверг, 11.02.2016, 19:51 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 1215
Репутация: 153 ±
Замечаний: 0% ±

Excel 2013
Ну можно макрос подвесить на изменение листа, чтоб тупо заливал изменённую ячейку жёлтым.


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеНу можно макрос подвесить на изменение листа, чтоб тупо заливал изменённую ячейку жёлтым.

Автор - Udik
Дата добавления - 11.02.2016 в 19:51
Lexaarni777 Дата: Четверг, 11.02.2016, 20:46 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
А так не устраивает? Как и написано в Сообщении №5.
К сообщению приложен файл: 1811144.xlsx(30Kb)

Не так меняется цвет ячейки при вставке (скриншоты приложил)




Сообщение отредактировал Lexaarni777 - Четверг, 11.02.2016, 20:48
 
Ответить
Сообщение
А так не устраивает? Как и написано в Сообщении №5.
К сообщению приложен файл: 1811144.xlsx(30Kb)

Не так меняется цвет ячейки при вставке (скриншоты приложил)



Автор - Lexaarni777
Дата добавления - 11.02.2016 в 20:46
Nic70y Дата: Четверг, 11.02.2016, 21:19 | Сообщение № 10
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3483
Репутация: 722 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("тут_диапазон_желтых_ ячеек")) Is Nothing Then
'тут закрашивание желтых ячеек в желтую заливку
End If
End Sub
[/vba]


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)


Сообщение отредактировал Nic70y - Четверг, 11.02.2016, 21:20
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("тут_диапазон_желтых_ ячеек")) Is Nothing Then
'тут закрашивание желтых ячеек в желтую заливку
End If
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 11.02.2016 в 21:19
gling Дата: Четверг, 11.02.2016, 21:35 | Сообщение № 11
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация: 325 ±
Замечаний: 0% ±

2010
Понятно что если копировать с другого листа и вставить на этот лист, формат изменится., можно макросом восстанавливать формат этих ячеек, как уже было предложено. От копирования думаю по другому не избавиться.
 
Ответить
СообщениеПонятно что если копировать с другого листа и вставить на этот лист, формат изменится., можно макросом восстанавливать формат этих ячеек, как уже было предложено. От копирования думаю по другому не избавиться.

Автор - gling
Дата добавления - 11.02.2016 в 21:35
Udik Дата: Четверг, 11.02.2016, 22:12 | Сообщение № 12
Группа: Друзья
Ранг: Старожил
Сообщений: 1215
Репутация: 153 ±
Замечаний: 0% ±

Excel 2013
Попробовал на защищённом листе цвет заливки поменять на открытых ячейках - не даёт, или сегодня звёзды не так сошлись. В связи с чем костыли наваял
[vba]
Код

Private Sub Worksheet_Change(ByVal Target As Range)
Dim clr
Dim rng1 As Range

If Target.Cells.Count <> 1 Then Application.Undo: Exit Sub
Set rng1 = Union(Range("B9:C10"), Range("E9:AK10"))
Application.EnableEvents = False

If Intersect(rng1, Target) Is Nothing Then
    Application.Undo
    Application.EnableEvents = True
    Exit Sub
End If
clr = Cells(3, 8).Interior.Color
Target.Interior.Color = clr
Application.EnableEvents = True

End Sub
[/vba]

правда целенаправленно залить ячейки можно, зато копипастом не выйдет. :)
К сообщению приложен файл: 0683854.xlsb(21Kb)


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com


Сообщение отредактировал Udik - Четверг, 11.02.2016, 22:13
 
Ответить
СообщениеПопробовал на защищённом листе цвет заливки поменять на открытых ячейках - не даёт, или сегодня звёзды не так сошлись. В связи с чем костыли наваял
[vba]
Код

Private Sub Worksheet_Change(ByVal Target As Range)
Dim clr
Dim rng1 As Range

If Target.Cells.Count <> 1 Then Application.Undo: Exit Sub
Set rng1 = Union(Range("B9:C10"), Range("E9:AK10"))
Application.EnableEvents = False

If Intersect(rng1, Target) Is Nothing Then
    Application.Undo
    Application.EnableEvents = True
    Exit Sub
End If
clr = Cells(3, 8).Interior.Color
Target.Interior.Color = clr
Application.EnableEvents = True

End Sub
[/vba]

правда целенаправленно залить ячейки можно, зато копипастом не выйдет. :)

Автор - Udik
Дата добавления - 11.02.2016 в 22:12
Manyasha Дата: Пятница, 12.02.2016, 11:21 | Сообщение № 13
Группа: Модераторы
Ранг: Старожил
Сообщений: 1587
Репутация: 669 ±
Замечаний: 0% ±

Excel 2007, 2010
Lexaarni777, вариант 1: снять защиту листа - залить желтым - вернуть защиту листа:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Row > 8 Then
            Set r = Intersect(Target, Range("b9:c10, e9:ak10"))
            If Not r Is Nothing Then
                ActiveSheet.Unprotect "1"
                r.Interior.ColorIndex = 6
                ActiveSheet.Protect "1"
            End If
        End If
End Sub
[/vba]

вариант 2: переназначить горячие клавиши. Этот вариант хуже, т.к. остается возможность вставить форматы через вставку при пкм
[vba]
Код
Private Sub Worksheet_Activate()
Application.OnKey "^v", "pasteValue"
Application.OnKey "+{INSERT}", "pasteValue"
End Sub
Private Sub Worksheet_Deactivate()
Application.OnKey "^v"
Application.OnKey "+{INSERT}"
End Sub
[/vba][vba]
Код
Sub pasteValue()
    On Error Resume Next
    Selection.PasteSpecial Paste:=xlPasteValues
End Sub
[/vba]
К сообщению приложен файл: 4115899-1.xlsm(33Kb) · 4115899-2.xlsm(37Kb)


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеLexaarni777, вариант 1: снять защиту листа - залить желтым - вернуть защиту листа:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Row > 8 Then
            Set r = Intersect(Target, Range("b9:c10, e9:ak10"))
            If Not r Is Nothing Then
                ActiveSheet.Unprotect "1"
                r.Interior.ColorIndex = 6
                ActiveSheet.Protect "1"
            End If
        End If
End Sub
[/vba]

вариант 2: переназначить горячие клавиши. Этот вариант хуже, т.к. остается возможность вставить форматы через вставку при пкм
[vba]
Код
Private Sub Worksheet_Activate()
Application.OnKey "^v", "pasteValue"
Application.OnKey "+{INSERT}", "pasteValue"
End Sub
Private Sub Worksheet_Deactivate()
Application.OnKey "^v"
Application.OnKey "+{INSERT}"
End Sub
[/vba][vba]
Код
Sub pasteValue()
    On Error Resume Next
    Selection.PasteSpecial Paste:=xlPasteValues
End Sub
[/vba]

Автор - Manyasha
Дата добавления - 12.02.2016 в 11:21
Udik Дата: Пятница, 12.02.2016, 13:49 | Сообщение № 14
Группа: Друзья
Ранг: Старожил
Сообщений: 1215
Репутация: 153 ±
Замечаний: 0% ±

Excel 2013
Сегодня на свежую голову вроде нормально вышло :)
[vba]
Код

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Variant

Application.EnableEvents = False

rng1 = Target.Value2
Application.Undo
Target.Value2 = rng1

Application.EnableEvents = True
End Sub
[/vba]

на защищённом листе работает.
К сообщению приложен файл: 0t-2.xlsb(21Kb)


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com


Сообщение отредактировал Udik - Пятница, 12.02.2016, 13:50
 
Ответить
СообщениеСегодня на свежую голову вроде нормально вышло :)
[vba]
Код

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Variant

Application.EnableEvents = False

rng1 = Target.Value2
Application.Undo
Target.Value2 = rng1

Application.EnableEvents = True
End Sub
[/vba]

на защищённом листе работает.

Автор - Udik
Дата добавления - 12.02.2016 в 13:49
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как исключить изменения цвета ячейки (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!