Save Macro enabled WB as w/o macro

M

Michael Dobony

I have the following VBA in my macro-enabled workbook template:

Sub SaveAsCompanyName()
Dim MyPath As String
MyPath = ThisWorkbook.Path
ThisWorkbook.SaveAs Filename:=MyPath & "\" & Range("A1") & " LTL RFQ.xlsx",
_
FileFormat:=xlOpenXMLWorkbook
End Sub

This results in the following error message:

The following features cannot be saved in macro free workbooks.
VB Project
To save a file with these features, click no, and then choose a macro -
enabled file type in the file type list.
To continue saving as a macro free workbook, click yes.

I've searched the web, but can't find a way to automatically bypass this
error message. I do not want to send the final workbook out with macros in
it. Is there a way to code a bypass or auto "Yes" response to this to avoid
this?
 
G

GS

I have the following VBA in my macro-enabled workbook template:
Sub SaveAsCompanyName()
Dim MyPath As String
MyPath = ThisWorkbook.Path
ThisWorkbook.SaveAs Filename:=MyPath & "\" & Range("A1") & " LTL
RFQ.xlsx", _
FileFormat:=xlOpenXMLWorkbook
End Sub

This results in the following error message:

The following features cannot be saved in macro free workbooks.
VB Project
To save a file with these features, click no, and then choose a macro
- enabled file type in the file type list.
To continue saving as a macro free workbook, click yes.

I've searched the web, but can't find a way to automatically bypass
this error message. I do not want to send the final workbook out with
macros in it. Is there a way to code a bypass or auto "Yes" response
to this to avoid this?
Click to expand...

If you don't want to send the file with macros in it then just delete
the macros!

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion
 
G

GS

Optionally...

If you need to reuse the macro you can store it in PERSONAL.XLS so it's
always available when you use Excel. You can modify it to work for any
open file...

Sub SaveAsCompanyName()
Dim sPath$
sPath = "\" & Range("A1") & " LTL RFQ.xlsx"
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & sPath, _
FileFormat:=xlOpenXMLWorkbook
End Sub

...where ActiveWorkbook is the new file created from your template.

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion
 
M

Michael Dobony

Optionally...

If you need to reuse the macro you can store it in PERSONAL.XLS so it's
always available when you use Excel. You can modify it to work for any
open file...

Sub SaveAsCompanyName()
Dim sPath$
sPath = "\" & Range("A1") & " LTL RFQ.xlsx"
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & sPath, _
FileFormat:=xlOpenXMLWorkbook
End Sub

..where ActiveWorkbook is the new file created from your template.
Click to expand...

This is essentially a template file for another user who is not that Excel
savy and very picky, hence the need to bypass this warning when saving.
 
G

GS

This is essentially a template file for another user who is not that
Excel savy and very picky, hence the need to bypass this warning when
saving.
Click to expand...

You can't have it both ways in XL2007 and later! If a workbook has VBA
then it MUST be saved as XLSM or XLSA!

Distribute an addin (which is where the code resides) to everyone that
uses this workbook as a template. Create new files from the template
and run 'SaveAsCompanyName' on it.

Optionally, store the addin and template on a network share where
everyone can use it from. Have the addin make its own toolbar so its
functionality is accessible from custom menus.

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion
 
M

Michael Dobony

You can't have it both ways in XL2007 and later! If a workbook has VBA
then it MUST be saved as XLSM or XLSA!
Click to expand...

You just don't get it, I want the macros GONE when sent on outside the
company. I have a VERY finicky and demanding coworker I'm adapting this for
and she has too much to do already than to play around with these "little
things." These "little things" add up to a lot of overtime.

Right now it doesn't even matter. I finally had an opportunity to get on
her machine and find the macro that nobody could find and did a temporary
fix on it. Now I have to go in and change absolute cell references to range
names and then changes in the raw data format will not affect the macro. It
took me a full day to read and follow through on the thirteen pages of text
and fixing one subroutine at a time to adapt it.
Distribute an addin (which is where the code resides) to everyone that
uses this workbook as a template. Create new files from the template
and run 'SaveAsCompanyName' on it.
Click to expand...

