View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
JMay JMay is offline
external usenet poster
 
Posts: 422
Default 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,