[RESOLVED] Macro Free Workbook

[toecutter]

I have enabled all in macro security but this version of office still produces this message



I carnt even find where the version is displayed lol

[si_the_geek]

That error is nothing to do with macro security, etc - the problem is that you are trying to save the file as a type of file that does not support macros (such as *.CSV).

[toecutter]

ok, thanks

I changed a setting in options/save

[joaquin386]

By the way how is it possible to disable that warning window?

I move an enable-macro to an not able macro (I want to do that)

[si_the_geek]

Welcome to VBForums

As far as I know, the only ways to disable that window are to save as a file type that supports macros, or to remove all of the macros.

To remove all of the macros, open the VB Editor, then go to the Project Explorer window (via the View menu). For each item in the list, right-click on it and select "Remove".

[joaquin386]

Thanks for the welcome

I just needed to save to a non-macro excel cause I dont want the user to use the macros (they are open with the Auto_Open and later save to an xls without the macros).

[August N F R D]

Hello all;
I was able to just go back to the basic Excel page extension. That cleared it and stopped the query.

I look forward to this site. It's, X Cit Ing. LOL.

[sparty_joe]

I have enabled all in macro security but this version of office still produces this message



I carnt even find where the version is displayed lol

I have the same issue, but i want to overwrite/not prompt to continue saving as a macro-free workbook.

My code is below:

Private Sub Workbook_Open()
Run "update_rpt"
End Sub

Update_rpt

Sub update_rpt()
Dte = Weekday(Date)
 Select Case Dte
 Case Is = 3, 4, 5, 6, 7
 Dte = Date - 1
 Case Is = 1 'Sun
 Dte = Date - 2
 Case Is = 2 'Mon
 Dte = Date - 3
 End Select
 FDte = Format(Dte, "yyyy_mm_dd")
'
' update_rpt Macro
'

ChDir "\\ezfp1\Results\InReview\"
    ActiveWorkbook.SaveAs Filename:= _
        "\\ezfp1\Results\InReview\AML_" & FDte & ".xls", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False

End Sub

Exit_Excel

Sub Exit_Excel()
Application.Quit
End Sub