Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 30.06.2008, 14:45   #1
wnuks
 
Регистрация: 11.07.2007
Сообщений: 9
По умолчанию Ограничения панели инструментов

Описание:
Есть таблица екселя (база данных). Есть пару десятков макросов для обработки информации.
Проблема:
Поскольку таблицей пользуются много сотрудников по своему усмотрению (перетаскивание ячеек мышкой, вставка из буфера обмена со всеми свойствами и т.д.) то за очень короткий период времени происходит нарушения в работоспособности некоторых макросов и т.д., что требует "расчёсывания вручную" с целью исправления данных, которые были введены неверно.

Задача: оганичить панель инструментов до настраиваемой пользователем (то есть убрать любую возможность использовать меню и команды екселя, за исключением тех, которые есть в пользовательской панели). Необходимо убрать всё, включая контекстное меню!

Последний раз редактировалось wnuks; 30.06.2008 в 15:02.
wnuks вне форума
Старый 30.06.2008, 15:25   #2
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Вот совет нашего Уважаемого pashulka (его сайт сейчас почему-то недоступен)
Цитата:
Для того, чтобы заблокировать все панели инструментов, включая собственные панели и контекстные меню, а также убрать заголовок окна книги, изменить заголовок окна приложения, убрать строку состояния, строку формул, сетку, заголовки столбцов, вертикальную и горизонтальную полосу прокрутки, а также ярлычки листов, достаточно выполнить макрос UserInterface() Для того, чтобы восстановить вид окна, по умолчанию, достаточно выполнить макрос RestoreInterface()
Код:
Private Sub ChangeInterface(Value As Boolean) 
    With Application 
         .ScreenUpdating = False 
         .Caption = IIf(Value = True, Empty, "Наше окно") 
         .DisplayStatusBar = Value 
         .DisplayFormulaBar = Value 
         Dim iCommandBar As CommandBar 
         For Each iCommandBar In .CommandBars 
             iCommandBar.Enabled = Value 
         Next 
         With .ActiveWindow 
              .Caption = IIf(Value = True, .Parent.Name, "") 
              .DisplayHeadings = Value 
              .DisplayGridlines = Value 
              .DisplayHorizontalScrollBar = Value 
              .DisplayVerticalScrollBar = Value 
              .DisplayWorkbookTabs = Value 
         End With 
         .ScreenUpdating = True 
    End With 
End Sub 

Private Sub UserInterface() 
    ChangeInterface False 
End Sub 

Private Sub RestoreInterface() 
    ChangeInterface True 
End Sub
от себя могу добавить, что когда устал боротся с "шаловливыми ручками" юзеров (а они все равно влезут куда им не нужно) просто написал макрос в котором прописал все формулы листов и основное форматирование и поставил его на выполнение при открытии книги. Конечно, вечерок посидеть пришлось, но зато теперь приоткрытии книги все формулы и т.п. обновляется.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499

Последний раз редактировалось VictorM; 30.06.2008 в 15:29.
VictorM вне форума
Старый 30.06.2008, 16:05   #3
wnuks
 
Регистрация: 11.07.2007
Сообщений: 9
По умолчанию

"от себя могу добавить, что когда устал боротся с "шаловливыми ручками" юзеров (а они все равно влезут куда им не нужно) просто написал макрос в котором прописал все формулы листов и основное форматирование и поставил его на выполнение при открытии книги. Конечно, вечерок посидеть пришлось, но зато теперь приоткрытии книги все формулы и т.п. обновляется."

Спасибо за совет!
Я, кстати, тоже об этом тоже думал ))))).
wnuks вне форума
Старый 30.06.2008, 16:22   #4
wnuks
 
Регистрация: 11.07.2007
Сообщений: 9
По умолчанию

К сожалению не получилось результата ((
Забыл сказать самое главное -- Ексель 2007!
wnuks вне форума
Старый 01.07.2008, 00:14   #5
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

ну тогда, наверное, только вариант с обновлением всех формул при открытии книги.
Только должен заметить, что если объём обновляемых формул большой, может замедлиться открывание книги.
Хотя меня это не напрягает, 5сек. открывается книга или 20, зато все "новенькое" и "готово к употреблению".
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума
Старый 01.07.2008, 22:39   #6
wnuks
 
Регистрация: 11.07.2007
Сообщений: 9
По умолчанию

И всё таки я опять возвращаюсь к своему вопросу. Уж больно нужно.
Как грамотно убрать все панели и контекстное меню (без возможности легко восстановить (с запросом пароля) ), оставив только настраиваемую панель инструментов в Екселе 2007?
wnuks вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вставка - Имя - Присвоить - ограничения? Konstantin_Z Microsoft Office Excel 8 27.08.2008 16:37
Пропала панель инструментов delphin100 Операционные системы общие вопросы 2 24.08.2008 13:29
Ограничения или глюки Borland Socket Server Serge_Bliznykov БД в Delphi 0 20.08.2008 16:21
Панель инструментов как в office _victor Компоненты Delphi 0 01.04.2008 07:06
проблема с панелью инструментов! ronich Помощь студентам 2 27.01.2008 19:05