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

Вход

Регистрация

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

 

= Мир MS Excel/Запрет на редактирование шапки, но с работой кнопок - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Запрет на редактирование шапки, но с работой кнопок
DKeT Дата: Четверг, 16.05.2019, 18:36 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 3 ±
Замечаний: 20% ±

Excel 2007
Здравствуйте, скажите пожалуйста, как сделать запрет на редактирование шапки, но так чтоб кнопки работали?
К сообщению приложен файл: 4157994.xlsx (13.1 Kb)
 
Ответить
СообщениеЗдравствуйте, скажите пожалуйста, как сделать запрет на редактирование шапки, но так чтоб кнопки работали?

Автор - DKeT
Дата добавления - 16.05.2019 в 18:36
_Boroda_ Дата: Четверг, 16.05.2019, 19:51 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Можно так
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Rows("1:3")) Is Nothing Then Cells(4, Target(1).Column).Select
End Sub
[/vba]
Можно защитить лист, а в макросах кнопок снимать защиту[vba]
Код
sh.Unprotect "password"
[/vba], выполнять основной код, ставить защиту[vba]
Код
sh.Protect Password:="password"
[/vba]. Здесь на форуме куча таких кодов
К сообщению приложен файл: 4157994_1.xlsm (18.1 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеМожно так
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Rows("1:3")) Is Nothing Then Cells(4, Target(1).Column).Select
End Sub
[/vba]
Можно защитить лист, а в макросах кнопок снимать защиту[vba]
Код
sh.Unprotect "password"
[/vba], выполнять основной код, ставить защиту[vba]
Код
sh.Protect Password:="password"
[/vba]. Здесь на форуме куча таких кодов

Автор - _Boroda_
Дата добавления - 16.05.2019 в 19:51
  • Страница 1 из 1
  • 1
Поиск:

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