• はてなアカウントでログイン
• 無料ユーザー登録

みんなの回答

• a-kuma32018/09/19 20:19:52

  Application.OnTime を使ってください。

  スター

空腹おやじ2018/09/19 22:25:24

とりあえずExcel限定で。
autoSaveBooksを実行後、こいつを書いてあるBookを閉じないでおけば
エラーがない限りは、条件にあてはまるファイルは保存してくれるかと。
途中で保存処理をキャンセルしたい場合には、cancelAutoSaveを実行して下さい。
イミディエイトウィンドウに出力されるログ以外には、稼働状況を確認する方法はなさそう。



'保存間隔（分）
Private Const INTERVAL_MINUTE   As Long = 5


Private dtNext_     As Date


Public Sub autoSaveBooks()

    Dim wb  As Workbook
    Dim sFileName   As String

    For Each wb In Workbooks
        If wb.Name <> ThisWorkbook.Name Then
            If wb.Path = "" Then
                '未保存なら、ダイアログを表示
                sFileName = Application.GetSaveAsFilename(InitialFileName:=wb.Name & ".xlsx", FileFilter:="Excelファイル, *.xlsx", Title:=wb.Name & " を名前を付けて保存")

                If sFileName <> "False" Then
                    Call wb.SaveAs(sFileName)

                    Debug.Print "Save:" & Format$(Now, "hh:nn:ss") & "[" & wb.Path & "\" & sFileName & "]"
                Else
                    Debug.Print "Skip:" & Format$(Now, "hh:nn:ss") & "[" & wb.Name & "]"
                End If
            ElseIf wb.ReadOnly Then
                '読み取り専用なら保存しない
            ElseIf wb.Saved Then
                '変更がなければ保存しない
            Else
                wb.Save

                Debug.Print "Save:" & Format$(Now, "hh:nn:ss") & "[" & wb.FullName & "]"
            End If
        End If
    Next wb

    dtNext_ = DateAdd("n", INTERVAL_MINUTE, Now)

    Debug.Print "Next:" & Format$(dtNext_, "hh:nn:ss")


On Error GoTo ERR_CANNOT_SAVE
    Call Application.OnTime(EarliestTime:=dtNext_, Procedure:="autoSaveBooks", Schedule:=True)

    Exit Sub

ERR_CANNOT_SAVE:
    Debug.Print Format$(Now, "hh:nn:ss") & "：[" & CStr(Err.Number) & "]" & Err.Description

End Sub

Public Sub cancelAutoSave()

    Call Application.OnTime(EarliestTime:=dtNext_, Procedure:="autoSaveBooks", Schedule:=False)

    Debug.Print "Auto Save Canceled."

End Sub





以下、個人的な意見なので、かる～く読み流して、気に入らなかったら無視して下さい。
誰もが経験の有りそうなことですね。
自慢じゃないですが、私も何回もやったことあります。

こういった自動化は出来るけど、正直あまりおすすめできないと思ってます。
自動的に保存はされるけど、逆に言えば、
本人が意図しない保存をされる可能性も否定できないし、
そこまでコントロールしようとすると、どんどん深みにハマる事になりそうなので・・・

基本的には、作業者がこまめに保存する習慣をつけるべき事だと思います。
キーボードで、Ctrl + Sを押すだけで済むのですから。

スター

• 

  1件のコメントを見る

• 空腹おやじ 2018/09/19 22:31:56

  補足
  セルが編集中のBookがあると、そのセルの編集が終わるまで処理が止まって、待ち続けるようです。

  スター
• その他の回答を読む

この質問へのコメント

質問の情報

登録日時

2018-09-18 09:59:14

終了日時

2018-09-25 10:00:06

回答条件

1人5回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…匿名質問者312日前
• 不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者112日前
• 日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者1日前
• 共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者211日前
• 内定してほしいポケモンはいますか？匿名質問者1日前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