Computer says no

[Drew]

Don't you just HATE it when windows crashes half way though drafting a long document

Replies not welcome from Mac users.

 

[naddyz]

what about replies from people who press save whilst writing documents?

 

[Morbyd]

 

[Drew]

what about replies from people who press save whilst writing documents?

I was going to fast for that

 

[Scoobie]

..or replies from people who have set their computer up so it automatically makes a backup every 5 minutes?

 

[silvia]

Replies not welcome from Mac users.

 

[Kang]

Andy I know just how you feel - us oldies with technology eh

I'm just getting used to using this puta thing at home and it keeps deleting my emails half way through me typing them. I'm obviously pressing something I shouldn't be but at work when this happens it appears in a draft box or something!

I am, however, finding the shopping very, very easy

 

[Drew]

 

[x-amount]

..or replies from people who have set their computer up so it automatically makes a backup every 5 minuted?

What she said

(i actually built (via macro) my own Autosave on Excel - thus having documented snapdshot every 15 minutes so I can rooll back in case of errors or crashes, I'll tell you all about it one day...)

 

[russ]

Replies not welcome from Mac users.

 

[Drew]

Autosave can be more trouble than it's worth.

 

[Mark Sun]

Replies not welcome from Mac users.

 

[Robder]

 

[jessyg123]

My computer has just crashed after i've had to go through 92 pages of text and change things - think I am going to cry

 

[mambobirdette]

Oh nooooooo

 

[jessyg123]

I can't face doing it all again - its made me feel sick looking at screen for so long - it wasn't something you could save as your going on!!

 

[naddyz]

8)

was planning on buying a mac this year but I've still not managed to sort out my finances (worse than they've ever been since I started work!!)

 

[x-amount]

Application.StatusBar = "Running Auto Backup, please wait..."
Application.ScreenUpdating = False

Dim W As Workbook
Dim NeedRun As Boolean
Dim DelayBetweenSaves, MyDir As String

MyDir = "H:\My Documents\Excel Backup\"'Location of Backup Directory
DelayBetweenSaves = 15

NeedRun = False
For Each W In Workbooks
If Not W.Saved Then
NeedRun = True
End If
Next
If NeedRun Then
Dim vaFileName As Variant
For Each W In Workbooks
If W.Saved = False Then
n = 0
Do
n = n + 1
With Application.FileSearch
.NewSearch
.LookIn = MyDir
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Filename = Left(W.Name, Len(W.Name) - 4) & " (" & n & ").xls"
If .Execute = 0 Then
latest = True
W.SaveCopyAs ("H:\My Documents\Excel Backup\" & Left(W.Name, Len(W.Name) - 4) & " (" & n & ").xls")
End If
End With
Loop Until latest
'W.Saved = True
'If W.Name = "PERSONAL.XLS" Then W.Save
End If
Next
Else
'If MsgBox(Now & "Run AutoBackUp later?", vbYesNo, "Avinit") = vbYes Then
End If

Application.OnTime Now + TimeValue("00:" & DelayBetweenSaves & ":00"), "MyAutoBackup"
Application.ScreenUpdating = False
Application.StatusBar = False
End Sub

...Is your friend

 

[Drew]

Application.StatusBar = "Running Auto Backup, please wait..."
Application.ScreenUpdating = False

Dim W As Workbook
Dim NeedRun As Boolean
Dim DelayBetweenSaves, MyDir As String

MyDir = "H:\My Documents\Excel Backup\"'Location of Backup Directory
DelayBetweenSaves = 15

NeedRun = False
For Each W In Workbooks
If Not W.Saved Then
NeedRun = True
End If
Next
If NeedRun Then
Dim vaFileName As Variant
For Each W In Workbooks
If W.Saved = False Then
n = 0
Do
n = n + 1
With Application.FileSearch
.NewSearch
.LookIn = MyDir
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Filename = Left(W.Name, Len(W.Name) - 4) & " (" & n & ").xls"
If .Execute = 0 Then
latest = True
W.SaveCopyAs ("H:\My Documents\Excel Backup\" & Left(W.Name, Len(W.Name) - 4) & " (" & n & ").xls")
End If
End With
Loop Until latest
'W.Saved = True
'If W.Name = "PERSONAL.XLS" Then W.Save
End If
Next
Else
'If MsgBox(Now & "Run AutoBackUp later?", vbYesNo, "Avinit") = vbYes Then
End If

Application.OnTime Now + TimeValue("00:" & DelayBetweenSaves & ":00"), "MyAutoBackup"
Application.ScreenUpdating = False
Application.StatusBar = False
End Sub

...Is your friend

I used to do this sort of stuff in my programming days but know none of it now.

Long term memory detiorisation.

 

[dw151174]

Application.StatusBar = "Running Auto Backup, please wait..."
Application.ScreenUpdating = False

Dim W As Workbook
Dim NeedRun As Boolean
Dim DelayBetweenSaves, MyDir As String

MyDir = "H:\My Documents\Excel Backup\"'Location of Backup Directory
DelayBetweenSaves = 15

NeedRun = False
For Each W In Workbooks
If Not W.Saved Then
NeedRun = True
End If
Next
If NeedRun Then
Dim vaFileName As Variant
For Each W In Workbooks
If W.Saved = False Then
n = 0
Do
n = n + 1
With Application.FileSearch
.NewSearch
.LookIn = MyDir
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Filename = Left(W.Name, Len(W.Name) - 4) & " (" & n & ").xls"
If .Execute = 0 Then
latest = True
W.SaveCopyAs ("H:\My Documents\Excel Backup\" & Left(W.Name, Len(W.Name) - 4) & " (" & n & ").xls")
End If
End With
Loop Until latest
'W.Saved = True
'If W.Name = "PERSONAL.XLS" Then W.Save
End If
Next
Else
'If MsgBox(Now & "Run AutoBackUp later?", vbYesNo, "Avinit") = vbYes Then
End If

Application.OnTime Now + TimeValue("00:" & DelayBetweenSaves & ":00"), "MyAutoBackup"
Application.ScreenUpdating = False
Application.StatusBar = False
End Sub

...Is your friend

long winded, just go to tools - add ins and pick your tool pack, alternatively go to tools-options-save and click your auto recover on and select time (this is dependant on what version you have)