View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Norman Jones Norman Jones is offline
external usenet poster
 
Posts: 5,302
Default Form Button Security

Hi Paul,

Try:

'=============
Private Sub Workbook_Activate()
Application.CommandBars("Excel Control"). _
FindControl(ID:=859).Enabled = False
End Sub

'--------------

Private Sub Workbook_Deactivate()
Application.CommandBars("Excel Control"). _
FindControl(ID:=859).Enabled = True
End Sub

'--------------

Private Sub Workbook_Open()
Application.CommandBars("Excel Control"). _
FindControl(ID:=859).Enabled = False
End Sub
'<<=============

This is workbook event code and should be pasted into the workbook's
ThisWorkbook module *not* a standard module or a sheet module:

Right-click the Excel icon on the worksheet
(or the icon to the left of the File menu if your workbook is maximised)
Select 'View Code' from the menu and paste the code.
Alt-F11 to return to Excel.


---
Regards,
Norman