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

Вход

Регистрация

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

 

= Мир MS Excel/Изменение кода модуля книги для скрытия не нужных параметров - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение кода модуля книги для скрытия не нужных параметров (Макросы/Sub)
Изменение кода модуля книги для скрытия не нужных параметров
Predator92 Дата: Среда, 12.05.2021, 09:40 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Доброе время суток, дорогие специалисты!
Буду откровенен, задали задание, облазил все форумы, что то нашел, но так и не понял. Понял только то, что это VBA и весь код нужно писать в модуль Эта книга

Описание задания для всей книги: какой код прописать в модуль книги ,чтобы всё лишнее пропало как на фото 112.jpg , а при написание пароля к примеру 123 в ячейку T32 листа "HELLO!" ,всё панели и всё возвращалось как было

Благодарю всех Вас за помощь
Знаю что для Вас это дело пары минут, спасибо за понимание.
К сообщению приложен файл: 3286121.jpg(23.2 Kb)


Сообщение отредактировал Predator92 - Среда, 12.05.2021, 12:55
 
Ответить
СообщениеДоброе время суток, дорогие специалисты!
Буду откровенен, задали задание, облазил все форумы, что то нашел, но так и не понял. Понял только то, что это VBA и весь код нужно писать в модуль Эта книга

Описание задания для всей книги: какой код прописать в модуль книги ,чтобы всё лишнее пропало как на фото 112.jpg , а при написание пароля к примеру 123 в ячейку T32 листа "HELLO!" ,всё панели и всё возвращалось как было

Благодарю всех Вас за помощь
Знаю что для Вас это дело пары минут, спасибо за понимание.

Автор - Predator92
Дата добавления - 12.05.2021 в 09:40
Predator92 Дата: Среда, 12.05.2021, 09:41 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Документ прилагаю
К сообщению приложен файл: 111112.xlsm.xls(17.0 Kb)
 
Ответить
СообщениеДокумент прилагаю

Автор - Predator92
Дата добавления - 12.05.2021 в 09:41
Апострофф Дата: Среда, 12.05.2021, 10:37 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 372
Репутация: 109 ±
Замечаний: 0% ±

Excel 1997
какой код прописать в модуль книги

В модуль листа проще чуть-чуть
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$T$32" Then
  If Target = 123 Then
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", True)"
  Else
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", False)"
  End If
End If
End Sub
[/vba]
 
Ответить
Сообщение
какой код прописать в модуль книги

В модуль листа проще чуть-чуть
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$T$32" Then
  If Target = 123 Then
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", True)"
  Else
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", False)"
  End If
End If
End Sub
[/vba]

Автор - Апострофф
Дата добавления - 12.05.2021 в 10:37
Predator92 Дата: Среда, 12.05.2021, 10:51 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Апострофф, да спасибо вам большое, но мне нужно чтобы вся книга была такого типа, а не один лист. Спасибо за понимание! Надеюсь на Вашу помощь
 
Ответить
СообщениеАпострофф, да спасибо вам большое, но мне нужно чтобы вся книга была такого типа, а не один лист. Спасибо за понимание! Надеюсь на Вашу помощь

Автор - Predator92
Дата добавления - 12.05.2021 в 10:51
Predator92 Дата: Среда, 12.05.2021, 13:02 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Нашёл в интернет данный код только без отмены паролем в ячейки T32 как у меня, как считаете? Можно из этого сделать то что мне нужно?
  
[vba]
Код
Sub ChangeInterface(Value As Boolean)   
   With Application   
       .ScreenUpdating = False   
       .Caption = IIf(Value = True, Empty, "Наше окно")   
       .DisplayStatusBar = Value: .DisplayFormulaBar = Value   
       Dim iCommandBar As CommandBar, cbc As CommandBarControl   
       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   
       With .CommandBars(1)   
           .Reset: .Enabled = True   
           For Each cbc In .Controls   
               cbc.Visible = Value Or (cbc.Caption Like "*Файл*" Or cbc.Caption Like "*Данные*")   
           Next   
       End With   
       .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", " & Value & ")"   
       .ScreenUpdating = True   
   End With   
End Sub
[/vba]


Сообщение отредактировал Serge_007 - Среда, 12.05.2021, 14:00
 
Ответить
СообщениеНашёл в интернет данный код только без отмены паролем в ячейки T32 как у меня, как считаете? Можно из этого сделать то что мне нужно?
  
[vba]
Код
Sub ChangeInterface(Value As Boolean)   
   With Application   
       .ScreenUpdating = False   
       .Caption = IIf(Value = True, Empty, "Наше окно")   
       .DisplayStatusBar = Value: .DisplayFormulaBar = Value   
       Dim iCommandBar As CommandBar, cbc As CommandBarControl   
       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   
       With .CommandBars(1)   
           .Reset: .Enabled = True   
           For Each cbc In .Controls   
               cbc.Visible = Value Or (cbc.Caption Like "*Файл*" Or cbc.Caption Like "*Данные*")   
           Next   
       End With   
       .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", " & Value & ")"   
       .ScreenUpdating = True   
   End With   
End Sub
[/vba]

Автор - Predator92
Дата добавления - 12.05.2021 в 13:02
китин Дата: Среда, 12.05.2021, 13:49 | Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 6456
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
Predator92, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
СообщениеPredator92, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

