Re: ]] XL-mania [[ Protect OPTION

[Henry]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Tools").Controls("Options...").Enabled = True
End Sub

Private Sub Workbook_Open()
Application.CommandBars("Tools").Controls("Options...").Enabled = False
End Sub


Semoga membantu,

Henry