View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
TimN TimN is offline
external usenet poster
 
Posts: 72
Default Disable Tools Protection

Thanks to a post from Ron de Bruin I found the following to disable the Tools
Protection option from the tool bar:


Application.CommandBars("Worksheet Menu Bar").FindControl _
(ID:=30029, Recursive:=True).Enabled = False

My question is where do I insert this code? Is it in the "This Workbook"
portion of the code? I gave that a try, but nothing happened.

I have protected all the cells where I do not want the user to change a
formula. However, if they try to change a formula they get the Excel message
box that advises them the cell is protected, then tells them how to go
unprotect the worksheet.

At first I password protected the sheet, but then my macro wouldn't run. I
was unsuccessful in writting code to unprotect, run the macro, then protect
the sheet. So, I decided to try just removing the toolsProtection option
from the menu so the user will not have any easy time unprotecting the sheet
and changing formulas.

If anyone has a better solution, please advise.

Thanks!