Защитить выделенные ячейки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Защитить выделенные ячейки (Формулы/Formulas)

aidexin

Дата: Четверг, 02.06.2016, 08:28 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день друзья, задача простая не могу никак найти. Как можно защитить только выделенные желтым цветом столбцы. чтобы не могли изменить

Спасибо.

К сообщению приложен файл: 0658358.xlsx (18.2 Kb)

Ответить

Pelena

Дата: Четверг, 02.06.2016, 08:34 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19182

Репутация: 4420 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Выделить весь лист -- Формат ячейки -- на вкладке Защита снять флажок Защищаемая ячейка -- выделить желтые столбцы -- установить флажок Защищаемая ячейка -- защитить лист

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

aidexin

Дата: Четверг, 02.06.2016, 08:58 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Спасибо большое, у меня все получилось.
Но есть ли возможность как бы скопировать это защиту на другие листы ( у меня таких повторяющихся листов 30). Каждый раз вручную защищать занимает много время.

Ответить

Pelena

Дата: Четверг, 02.06.2016, 09:13 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19182

Репутация: 4420 ±

Замечаний: ±

Excel 365 & Mac Excel

Записать действия макрорекодером и пробежаться по всем листам
[vba]

Код

Sub Макрос1()
Dim i&
    For i = 1 To Sheets.Count
        With Sheets(i)
            .Cells.Locked = False
            .Columns("H:I").Locked = True
            .Protect
        End With
    Next i
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

_Boroda_

Дата: Четверг, 02.06.2016, 09:31 | Сообщение № 5

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

А с паролем так
[vba]

Код

Sub dsa()
    For Each Sh In ActiveWorkbook.Worksheets
    With Sh
        .Cells.Locked = False
        .Columns("H:I").Locked = True
        .Protect Password:="qq77"
    End With
    Next Sh
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

aidexin

Дата: Четверг, 02.06.2016, 09:34 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Все сделал, спасибо большое за помощь...

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Защитить выделенные ячейки (Формулы/Formulas)

Страница 1 из 1
1