Всем доброго времени суток. в недавнем прошлом данная тема обсуждались, я бы хотел еще раз ее поднять.
Суть вопроса в следующем , в прикрепленном файле есть макрос который расписывает содержимое ячейки, все работает замечательно, абсолютно нет никаких нареканий. но расписывает содержимое в строчку например (1+2)/100=0,03, или (100+300)^2-100=15990? возможно ли привести к виду дроби первое выражение а второе ввести под корень?
Всем заранее спасибо!

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

Всем доброго времени суток, снова встал вопрос по защите своих трудов. В 2014 г вопрос не был решен, товарищи не смогли решить данную задачу.

Помогите.

В соответствии и названием раздела не сложно догадаться, что здесь платные услуги. Если у вас есть предложение с удовольствием выслушал.

Добрый день уважаемые специалисты, в 2010 году я создавал тему по самоуничтожению файлов ексель, использовался макрос с проверкой по дате,
в данный момент снова появилась необходимость в данной функции, но уже для файлов ворд.
Подскажите пож-ста возможно ли это сделать? Если кто то готов мне помочь выслушаю все пожелания.

Заранее благодарю всех ответивших.

Добрый день уважаемые специалисты, в 2010 году я создавал тему по самоуничтожению файлов ексель, использовался  макрос  с проверкой по дате,
в данный момент снова появилась необходимость в данной функции, но уже для файлов ворд.
Подскажите пож-ста возможно ли это сделать?

примеры макроса для екселя :

Sub Workbook_Open()
If Date <= #12/31/2004# Then Exit Sub
MsgBox "Сейчас рабочая книга будет удалена!"
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End Sub

или

