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

Вход

Регистрация

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

 

= Мир MS Excel/Запрет печати первого листа книги - Мир MS Excel

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

Объект Excel.Application должен реагировать на следующее событие: при попытке распечатать первый лист рабочей книги выдается предупреждающее сообщение о запрете печати. Есть код, но что не так?? Где ошибка, помогите пожалуйста
[vba]
Code

Option Explicit
'Класс, описывающий объект Application With Events.
'Класс не имеет методов, задается одним свойством.
Public WithEvents ExApp As Application
Public AppWithEv As New AppWithEvents

Private Sub ExApp_NewWorkbook(ByVal Wb As Workbook, Cancel As Boolean)
'Обработка события печать содержимого книги.
If Wb.ActiveSheet.Name = "Лист1" Then
MsgBox ("Эту страницу книги - " & Wb.Name _
& "печатать запрещено!")
Cancel = True
End If
End Sub

Private Sub Workbook_Open()
'Связывание двух объектов Application -
'стндартного и регирующего на события.
Set AppWithEv.ExApp = Excel.Application
End Sub
[/vba]


Сообщение отредактировал olesiafox - Суббота, 19.05.2012, 20:13
 
Ответить
СообщениеОбъект Excel.Application должен реагировать на следующее событие: при попытке распечатать первый лист рабочей книги выдается предупреждающее сообщение о запрете печати. Есть код, но что не так?? Где ошибка, помогите пожалуйста
[vba]
Code

Option Explicit
'Класс, описывающий объект Application With Events.
'Класс не имеет методов, задается одним свойством.
Public WithEvents ExApp As Application
Public AppWithEv As New AppWithEvents

Private Sub ExApp_NewWorkbook(ByVal Wb As Workbook, Cancel As Boolean)
'Обработка события печать содержимого книги.
If Wb.ActiveSheet.Name = "Лист1" Then
MsgBox ("Эту страницу книги - " & Wb.Name _
& "печатать запрещено!")
Cancel = True
End If
End Sub

Private Sub Workbook_Open()
'Связывание двух объектов Application -
'стндартного и регирующего на события.
Set AppWithEv.ExApp = Excel.Application
End Sub
[/vba]
Автор - olesiafox
Дата добавления - 19.05.2012 в 19:59
RAN Дата: Суббота, 19.05.2012, 20:21 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Начинаем гадать с кофейной гущи.
Гадание первое - в книге нет листа "Лист1". biggrin
Гадание второе - по чайной заварке
"А хто его знает". cool

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеНачинаем гадать с кофейной гущи.
Гадание первое - в книге нет листа "Лист1". biggrin
Гадание второе - по чайной заварке
"А хто его знает". cool
Автор - RAN
Дата добавления - 19.05.2012 в 20:21
olesiafox Дата: Суббота, 19.05.2012, 20:28 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Первый раз вижу VBA)) Выдает ошибку что определяемый пользователем тип не определен sad

На строке [vba]
Code
Public AppWithEv As New AppWithEvents
[/vba]

А понять не могу где его определять


Сообщение отредактировал olesiafox - Суббота, 19.05.2012, 20:29
 
Ответить
СообщениеПервый раз вижу VBA)) Выдает ошибку что определяемый пользователем тип не определен sad

На строке [vba]
Code
Public AppWithEv As New AppWithEvents
[/vba]

А понять не могу где его определять
Автор - olesiafox
Дата добавления - 19.05.2012 в 20:28
RAN Дата: Суббота, 19.05.2012, 20:43 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
В модуле класса.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеВ модуле класса.
Автор - RAN
Дата добавления - 19.05.2012 в 20:43
LightZ Дата: Воскресенье, 20.05.2012, 12:58 | Сообщение № 5
Группа: Авторы
Ранг: Форумчанин
Сообщений: 120
Репутация: 48 ±
Замечаний: 0% ±

Выложите файл, скорей всего неправильно вставить код

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296
 
Ответить
СообщениеВыложите файл, скорей всего неправильно вставить код
Автор - LightZ
Дата добавления - 20.05.2012 в 12:58
olesiafox Дата: Воскресенье, 27.05.2012, 15:55 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Выкладываю. Я просто VBA первый раз вижу, не разобралась до сих пор, а задание выполнить надо)
К сообщению приложен файл: 2B.xlsm (15.3 Kb)
 
Ответить
СообщениеВыкладываю. Я просто VBA первый раз вижу, не разобралась до сих пор, а задание выполнить надо)
Автор - olesiafox
Дата добавления - 27.05.2012 в 15:55
RAN Дата: Воскресенье, 27.05.2012, 18:28 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
здесь в сообщении 13 есть файлик с похожим кодом.

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщениездесь в сообщении 13 есть файлик с похожим кодом.
Автор - RAN
Дата добавления - 27.05.2012 в 18:28
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Запрет печати первого листа книги (Помогите разобраться)
  • Страница 1 из 1
  • 1
Поиск:

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