Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Help! (сформулирую вопрос по другому) Добавлено: 15.08.02 09:41  

Автор вопроса:  L
Как сделать так чтобы при сохранении рабочей книги выполнялся некоторый набор ко[sensored]... например, скрытие листов, формул и т.п.

Ответить

  Ответы Всего ответов: 4  

Номер ответа: 1
Автор ответа:
 Andreika



Вопросов: 5
Ответов: 64
 Профиль | | #1 Добавлено: 15.08.02 11:58

Так запихай все свои ко[sensored]ы в

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

......

......

......

End Sub

и все будет выполнятся непосредственно перед сохранением, автоматически.

Ответить

Номер ответа: 2
Автор ответа:
 Andrei



Вопросов: 5
Ответов: 42
 Профиль | | #2 Добавлено: 15.08.02 12:05

В Экселе есть спец названия для макросов, которые вызываются автоматически, например при открытии или закрытии книги. Хоть убей не помню их названия.

Ответить

Номер ответа: 3
Автор ответа:
 User Unknown



Вечный Юзер!

ICQ: uu@jabber.cz 

Вопросов: 120
Ответов: 3302
 Профиль | | #3 Добавлено: 15.08.02 12:27

AutoRun

Main

Ответить

Номер ответа: 4
Автор ответа:
 Andreika



Вопросов: 5
Ответов: 64
 Профиль | | #4 Добавлено: 15.08.02 13:51
 А ты куда пишешь этот код? Похоже в модуль (в смысле обыкновенный модуль) ?

 Если так, то и не должно работать.

Допустим необходимо при сохранении Книги  с именем "Книга1"  произвести какие либо действия. Сделай следующее:

 

  1. При открытой в Экселе "Книга1"  загружаем редактор VBA
  2. В окне Project-VBA Project раскрываем узел VBA Project(Книга1) (если еще не раскрыт).
  3. В окне Project-VBA Project раскрываем узел Micrisoft Excel Objects (если еще не раскрыт).
  4. Там-же находим узел ЭтаКнига и двойным кликом по нему открываем модуль
  5. В верхнем левом углу появившегося окна раскрываем список General и выбираем Workbook (двойным кликом). В окне появится Private Sub Workbook_Open()
  6. В раскрывающемся списке, который расположен в верхнем правом углу выбираем BeforeSave. В окне появится обработчик события Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean). Вот в него и запихивай все, что тебе необходимо.

 

А вообще при выбранном в левом списке какого либо элемента, в правом списке отображаются все доступные обработчики события для элемента из левого списка.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам