Hi,
Can I make File-Save and File-SaveAs Menu of Excel.exe disabled
by using any WIN32API or other ways?
Making them invisible is the best for me, but making them gray is also good
for me.
Thanks in advance.

(Win2000+Excel2002)

With Application.CommandBars("Worksheet Menu Bar").Controls("File")
.Controls("Save").Visible = False
.Controls("Save As Menu").Visible = False
End With

Don't forget to put them back.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Zoo" wrote in message
...
Hi,
Can I make File-Save and File-SaveAs Menu of Excel.exe disabled
by using any WIN32API or other ways?
Making them invisible is the best for me, but making them gray is also
good
for me.
Thanks in advance.

(Win2000+Excel2002)

.Controls("Save As Menu").Visible = False

should be

.Controls("Save As...").Visible = False

While these will disable the menu items, the user can still do a
Save with CTRL+S

To actually disable saving, put the following code in the
ThisWorkbook code module:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel
As Boolean)
ThisWorkbook.Saved = True
Cancel = True
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Bob Phillips" wrote in message
...
With Application.CommandBars("Worksheet Menu
Bar").Controls("File")
.Controls("Save").Visible = False
.Controls("Save As Menu").Visible = False
End With

Don't forget to put them back.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing
direct)

"Zoo" wrote in message
...
Hi,
Can I make File-Save and File-SaveAs Menu of Excel.exe
disabled
by using any WIN32API or other ways?
Making them invisible is the best for me, but making them gray
is also
good
for me.
Thanks in advance.

(Win2000+Excel2002)

I didn't know what Save As Menu was, so assumed it was something 2003 (which
I don't use) <g

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Chip Pearson" wrote in message
...
.Controls("Save As Menu").Visible = False

should be

.Controls("Save As...").Visible = False

While these will disable the menu items, the user can still do a
Save with CTRL+S

To actually disable saving, put the following code in the
ThisWorkbook code module:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel
As Boolean)
ThisWorkbook.Saved = True
Cancel = True
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Bob Phillips" wrote in message
...
With Application.CommandBars("Worksheet Menu
Bar").Controls("File")
.Controls("Save").Visible = False
.Controls("Save As Menu").Visible = False
End With

Don't forget to put them back.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing
direct)

"Zoo" wrote in message
...
Hi,
Can I make File-Save and File-SaveAs Menu of Excel.exe
disabled
by using any WIN32API or other ways?
Making them invisible is the best for me, but making them gray
is also
good
for me.
Thanks in advance.

(Win2000+Excel2002)

Thank you , Bob.
I'm happy to know that he solution is so much easier than I thought.
That helps me so much.


"Bob Phillips" wrote in message
...
With Application.CommandBars("Worksheet Menu Bar").Controls("File")
.Controls("Save").Visible = False
.Controls("Save As Menu").Visible = False
End With

Don't forget to put them back.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Zoo" wrote in message
...
Hi,
Can I make File-Save and File-SaveAs Menu of Excel.exe disabled
by using any WIN32API or other ways?
Making them invisible is the best for me, but making them gray is also
good
for me.
Thanks in advance.

(Win2000+Excel2002)