logistics of application and procedures
I am providing templates for the employees in the office.
Each of their files(which acts as a template for them to continually use,
example jmaytimesheet.xls it contains:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Ans As Integer
Ans = MsgBox("Is your Timesheet complete and ready" & vbLf & "for
Submission to the Payroll Office?" & vbLf & "Answering No will Save it for
Further" & vbLf & "Input the Next time you return", vbYesNoCancel, "Your
Timesheet Status")
If Ans = vbYes Then
SendToProcessing
If Ans = vbNo Then ThisWorkbook.Save
End If
End Sub
and
Sub SendToProcessing()
Dim PEDate As String
Dim ECode As String
Dim SFolder As String
PEDate = Format(Range("H2"), "mmddyyyy") ' H2 = 5/28/04 as example
ECode = Range("C4").Value 'C4 = MAYJ as example
ChDir "C:\My Documents\Paymaster\PRBackUp\"
ActiveWorkbook.SaveCopyAs PEDate & ECode & ".xls"
End Sub
All files contained in C:\My Documents\Paymaster\PRBackUp \are to be
e-mailed to
the person that preapres the Payroll every two weeks. When the Payroll
person opens
each file and Prints it out for their records << which is OK But when
they try and close
each one the Workbook_BeforeClose macro runs.
How can I remove this from the files that have been Saved as 052804MAYJ.xls
so that
this situation doesn't occur? Any other advice you see let me know?
Tks in Advance,
|