Enable/Disable Macro
 

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_journal s.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_journal s_99124.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close



End Sub

Enable/Disable Macro
 

I use a Digital Signature. This allows my security settings to remain high
and we can run any macro I assign the certificate too.

You will have to setup the certificate on all of your users systems; its a
straight forward task. In Excel help, search for "digital signature" for
more information.

HTH
--
Regards

VBA.Noob.Confused
XP Pro
Office 2007



"D" wrote:

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_journal s.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_journal s_99124.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close



End Sub

Enable/Disable Macro
 

Thanks Rick!

Dan

"Rick S." wrote:

I use a Digital Signature. This allows my security settings to remain high
and we can run any macro I assign the certificate too.

You will have to setup the certificate on all of your users systems; its a
straight forward task. In Excel help, search for "digital signature" for
more information.

HTH
--
Regards

VBA.Noob.Confused
XP Pro
Office 2007



"D" wrote:

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_journal s.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_journal s_99124.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close



End Sub