Автор - китин
Дата добавления - 12.05.2021 в 13:49
Predator92 Дата: Среда, 12.05.2021, 16:41 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Апострофф, спасибо большое Администратору serge_007 за помощь с исправлением

Пожалуйста посмотрите код , как можно сделать чтобы вид был как на 112.jpg у всей книги , и можно было вернуть все панели с помочью пароля на Листе HELLO! написав туда пароль
 
Ответить
СообщениеАпострофф, спасибо большое Администратору serge_007 за помощь с исправлением

Пожалуйста посмотрите код , как можно сделать чтобы вид был как на 112.jpg у всей книги , и можно было вернуть все панели с помочью пароля на Листе HELLO! написав туда пароль

Автор - Predator92
Дата добавления - 12.05.2021 в 16:41
Апострофф Дата: Среда, 12.05.2021, 17:20 | Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 372
Репутация: 109 ±
Замечаний: 0% ±

Excel 1997
Predator92, в модуль листа HELLO вставьте предложенный мною выше код. Все прочие "хотелки" разбирайте сами, у меня куры некормлены :'(
 
Ответить
СообщениеPredator92, в модуль листа HELLO вставьте предложенный мною выше код. Все прочие "хотелки" разбирайте сами, у меня куры некормлены :'(

Автор - Апострофф
Дата добавления - 12.05.2021 в 17:20
Pelena Дата: Среда, 12.05.2021, 18:27 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 17625
Репутация: 3925 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Predator92, чем не устроил код из сообщения 3?
К сообщению приложен файл: 111112.xlsm(21.5 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеPredator92, чем не устроил код из сообщения 3?

Автор - Pelena
Дата добавления - 12.05.2021 в 18:27
Апострофф Дата: Среда, 12.05.2021, 18:46 | Сообщение № 10
Группа: Проверенные
Ранг: Обитатель
Сообщений: 372
Репутация: 109 ±
Замечаний: 0% ±

Excel 1997
Ну не получаетца у меня оставлять отзывы.
Но хоть мысль одобрена, я счастлив :p
 
Ответить
СообщениеНу не получаетца у меня оставлять отзывы.
Но хоть мысль одобрена, я счастлив :p

Автор - Апострофф
Дата добавления - 12.05.2021 в 18:46
Predator92 Дата: Среда, 12.05.2021, 19:46 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Pelena, вот можно сделать это для всей книги , и оставить панель сохранения и убрать (панель масштаба и панель формул, панель где буквы по горизонтали и цифры по вертикали и листы книги в нижней панели), вообщем как на фото 112.jpg


Сообщение отредактировал Predator92 - Среда, 12.05.2021, 19:47
 
Ответить
СообщениеPelena, вот можно сделать это для всей книги , и оставить панель сохранения и убрать (панель масштаба и панель формул, панель где буквы по горизонтали и цифры по вертикали и листы книги в нижней панели), вообщем как на фото 112.jpg

Автор - Predator92
Дата добавления - 12.05.2021 в 19:46
Pelena Дата: Среда, 12.05.2021, 20:12 | Сообщение № 12
Группа: Админы
Ранг: Местный житель
Сообщений: 17625
Репутация: 3925 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
сделать это для всей книги
что это значит? А сейчас как, не для всей?
К сообщению приложен файл: 0935102.xlsm(22.3 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
сделать это для всей книги
что это значит? А сейчас как, не для всей?

Автор - Pelena
Дата добавления - 12.05.2021 в 20:12
Predator92 Дата: Среда, 12.05.2021, 20:28 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Pelena, оставить панель сохранения и убрать (панель масштаба и панель формул, панель где буквы по горизонтали и цифры по вертикали и листы книги в нижней панели
 
Ответить
СообщениеPelena, оставить панель сохранения и убрать (панель масштаба и панель формул, панель где буквы по горизонтали и цифры по вертикали и листы книги в нижней панели

Автор - Predator92
Дата добавления - 12.05.2021 в 20:28
Pelena Дата: Среда, 12.05.2021, 23:41 | Сообщение № 14
Группа: Админы
Ранг: Местный житель
Сообщений: 17625
Репутация: 3925 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Можно из этого сделать то что мне нужно?
посмотрите в файле - это вариант с кодом из сообщения №5. Как при этом оставить Панель быстрого доступа, я не знаю.
К сообщению приложен файл: 3177315.xlsm(24.2 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
Можно из этого сделать то что мне нужно?
посмотрите в файле - это вариант с кодом из сообщения №5. Как при этом оставить Панель быстрого доступа, я не знаю.

Автор - Pelena
Дата добавления - 12.05.2021 в 23:41
Predator92 Дата: Четверг, 13.05.2021, 04:19 | Сообщение № 15
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Pelena, я сегодня попробую сделать всё что нужно, только дойду до друга с компьютером, с вашего позволения , исправлю , если не получиться ,то поможете с исправлением кода чучуть ? Буду очень признателен
 
Ответить
СообщениеPelena, я сегодня попробую сделать всё что нужно, только дойду до друга с компьютером, с вашего позволения , исправлю , если не получиться ,то поможете с исправлением кода чучуть ? Буду очень признателен

Автор - Predator92
Дата добавления - 13.05.2021 в 04:19
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение кода модуля книги для скрытия не нужных параметров (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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