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

Вход

Регистрация

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

 

= Мир MS Excel/Убрать возможность перехода по листам - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Убрать возможность перехода по листам (Настройки Excel)
Убрать возможность перехода по листам
GooZ Дата: Среда, 26.02.2014, 23:43 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте! Помогите пожалуйста. Я создаю тест в excel каждый вопрос на новом листе, переход на последующий вопрос при помощи кнопки ActiveX
необходимо убрать свободное перемещение по листам (внизу где названия листов) оставив при этом только стартовый лист теста. Пробовал функцию Скрыть лист, при этом нажимая кнопку перехода к следующему вопросу, скрытые листы не показывает (проскакивает к не скрытым) Отключить отображение названий листов только в моем ecxel не вариант так как тест будет использоваться на разных пк.
 
Ответить
СообщениеЗдравствуйте! Помогите пожалуйста. Я создаю тест в excel каждый вопрос на новом листе, переход на последующий вопрос при помощи кнопки ActiveX
необходимо убрать свободное перемещение по листам (внизу где названия листов) оставив при этом только стартовый лист теста. Пробовал функцию Скрыть лист, при этом нажимая кнопку перехода к следующему вопросу, скрытые листы не показывает (проскакивает к не скрытым) Отключить отображение названий листов только в моем ecxel не вариант так как тест будет использоваться на разных пк.
Автор - GooZ
Дата добавления - 26.02.2014 в 23:43
Stormy Дата: Среда, 26.02.2014, 23:48 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 366
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
GooZ,
Запрет перехода на другой лист при наличии пустых ячеек

Место для рекламы.
 
Ответить
СообщениеGooZ,
Запрет перехода на другой лист при наличии пустых ячеек
Автор - Stormy
Дата добавления - 26.02.2014 в 23:48
GooZ Дата: Четверг, 27.02.2014, 00:18 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
Вот что мне надо убрать! Но что бы доступ к ним по кнопке макроса был.
К сообщению приложен файл: 4919227.jpg (37.2 Kb)
 
Ответить
СообщениеВот что мне надо убрать! Но что бы доступ к ним по кнопке макроса был.
Автор - GooZ
Дата добавления - 27.02.2014 в 00:18
Rioran Дата: Четверг, 27.02.2014, 00:28 | Сообщение № 4
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте.

Могу порекомендовать следующее.

1). Скрыть все листы поголовно кроме первого.
2). По нажатию на кнопку должен выполнятся следующий код:

[vba]
Код
    
Sheets("Условно_Следующий_Лист").Visible = True
Sheets("Текущий_Лист").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Условно_Следующий_Лист").Select
[/vba]

Это позволит респондентам всегда видеть только текущий лист. Правда, если кто-то из них захочет отобразить другие листы, у него это получится.

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
СообщениеЗдравствуйте.

Могу порекомендовать следующее.

1). Скрыть все листы поголовно кроме первого.
2). По нажатию на кнопку должен выполнятся следующий код:

[vba]
Код
    
Sheets("Условно_Следующий_Лист").Visible = True
Sheets("Текущий_Лист").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Условно_Следующий_Лист").Select
[/vba]

Это позволит респондентам всегда видеть только текущий лист. Правда, если кто-то из них захочет отобразить другие листы, у него это получится.
Автор - Rioran
Дата добавления - 27.02.2014 в 00:28
Stormy Дата: Четверг, 27.02.2014, 00:54 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 366
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
GooZ,
В модуль книги

[vba]
Код
Private Sub Workbook_Open()

Dim List As Object
     For Each List In ActiveWorkbook.Sheets
         If List.Name <> "Главный" Then List.Visible = xlSheetVeryHidden
          
     Next List
End Sub
[/vba]
Скроет все листы кроме листа с названием Главный
Дальше уже в модуль каждого листа код с условием, который будет отображать нужный лист.

Место для рекламы.
 
Ответить
СообщениеGooZ,
В модуль книги

[vba]
Код
Private Sub Workbook_Open()

Dim List As Object
     For Each List In ActiveWorkbook.Sheets
         If List.Name <> "Главный" Then List.Visible = xlSheetVeryHidden
          
     Next List
End Sub
[/vba]
Скроет все листы кроме листа с названием Главный
Дальше уже в модуль каждого листа код с условием, который будет отображать нужный лист.
Автор - Stormy
Дата добавления - 27.02.2014 в 00:54
Hugo Дата: Четверг, 27.02.2014, 01:06 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3741
Репутация: 796 ±
Замечаний: 0% ±

365
Для надёжности ещё нужно ставить/снимать пароль на книгу или листы. Иначе особо ушлые могут эти листы аналогичным кодом отобразить.
Но от особо суперушлых и это не спасёт - пароли ведь для честных людей...

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеДля надёжности ещё нужно ставить/снимать пароль на книгу или листы. Иначе особо ушлые могут эти листы аналогичным кодом отобразить.
Но от особо суперушлых и это не спасёт - пароли ведь для честных людей...
Автор - Hugo
Дата добавления - 27.02.2014 в 01:06
GooZ Дата: Понедельник, 10.03.2014, 20:05 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
спасибо
 
Ответить
Сообщениеспасибо
Автор - GooZ
Дата добавления - 10.03.2014 в 20:05
gling Дата: Понедельник, 10.03.2014, 20:40 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2586
Репутация: 715 ±
Замечаний: 0% ±

2010
А еще вариант при открытии книги скрывать ярлычки листов и полосы прокрутки
[vba]
Код

Sub Макрос1()
        With ActiveWindow
            .DisplayWorkbookTabs = False
            .DisplayHorizontalScrollBar = False
            .DisplayVerticalScrollBar = False
        End With
End Sub
[/vba]
А перемещаться по листам не отображая ярлычки Ctrl+PgDn, Ctrl+PgUp
Хотя может это не подходит, так как ранее было предложение окрашивать ярлычки по результату ответа.

ЯД-41001506838083

Сообщение отредактировал gling - Понедельник, 10.03.2014, 20:47
 
Ответить
СообщениеА еще вариант при открытии книги скрывать ярлычки листов и полосы прокрутки
[vba]
Код

Sub Макрос1()
        With ActiveWindow
            .DisplayWorkbookTabs = False
            .DisplayHorizontalScrollBar = False
            .DisplayVerticalScrollBar = False
        End With
End Sub
[/vba]
А перемещаться по листам не отображая ярлычки Ctrl+PgDn, Ctrl+PgUp
Хотя может это не подходит, так как ранее было предложение окрашивать ярлычки по результату ответа.
Автор - gling
Дата добавления - 10.03.2014 в 20:40
GooZ Дата: Вторник, 11.03.2014, 22:15 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
Сделал, спасибо!
 
Ответить
СообщениеСделал, спасибо!
Автор - GooZ
Дата добавления - 11.03.2014 в 22:15
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Убрать возможность перехода по листам (Настройки Excel)
  • Страница 1 из 1
  • 1
Поиск:

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