"new" and "open" buttons on the standard menu

Just use part of the code I previously posted

Private Sub Workbook_Activate()
Dim MyCommand As CommandBar
Set MyCommand = Application.CommandBars("Standard")

With MyCommand
.Controls("&New").Enabled = False
.Controls("&Open").Enabled = False

End With

End Sub

Private Sub Workbook_Deactivate()
Dim MyCommand As CommandBar
Set MyCommand = Application.CommandBars("Standard")

With MyCommand
.Controls("&New").Enabled = True
.Controls("&Open").Enabled = True

End With

End Sub

This will stop people from being able to use the open or new buttons on the command bar, but they can still use hot keys or the file menu.

Hope this helps

Jacob

Thanks, Jacob it's working now!(nt)