Заменить расширение по умолчанию "Сохранить как" - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

Заменить расширение по умолчанию "Сохранить как" (Макросы/Sub)

Заменить расширение по умолчанию "Сохранить как"

Assa

Дата: Понедельник, 05.12.2016, 18:27 | Сообщение № 21

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

My WebPage
А вот сообщение, раздражающее бухгалтеров

Ответить

Udik

Дата: Понедельник, 05.12.2016, 18:29 | Сообщение № 22

Группа: Друзья

Ранг: Старожил

Сообщений: 1588

Репутация: 192 ±

Замечаний: 0% ±

Excel 2016 х 64

Если события книги не отлавливаются, то не знаю чем помочь. Но это проверить надо

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Ответить

Assa

Дата: Понедельник, 05.12.2016, 18:31 | Сообщение № 23

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Udik, События книги отлавливаются, но это книга интегрированная в систему, а не просто файл.

Ответить

Kuzmich

Дата: Понедельник, 05.12.2016, 18:32 | Сообщение № 24

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 157 ±

Замечаний: 0% ±

Excel 2003

В Excel 2003 XlFileFormat=xlExcel9795

Ответить

Udik

Дата: Понедельник, 05.12.2016, 18:37 | Сообщение № 25

Группа: Друзья

Ранг: Старожил

Сообщений: 1588

Репутация: 192 ±

Замечаний: 0% ±

Excel 2016 х 64

ЦитатаAssa, 05.12.2016 в 18:31, в сообщении № 23 ()

События книги отлавливаются

Попробуйте на другое событие повесить, может получится.

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Сообщение отредактировал Udik - Понедельник, 05.12.2016, 18:37

Ответить

Assa

Дата: Понедельник, 05.12.2016, 18:37 | Сообщение № 26

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Udik, вот сейчас для теста взяла просто файл на компьютере *.xlsm, добавила

[vba]

Код

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DefaultSaveFormat = xlExcel8
End Sub

[/vba]

Тип файла не изменился на *.xls

Ответить

Udik

Дата: Понедельник, 05.12.2016, 18:40 | Сообщение № 27

Группа: Друзья

Ранг: Старожил

Сообщений: 1588

Репутация: 192 ±

Замечаний: 0% ±

Excel 2016 х 64

Выберите событие которое наверняка случится, но не слишком частое

. У меня нормально срабатывает.

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Сообщение отредактировал Udik - Понедельник, 05.12.2016, 18:41

Ответить

Assa

Дата: Понедельник, 05.12.2016, 18:42 | Сообщение № 28

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Udik,

[vba]

Код

Private Sub Workbook_Open()
Application.DefaultSaveFormat = xlExcel8
End Sub

Private Sub Workbook_Activate()
Application.DefaultSaveFormat = xlExcel8
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DefaultSaveFormat = xlExcel8
End Sub

[/vba]

не сработало

Ответить

Assa

Дата: Понедельник, 05.12.2016, 18:44 | Сообщение № 29

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Udik, то есть вы хотите сказать, что вы берете файл *.xlsm, добавляете обработку события, например Workbook_Open(), и после этого при нажатии на Сохранить как у вас в Тип файла подтягивается *.xls ?