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
|