How to auto save

[mhemat]

I have blank template (BT) that everytime opens up a new ID number is generated. How can i insure that before any entry is performed on this BT, the file is automatically saved the ID number so, the next time the BT opens up generates a ned ID number or a dialog box alert the user to save befor any new entry?

Thanks

 

[Akashwani]

Hi,

I use this code when a Workbook is opened to increase an ID Number in cell D9.

Private Sub Workbook_Open()
Application.DisplayAlerts = False
Dim S As String
If Not MsgBox("  Do you wish to continue? ", vbYesNo + vbQuestion, "    mhemat says....") = vbYes Then
        bolOpening = True
        ThisWorkbook.Close False
    End If
Sheets("YOUR SHEET NAME HERE").Select
ActiveSheet.Unprotect ("Password1")
Sheets("YOUR SHEET NAME HERE").Range("D9").Value = Sheets("YOUR SHEET NAME HERE").Range("D9").Value + 1
ActiveSheet.Protect ("Password1")
ActiveWorkbook.Save

Application.DisplayAlerts = True
End Sub

When the workbook is opened, a message box will appear asking the user if they want to continue, if they click Yes then the value in D9 will increase by 1 and the workbook will be saved, if they no, then the workbook will close.
I hope that works for you.
I don't write or understand VBA code , so I cannot help you further, sorry.

Ak

 

[Smitty]

Please stick to your Original Post.