Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


74508 / 76732 ←次へ | 前へ→

【6686】Re:LAN端末でのリアル新
回答  よろずや  - 03/7/23(水) 17:57 -

引用なし
パスワード
   >あつかましいのですが、できましたらその部分の一例を教えてほしいのですが
>よろしくおねがいします。

標準モジュールに
−−−−−−−−−−−−−−−−−−−−−−−−−−−
Option Explicit
Public oldtime As Date

Public Sub Auto_Open()
  If Not ThisWorkbook.ReadOnly Then
    On Error Resume Next
    If Not ThisWorkbook.Saved Then
      Application.EnableEvents = False
      ThisWorkbook.Save
      Application.EnableEvents = True
    End If
    ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
  End If
  oldtime = FileDateTime(ThisWorkbook.FullName)
  Application.OnTime Now, "updchk"
End Sub

Public Sub updchk()
Dim newtime As Date
  newtime = FileDateTime(ThisWorkbook.FullName)
  If oldtime <> newtime Or Not ThisWorkbook.Saved Then
    On Error Resume Next
    If ThisWorkbook.ReadOnly Then
      Application.OnTime Now, "Auto_Open"
      ThisWorkbook.ChangeFileAccess Mode:=xlReadWrite
      Exit Sub
    End If
    oldtime = newtime
  End If
  Application.OnTime Now + TimeSerial(0, 0, 5), "updchk"
End Sub
−−−−−−−−−−−−−−−−−−−−−−−−−−−
ってな感じですが、うまくないですね。
やはり、プログラムとデータは別ファイルにすべきかと。
1 hits

【6661】LAN端末でのリアル新 ゆきち 03/7/20(日) 13:06 質問
【6662】Re:LAN端末でのリアル新 よろずや 03/7/20(日) 23:27 回答
【6665】Re:LAN端末でのリアル新 ゆきち 03/7/21(月) 22:13 お礼
【6686】Re:LAN端末でのリアル新 よろずや 03/7/23(水) 17:57 回答
【6694】Re:LAN端末でのリアル更新 ゆきち 03/7/24(木) 23:15 お礼

74508 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free