And then have the fun of decoding the addin and redistributing and HOPE you
get all of them.
Optionally, store the addin and template on a network share where
everyone can use it from. Have the addin make its own toolbar so its
functionality is accessible from custom menus.
Click to expand...

That's another option, but as a macro enabled workbook, as nobody could
find it in the Personal workbook before and nobody really wants macros
after their experience with these. They're mellowing out now as I fixed
this one after fighting with doing the job by formulas and creating simple
macros to clean up the files afterward, removing links to other workbooks.
The system was a nightmare and I'm trying to make it simple.
 
C

CellShocked

You can't have it both ways in XL2007 and later! If a workbook has VBA
then it MUST be saved as XLSM or XLSA!
Click to expand...

What I do is copy the text of the macro, as in all of those you want to
use. Then I place them in another worksheet, in a single cell and name
the worksheet "MacroTxt" or the like.

Then I save it as a NON macro enabled file.

Then I make an instruction worksheet which tells the user how to cut
and paste the text into the macro editor and save the workbook as a macro
file type, and then close and re-open the xlsm file.
 
M

Michael Dobony

What I do is copy the text of the macro, as in all of those you want to
use. Then I place them in another worksheet, in a single cell and name
the worksheet "MacroTxt" or the like.

Then I save it as a NON macro enabled file.

Then I make an instruction worksheet which tells the user how to cut
and paste the text into the macro editor and save the workbook as a macro
file type, and then close and re-open the xlsm file.
Click to expand...

I DON"T want the macros saved! I just want to save the worksheet, a copy
from a template directory, with all the formulas and macros removed to send
on to clients after all the information gathering is competed.
 
C

Claus Busch

Hi Michael,

Am Sat, 30 Mar 2013 10:35:04 -0500 schrieb Michael Dobony:
I DON"T want the macros saved! I just want to save the worksheet, a copy
from a template directory, with all the formulas and macros removed to send
on to clients after all the information gathering is competed.
Click to expand...

try:

Sub SaveAsCompanyName()
Dim MyPath As String
Dim i As Integer

MyPath = ThisWorkbook.Path

'Deletes the formulas
For i = 1 To Sheets.Count
With Sheets(i).UsedRange
.Value = .Value
End With
Next

Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=MyPath & "\" & _
Range("A1") & " LTL RFQ.xlsx", FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
End Sub


Regards
Claus Busch
 
Z

Zaidy036

I DON"T want the macros saved! I just want to save the worksheet, a copy
from a template directory, with all the formulas and macros removed to send
on to clients after all the information gathering is competed.
Click to expand...
One way to remove formulas is to use the free "ASAP Utilities" from
http://www.asap-utilities.com/

It has a function to change formulas to their calculated values.
 
G

GS

You just don't get it, I want the macros GONE when sent on outside
the
company. I have a VERY finicky and demanding coworker I'm adapting
this for
and she has too much to do already than to play around with these
"little
things." These "little things" add up to a lot of overtime
Click to expand...

Actually, I do 'get it'! What I'm trying to convey to you is that the
macros used to process the template do not need to be (nor should be)
stored in the template! You can store them in PERSONAL.XLS or an addin
so they're always available when you need/want to use them.

IOW, a template file is used by a VBA project for processing that
project's intended task. The code resides in the project NOT the
template!

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion
 
A

asgard

Joined
Sep 10, 2013
Messages
3
Reaction score
0
I get it.
I have the same problem.
I have a Workbook generating .xlsx files from individual Worksheets via a button.
I only want to save the Data in the Worksheet.

I need to bypass the question and just save to .xlsx format not .xlsm
The original Workbook need to remain unchanged.
 
A

asgard

Joined
Sep 10, 2013
Messages
3
Reaction score
0
Never Mind, I found it.

Application.DisplayAlerts = False

' your save code here

Application.DisplayAlerts = True
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Macro Question 2
Excel 2007: Saving a file with a Macro 1
Workbook_Beforeclose 11
Macro-enable Workbook 3
Macro help 2
Macro Source is Changing 4
VBA Save As problem with file that already exist 3
Save file macro 2

Top