Sub Workbook_Open()
'Kill_Them_All
Dim DateToKill As Variant
Dim CurrDate As Variant
Dim WS As Worksheet
CurrDate = Date
DateToKill = DateValue("18.06.2010"
Set WS = Sheets(1)
If DateToKill <= CurrDate Then
For Each WS In Worksheets
WS.Cells.Clear
Next WS


End If
Range("A1" .Select
End Sub



Заранее благодарю всех ответивших.

я не правильно выразился, а точнее дело не в работе, а в культуре отдельных русских людей, которые перепродают чужие работы каким либо образом украв их у авторов, речи идет об отчетах в вордовских файлах .

Здравствуйте уважаемые, в 2010 году я создавал тему по самоуничтожению файлов ексель путем макросов с проверкой по дате.

Sub Workbook_Open()
If Date <= #12/31/2004# Then Exit Sub
MsgBox "Сейчас рабочая книга будет удалена!"
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End Sub

или

Sub Workbook_Open()
'Kill_Them_All
Dim DateToKill As Variant
Dim CurrDate As Variant
Dim WS As Worksheet
CurrDate = Date
DateToKill = DateValue("18.06.2010"    
Set WS = Sheets(1)
If DateToKill <= CurrDate Then
For Each WS In Worksheets
WS.Cells.Clear
Next WS


End If
Range("A1"    .Select
End Sub


В данный момент нуждаюсь в команде для файлов Ворд,

если кто то готов взяться, то готов оплатить в пределах разумного.


Заранее благодарю всех ответивших.

Спасибо ,вам всем, очень помогли

MCH,да примерно так,  возможно ли вертикальные линии вести через весь график а не только до горизонтальной оси?  
 
Казанский, при выполнении макроса появляется только одна линия .  
Спасибо вам большое.

Здравствуйте уважаемые , возможно глупый вопрос но ответ на него я так и не нашел.  
в прикрепленном файле ексель 2007 построен график температуры в стене(синяя линия), возможно ли через каждые узлы графика температуры провести вертикальные линии.    
Очень благодарен всем кто поможет!

{quote}{login=}{date=19.06.2010 07:32}{thema=}{post}может через vba, активировав DisAbleAllCLear  
 
Option Private Module  
Dim ComBar As CommandBar  
Dim ComBarCtrl As CommandBarControl  
Sub DisAbleAllCLear()  
   EnableControl 295, False  
   EnableControl 296, False  
   EnableControl 297, False  
   EnableControl 478, False  
   EnableControl 292, False  
   EnableControl 293, False  
   EnableControl 294, False  
   EnableControl 847, False  
   EnableControl 21, False  
   EnableControl 19, False  
   EnableControl 22, False  
   EnableControl 755, False  
   EnableControl 3125, False  
   EnableControl 1964, False  
   EnableControl 872, False  
   EnableControl 873, False  
   EnableControl 874, False  
   With Application  
       .OnKey "^c", "Dummy"  
       .OnKey "^v", "Dummy"  
       .OnKey "+{DEL}", "Dummy"  
       .OnKey "+{INSERT}", "Dummy"  
       .CellDragAndDrop = False  
       .OnDoubleClick = "Dummy"  
   End With  
End Sub  
Sub EnableControl(iId As Integer, blnState As Boolean)  
   Dim ComBar As CommandBar  
   Dim ComBarCtrl As CommandBarControl  
   On Error Resume Next  
   For Each ComBar In Application.CommandBars  
       Set ComBarCtrl = ComBar.FindControl(ID:=iId, recursive:=True)  
       If Not ComBarCtrl Is Nothing Then ComBarCtrl.Enabled = blnState  
   Next  
End Sub  
Sub Dummy()  
   MsgBox "Команда недоступна!"  
End Sub{/post}{/quote}  
 
 
Скажите пожалуйста как с этим обращаться ?

Подскажите как запретить копирование содержимого из одного файла в другой.  
 
Заранее очень благодарен.

{quote}{login=KuklP}{date=19.06.2010 11:23}{thema=}{post}VBAProject-Properties-Protection-Lock for wieving-Password{/post}{/quote}  
 
Спасибо что ответили , скажите пожалуйсто, возможно ли этот пароль сломать?

Здравствуйте.  
Помогите скрыть макросы , не дать возможность их изменять.  
Заранее благодарен.

{quote}{login=FvR}{date=18.06.2010 10:22}{thema=}{post}Удаление рабочей книги после определенной даты, минуя корзины  
 
Sub Workbook_Open()  
If Date <= #12/31/2004# Then Exit Sub  
MsgBox "Сейчас рабочая книга будет удалена!"  
With ThisWorkbook  
.Saved = True  
.ChangeFileAccess xlReadOnly  
Kill .FullName  
.Close False  
End With  
End Sub{/post}{/quote}  
 
Вот это тема

{quote}{login=Пытливый}{date=18.06.2010 08:21}{thema=}{post}открываем нужный файл  
давим Alt+F11 откроется окно редактора VBA  
Слева вверху ищем в виде иерархического списка свой файл. Он будет состоять из списка объектов в файле. Например лист1, лист2 и, в том числе объект "ЭтаКнига" (ThisWorkbook)  
Два раза щелкаем мышью на название объекта - откроется окно кода объекта (бОльшая часть экрана редактора справа вверху)  
в этом окне кода вставляем мою писанину.{/post}{/quote}  
 
Спасибо большое , все получилось.

Пытливый , прошу прощения , ошибся сообщение сверху отправил я , там прекрепил файл , который хочу убить.

Здравствуйте подскажите макрос который при определенной дате или позже этой дате запускал бы другой макрос.  
Заранее благодарен.

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

Может кто нибудь подскажет как можно изменить подписи данных на графике (Диаграмме),    
т.е если выбрать точку графика -> правой кнопкой -> Добавить подписи данных , то появится значение ординаты .    
Можно ли вместо этого текста сделать к примеру ссылку на нужное мне число?

Спасибо всем кто пытался мне помочь!!! Наверное действительно с помощью екселя не добиться желаемого результата.

Помогите пожалуйста . или скажите что такого решения не существует.

Здравствуйте уважаемые , снова прошу у вас помощи.  
Вобщем ситуация такая , умеются координаты оси арки и усилия возникающие в арке с соответствующими координатами ,и нужно (если это возможно)построить очертание оси арки и на этом же графике по координатам х добавить усилия М . Для меня проблема в том что на графике должно быть нанесены значения усилий, как это сделать не знаю , т.к усилия и координаты в разных единицах, и также усилия должны отсчитываться от оси арки.    
Заранее благодарен всем кто поможет.    
Прикрепляю файл с координатами и усилиями там же желаемый результат.

McCinly все понял , да действительно ответ был совсем рядом , вобщем наиболее подходящим оказалось Правка=> специальная вставка=>текст в формате PDF=> связать=> ок .  
Спасибо вам большое все вроде работает , пересчитывает, и вызлядет как и хотелось.

{quote}{login=McCinly}{date=03.02.2010 05:42}{thema=}{post}1) Создаете один шаблон для расчетов, и один шаблон документа  
2) В Екселе копируете ячейку, в Ворде в нужное место делаете специальную вставку связать.  
И так один раз для всех нужных ячеек.    
Потом при открытии шаблона в Excel и ввода данных, они автоматически изменятся в шаблоне. Распечатайте шаблон и вводите новые данныые.    
 
2-й способ  
1) Создаете шаблон в Ворде,    
2) В шаблон вставляете поля именуя каждое (например ПОЛЕ1, ПОЛЕ2 и т.д.),  
3) Создаете таблицу с результатами расчета в Excel, где в первой колонке имена полей (ПОЛЕ1, ПОЛЕ2 ...), следующие строки ваши результаты.  
4) В Ворде слияние с данными из Excel, открываете таблицу с результатами расчета.    
 
2-й способ для массовой печати расчетов.{/post}{/quote}  
 
 
 
Очень непонятные способы , может где нибуть есть описание таких действий

Возвращаю удаленный фаил

Добавляю желаемый результат

Здравствуйте , данная тема уже как то поднималась , но до конца ее так додумать и не смог. Прошу у вас помощи : проблема в следующем , расчет записанный в екселе необходимо оформить в ворде , можно конечно копировать=> вставить но когда страниц 40-50 это тяжело. Прикрепляю файл ексель с расчетом и фаи с желаемым результатом. Заранее благодарен всем кто поможет! <BR><STRONG>Файл удален</STRONG> - велик размер. [Модераторы]

Вообще зачетно, очень вам благодарен . Спасибо большое, очень помогли