D
D
Hi:
I have the below macro that runs at 9am; but in the enable / disable macro
message someone should click Yes; can you please tell me how can I bypass
this message; I do not want to set the Security to Low.
Thanks,
Dan
Sub auto_open()
'
' Journals_Files Macro
' Macro - by Dan
Application.DisplayAlerts = False
ChDir "U:\TREASURY\PUBLIC\TBM Middle Office\ROBONEILL\2008\Autorec\Jan08"
Workbooks.Open Filename:= _
"U:\TREASURY\PUBLIC\TBM Middle
Office\ROBONEILL\2008\Autorec\Jan08\mthly_journals_1.xls"
ActiveWorkbook.SaveAs Filename:= _
"U:\TREASURY\PUBLIC\TBM Middle
Office\ROBONEILL\2008\Autorec\4Alice\mthly_journals.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"U:\TREASURY\PUBLIC\TBM Middle
Office\ROBONEILL\2008\Autorec\Jan08\mthly_journals_99124_1.xls"
ChDir "U:\TREASURY\PUBLIC\TBM Middle Office\ROBONEILL\2008\Autorec\4Alice"
ActiveWorkbook.SaveAs Filename:= _
"U:\TREASURY\PUBLIC\TBM Middle
Office\ROBONEILL\2008\Autorec\4Alice\mthly_journals_99124.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
End Sub
I have the below macro that runs at 9am; but in the enable / disable macro
message someone should click Yes; can you please tell me how can I bypass
this message; I do not want to set the Security to Low.
Thanks,
Dan
Sub auto_open()
'
' Journals_Files Macro
' Macro - by Dan
Application.DisplayAlerts = False
ChDir "U:\TREASURY\PUBLIC\TBM Middle Office\ROBONEILL\2008\Autorec\Jan08"
Workbooks.Open Filename:= _
"U:\TREASURY\PUBLIC\TBM Middle
Office\ROBONEILL\2008\Autorec\Jan08\mthly_journals_1.xls"
ActiveWorkbook.SaveAs Filename:= _
"U:\TREASURY\PUBLIC\TBM Middle
Office\ROBONEILL\2008\Autorec\4Alice\mthly_journals.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"U:\TREASURY\PUBLIC\TBM Middle
Office\ROBONEILL\2008\Autorec\Jan08\mthly_journals_99124_1.xls"
ChDir "U:\TREASURY\PUBLIC\TBM Middle Office\ROBONEILL\2008\Autorec\4Alice"
ActiveWorkbook.SaveAs Filename:= _
"U:\TREASURY\PUBLIC\TBM Middle
Office\ROBONEILL\2008\Autorec\4Alice\mthly_journals_99124.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
End Sub