Автоматический перенос данных

[Геннадий]

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

[GWolf]

Добрый день, ув. Геннадий!

Рекомендую Вам еще раз перечитать Ваш пост, на тему его адекватности!?

[kuklp]

Рекомендую Вам еще раз перечитать Ваш пост, на тему его адекватности!?

+!

[IKor]

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

Другое дело, что я не знаю как это реализовать физически...

[GWolf]

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

Другое дело, что я не знаю как это реализовать физически...

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

[Шпец Докапыч]

А вот и макрос:
для модуля ЭтаКнига:

Код Выделить Развернуть

Private Sub Workbook_Open()
 If Me.ReadOnly Then UpdateFile
End Sub
для модуля Module1:

Код Выделить Развернуть

Sub UpdateFile()
 Set fso = CreateObject("Scripting.FileSystemObject")
 DLM = fso.GetFile(ThisWorkbook.FullName).DateLastModified
 LST = ThisWorkbook.BuiltinDocumentProperties("Last save time")
 
 Application.OnTime Now + TimeValue("00:00:10"), "UpdateFile"
 If Abs(DateDiff("s", DLM, LST)) > 9 Then
   Application.DisplayAlerts = False
   Workbooks.Open ThisWorkbook.FullName
 End If
End Sub

[Геннадий]

Спасибо огромное! Случайно заглянул. А то столько просмотров и ни одного ответа. Попробовал-все получилось. Еще раз огромное спасибо.