Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Enable/Disable Macro Pop-Up | Excel Discussion (Misc queries) | |||
enable/disable macro | Excel Discussion (Misc queries) | |||
Macro Enable/Disable | Excel Programming | |||
Enable/Disable Macro | Excel Programming |