Программой с макросами пользовались и корректировали много лет. Сегодня в очередной раз вносила правки и в какой-то момент пропали кнопки запуска макросов в 1 программе, а за ней и в еще 2-х открытых файлах (все файлы это один и тот же вариант программы различия были крайне не значительными) Я закрыла файлы и по крайней мере в 1 файле точно не сохранила изменения, после того как файлы были открыты кнопки не появились, не появились они и после перезапуска экселя и после перезагрузки компьютера. В связи с этим 2 вопроса: 1. Кто с таким сталкивался и отчего это случилось/как бороться/как восстановить программу? в случае если ответ на первый вопрос не найдется то следующий вопрос: 2. Отчего вновь созданные кнопки не активизируют макросы которые я к ним присоединила? (макросы описаны в папке Microsoft Excel Objects/Лист с на котором размещены кнопки)?
Программой с макросами пользовались и корректировали много лет. Сегодня в очередной раз вносила правки и в какой-то момент пропали кнопки запуска макросов в 1 программе, а за ней и в еще 2-х открытых файлах (все файлы это один и тот же вариант программы различия были крайне не значительными) Я закрыла файлы и по крайней мере в 1 файле точно не сохранила изменения, после того как файлы были открыты кнопки не появились, не появились они и после перезапуска экселя и после перезагрузки компьютера. В связи с этим 2 вопроса: 1. Кто с таким сталкивался и отчего это случилось/как бороться/как восстановить программу? в случае если ответ на первый вопрос не найдется то следующий вопрос: 2. Отчего вновь созданные кнопки не активизируют макросы которые я к ним присоединила? (макросы описаны в папке Microsoft Excel Objects/Лист с на котором размещены кнопки)?Пропали кнопки из файла
...печалька Ответ на вопрос 1 - "Это не Я - оно само" - не верю))) но встречаю в нашей компании такое время от времени, а когда сажусь искать в чем причина, то после ее нахождения встречаю резкое прозрение юзера, что то в стиле "Ой, точно, я забыла что удалила строчку/столбик и т.д." ))) Ответ на вопрос 2 - нужно смотреть! Первое действие которое нужно выполнить это приложить файл с пропавшей кнопкой.
...печалька Ответ на вопрос 1 - "Это не Я - оно само" - не верю))) но встречаю в нашей компании такое время от времени, а когда сажусь искать в чем причина, то после ее нахождения встречаю резкое прозрение юзера, что то в стиле "Ой, точно, я забыла что удалила строчку/столбик и т.д." ))) Ответ на вопрос 2 - нужно смотреть! Первое действие которое нужно выполнить это приложить файл с пропавшей кнопкой.DJ_Marker_MC
Т.к. я писала программу сама, то могу сказать что удаление сточек к такому не привели бы) Ну если в строчке не было кнопки) Удалено. Нарушение Правил форума файлик тут
Т.к. я писала программу сама, то могу сказать что удаление сточек к такому не привели бы) Ну если в строчке не было кнопки) Удалено. Нарушение Правил форума файлик тутAn-nana
Сообщение отредактировал Pelena - Четверг, 15.01.2015, 18:21
An-nana, зачем ВЕСЬ файл, достаточно выложить файл с 1 листом на котором пропали кнопки, вес которого вряд ли превысит допустимый форумом. И да правило 5o гласит: ЗАПРЕЩЕНО предлагать собеседнику перейти в личные отношения (ЛС, SkyPe, ICQ, Агент и проч...), кроме форума "Фриланс";
An-nana, зачем ВЕСЬ файл, достаточно выложить файл с 1 листом на котором пропали кнопки, вес которого вряд ли превысит допустимый форумом. И да правило 5o гласит: ЗАПРЕЩЕНО предлагать собеседнику перейти в личные отношения (ЛС, SkyPe, ICQ, Агент и проч...), кроме форума "Фриланс";DJ_Marker_MC
[offtop]wikipedia: Слово «анархия» - отсутствие власти. также часто употребляется в смысле полного хаоса[/offtop]
а у нас наоборот, обязательно ПОЛНОЕ соблюдение правил форума.
Что касается вашего файла, то думал возможно кнопки у вас просто скрыты, были, но уже вижу что это не так. Касаемо почему не запускаются макросы, но я у вас и макросом то не вижу. в модуле листа кники лишь пустые названия макросов без какого либо когда внутри
[vba]
Код
Option Explicit
Sub InitData() End Sub
Public Sub JubWSt(jj As Integer, indeksacija As Double, diskont As Double, viplata) End Sub Public Sub JubW(jj As Integer, indeksacija As Double, diskont As Double, MMTC As Double, viplata As Double)
End Sub
Sub RitW(jj As Integer, indeksacija As Double, diskont As Double)
End Sub Sub RitWP(jj As Integer, indeksacija As Double, diskont As Double)
End Sub Sub MatWP2(jj As Integer, indeksacija As Double, diskont As Double)
End Sub Sub MatWP(jj As Integer, indeksacija As Double, diskont As Double)
End Sub
Sub LumpSum(jj As Integer, indeksacija As Double, diskont As Double)
End Sub Sub NPO(jj As Integer, indeksacija As Double, diskont As Double)
End Sub
Sub RitP(jj As Integer, indeksacija As Double, diskont As Double) End Sub
Sub MatP(jj As Integer, indeksacija As Double, diskont As Double) End Sub
Sub CommandButton2_Click()
End Sub Sub Работников_Click()
End Sub Sub Пенсионеров_Click()
End Sub
Sub Подготовка_Click()
End Sub Sub OutPutR()
End Sub Sub Analiz(TempRostaPosobijA As Double, ProcentnajaStavkaA As Double, TempRostaZPA As Double, Analiz_Chego As String)
End Sub Sub OutPutP()
End Sub Public Sub TableW(RW() As Double, RWP() As Double, MWP() As Double, JB() As Double, L() As Double, NPO() As Double, JBst() As Double, N As Integer, Name As String, listName As String, FlagTime As Boolean, Sum As Double, mean As Double) End Sub Public Sub TableP(RP() As Double, MP() As Double, N As Integer, Name As String, listName As String, FlagTime As Boolean, Sum As Double, mean As Double) End Sub
[/vba]
поэтому как они могут работать когда работать как таково не чему даже не знаю.
An-nana, вы что то спутали:
[offtop]wikipedia: Слово «анархия» - отсутствие власти. также часто употребляется в смысле полного хаоса[/offtop]
а у нас наоборот, обязательно ПОЛНОЕ соблюдение правил форума.
Что касается вашего файла, то думал возможно кнопки у вас просто скрыты, были, но уже вижу что это не так. Касаемо почему не запускаются макросы, но я у вас и макросом то не вижу. в модуле листа кники лишь пустые названия макросов без какого либо когда внутри
[vba]
Код
Option Explicit
Sub InitData() End Sub
Public Sub JubWSt(jj As Integer, indeksacija As Double, diskont As Double, viplata) End Sub Public Sub JubW(jj As Integer, indeksacija As Double, diskont As Double, MMTC As Double, viplata As Double)
End Sub
Sub RitW(jj As Integer, indeksacija As Double, diskont As Double)
End Sub Sub RitWP(jj As Integer, indeksacija As Double, diskont As Double)
End Sub Sub MatWP2(jj As Integer, indeksacija As Double, diskont As Double)
End Sub Sub MatWP(jj As Integer, indeksacija As Double, diskont As Double)
End Sub
Sub LumpSum(jj As Integer, indeksacija As Double, diskont As Double)
End Sub Sub NPO(jj As Integer, indeksacija As Double, diskont As Double)
End Sub
Sub RitP(jj As Integer, indeksacija As Double, diskont As Double) End Sub
Sub MatP(jj As Integer, indeksacija As Double, diskont As Double) End Sub
Sub CommandButton2_Click()
End Sub Sub Работников_Click()
End Sub Sub Пенсионеров_Click()
End Sub
Sub Подготовка_Click()
End Sub Sub OutPutR()
End Sub Sub Analiz(TempRostaPosobijA As Double, ProcentnajaStavkaA As Double, TempRostaZPA As Double, Analiz_Chego As String)
End Sub Sub OutPutP()
End Sub Public Sub TableW(RW() As Double, RWP() As Double, MWP() As Double, JB() As Double, L() As Double, NPO() As Double, JBst() As Double, N As Integer, Name As String, listName As String, FlagTime As Boolean, Sum As Double, mean As Double) End Sub Public Sub TableP(RP() As Double, MP() As Double, N As Integer, Name As String, listName As String, FlagTime As Boolean, Sum As Double, mean As Double) End Sub
[/vba]
поэтому как они могут работать когда работать как таково не чему даже не знаю.DJ_Marker_MC
Оффтоп: wikipedia: Сарка́зм (греч. σαρκασμός, от σαρκάζω, буквально «разрывать плоть») — один из видов сатирического изобличения, язвительная насмешка, высшая степень иронии, основанная не только на усиленном контрасте подразумеваемого и выражаемого, но и на немедленном намеренном обнажении подразумеваемого.
Код макросов естественно я убрала т.к. он не имеет отношение к делу и является интеллектуальной собственностью нашей компании и коммерческой тайной.
DJ_Marker_MC, это был сарказм.
Оффтоп: wikipedia: Сарка́зм (греч. σαρκασμός, от σαρκάζω, буквально «разрывать плоть») — один из видов сатирического изобличения, язвительная насмешка, высшая степень иронии, основанная не только на усиленном контрасте подразумеваемого и выражаемого, но и на немедленном намеренном обнажении подразумеваемого.
Код макросов естественно я убрала т.к. он не имеет отношение к делу и является интеллектуальной собственностью нашей компании и коммерческой тайной.An-nana
Сообщение отредактировал An-nana - Четверг, 15.01.2015, 18:57
Ну так если вы такой спец в макросах неужели большая проблема создать кнопку ActiveX и подвязать ее к нужному макросу просто сменив ей параметр (name) на, к примеру работников ??? Лично у меня все работает.
Ну так если вы такой спец в макросах неужели большая проблема создать кнопку ActiveX и подвязать ее к нужному макросу просто сменив ей параметр (name) на, к примеру работников ??? Лично у меня все работает.DJ_Marker_MC
DJ_Marker_MC, делала раз 10 именно это, и ActiveX, и элементы управления формы (местную кнопку) тоже пыталась присобачит, меняла свойства, привязка проходила успешна (два раза щелкала на кнопку и в окне VBA открывался нужный макрос) меняла настройки безопасности итог-нулевой. Ладно, пофиг, уже открыла старую версию программы, собиралась просто разобраться в том что произошло,но думаю мне тут мало кто сможет помочь, так что тему закрываю, проблема решена. Спасибо.
DJ_Marker_MC, делала раз 10 именно это, и ActiveX, и элементы управления формы (местную кнопку) тоже пыталась присобачит, меняла свойства, привязка проходила успешна (два раза щелкала на кнопку и в окне VBA открывался нужный макрос) меняла настройки безопасности итог-нулевой. Ладно, пофиг, уже открыла старую версию программы, собиралась просто разобраться в том что произошло,но думаю мне тут мало кто сможет помочь, так что тему закрываю, проблема решена. Спасибо.An-nana
Сегодня в очередной раз вносила правки и в какой-то момент пропали кнопки
Могу предположить, что разрешено автоматическое обновление ексел Уже недели 2 это обновление портит всем файлы: кнопки превращаются в какие-то непонятные обекты, у которых нет кода и которым нельзя назначить макрос
Цитата
Сегодня в очередной раз вносила правки и в какой-то момент пропали кнопки
Могу предположить, что разрешено автоматическое обновление ексел Уже недели 2 это обновление портит всем файлы: кнопки превращаются в какие-то непонятные обекты, у которых нет кода и которым нельзя назначить макросalex77755
Добрый день! Столкнулись с такой же проблемой перестал работать Combobox в файле Exl 2010. Файлом пользовались без проблем 2 года, при этом не работает Combobox и в резервных копиях. Подскажите, что делать? Спасибо [moder]Читать то, что написано выше
Добрый день! Столкнулись с такой же проблемой перестал работать Combobox в файле Exl 2010. Файлом пользовались без проблем 2 года, при этом не работает Combobox и в резервных копиях. Подскажите, что делать? Спасибо [moder]Читать то, что написано вышеИрина
да, прочитали, но к сожелению нет доступа удалить обновления. выявили, что это KB3013126 [moder]В подобных случаях (отсутствие доступа) обращаются к сисадмину - он заходит под своим логином и все делает.
да, прочитали, но к сожелению нет доступа удалить обновления. выявили, что это KB3013126 [moder]В подобных случаях (отсутствие доступа) обращаются к сисадмину - он заходит под своим логином и все делает.Ирина