Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

Ставя защиту на лист перестают работать элементы управления

Автор plupekin, 21.04.2012, 11:41

« назад - далее »

plupekin

Здравствуйте уважаемые форумчане!
Помогите пожалуйста в таком вопросе, добавил на Лист елементы управления (Кнопки) к которым подвязал макросы, проверяю все работает четко, но когда ставлю защиту на Лист, кнопки перестают работать и ругается - (нельзя использовать даную команду на защищенном Листе), защита нужна, чтобы сотрудники случайно не изменяли ячейки в которых забиты формулы.
Как разрешить даную проблему.

iron priest

в свойствах убрать галочку, защищаемый объект?

plupekin

Это опробовано не помогает!
Может можно каким то образом защитить диапазон ячеек от изменений минуя защиту листа ?

nilem

а лист защищаете так?:
Sheets("Лист1").Protect Password:="11", UserInterfaceOnly:=True

plupekin


iron priest

Цитата: plupekin от 21.04.2012, 12:33
Это опробовано не помогает!
Может можно каким то образом защитить диапазон ячеек от изменений минуя защиту листа ?

давайте файл. у меня то работает

plupekin

Попробуйте пожалуйста, может я что то не так делаю.
Защита бес пароля.

iron priest

ActiveSheet.Unprotect ""
    ActiveSheet.Range("$A$7:$H$118").AutoFilter Field:=1, Criteria1:=Array("1", _
        "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "2", "20", "21", "22", "23", "24", _
        "25", "26", "27", "28", "29", "3", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", _
        "4", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "5", "50", "51", "52", "53", _
        "54", "55", "56", "57", "58", "59", "6", "60", "61", "62", "63", "64", "65", "66", "67", "68", _
        "69", "7", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "8", "80", "81", "82", _
        "83", "84", "85", "86", "87", "88", "9", "="), Operator:=xlFilterValues
    ActiveWindow.SmallScroll Down:=-18
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    ActiveSheet.Protect Password:=""

plupekin