usman5594
07-25-2013, 09:30 PM
Hi ,
i Have No Knowledge About Vba , I Find This Code On an other Site
Its Work Good I Need Like This Code On My Work Book
But
I Need Some Change In This Code
Kindly Give It To Right way
No 1: I Need Workbook auto Save When Click On Message Box
No 2: In Message Box Show Remaining Time
Code Is Below
Private Sub Workbook_Open()
Dim counter As Integer
counter = Sheets("Sheet1").Range("A1").Value
If counter < 20 Then
MsgBox "When click on ok then workbook auto save to keep Cell A1 Value Save"
Sheets("sheet1").Range("A1").Value = counter + 1
Else
MsgBox "Expire " & _
"Connect Me"
ThisWorkbook.Saved = True
Application.Quit
End If
End Sub
Thank You
i Ask This Q on Other Form
http://www.excelforum.com/excel-programming-vba-macros/942316-need-some-change-in-count-macro-running-code.html
i Have No Knowledge About Vba , I Find This Code On an other Site
Its Work Good I Need Like This Code On My Work Book
But
I Need Some Change In This Code
Kindly Give It To Right way
No 1: I Need Workbook auto Save When Click On Message Box
No 2: In Message Box Show Remaining Time
Code Is Below
Private Sub Workbook_Open()
Dim counter As Integer
counter = Sheets("Sheet1").Range("A1").Value
If counter < 20 Then
MsgBox "When click on ok then workbook auto save to keep Cell A1 Value Save"
Sheets("sheet1").Range("A1").Value = counter + 1
Else
MsgBox "Expire " & _
"Connect Me"
ThisWorkbook.Saved = True
Application.Quit
End If
End Sub
Thank You
i Ask This Q on Other Form
http://www.excelforum.com/excel-programming-vba-macros/942316-need-some-change-in-count-macro-running-code.html