I have a workbook with severalworksheets,and many users use this workbook
I have a macro for protecting and unprotecting ,and disabling the users from
deleting rows ,etc. but I found that some users have the security adjusted to
high so macro is disabled and some others have the ability to go to macro and
unprotect the sheet and also know the password,so is there a way to
1) when a user open the workbook,the security level adjusted to medium
2) the Tool menu in the menu bar be disabled
Thanks to all for your help
Best regards
--
Sameh Farouk

2)

application.CommandBars.Item("Tools").Enabled = False ' disables the dropdown
application.CommandBars.Item("Tools").Visible =False ' hides the option

"Sameh Farouk" wrote:

I have a workbook with severalworksheets,and many users use this workbook
I have a macro for protecting and unprotecting ,and disabling the users from
deleting rows ,etc. but I found that some users have the security adjusted to
high so macro is disabled and some others have the ability to go to macro and
unprotect the sheet and also know the password,so is there a way to
1) when a user open the workbook,the security level adjusted to medium
2) the Tool menu in the menu bar be disabled
Thanks to all for your help
Best regards
--
Sameh Farouk

Is there a way to do this with File "Save", but leave "Save As"

Yes!

Application.CommandBars.Item("File").Controls.Item ("Save &AS...").Enabled =
False ' Disable option
Application.CommandBars.Item("File").Controls.Item ("Save &AS...").Visible =
False ' Hide option

!Type "Save &AS..." as shown!

"L Scholes" wrote:

Is there a way to do this with File "Save", but leave "Save As"

I think I disabled/made hidden Save AS instrad of Save;for Save use "&Save"
insead of "Save&AS..." within the code.



"AA2e72E" wrote:

Yes!

Application.CommandBars.Item("File").Controls.Item ("Save &AS...").Enabled =
False ' Disable option
Application.CommandBars.Item("File").Controls.Item ("Save &AS...").Visible =
False ' Hide option

!Type "Save &AS..." as shown!

"L Scholes" wrote:

Is there a way to do this with File "Save", but leave "Save As"

If I disable .Item(&Save), will I still be able to use "Ctrl+S" to save?

I tried to use your "Hide Option"
(Application.CommandBars.Item("File").Controls.Ite m("Save
&AS...").Visible =
False ' Hide option) and get an error message when I re-open the
workbook???

Ctrl + S will still work: if you want to stop it working,you can do it by
trapping the key combination ... see onKey in the help files.

I do not get errors on re-opening the file ... using 2000

"L Scholes" wrote:

I tried to use your "Hide Option"
(Application.CommandBars.Item("File").Controls.Ite m("Save
&AS...").Visible =
False ' Hide option) and get an error message when I re-open the
workbook???

Oh, well. The rest of the code works!!! (I can't get the "Hide Option"
to work; tried everything! Don't worry about it. I'm using Excel 2002
SP3.)
Thank you!