check this out ! any feedback ?

[fireslguk]

Private Sub Workbook_Activate()
With Application
.DisplayFormulaBar = False
.CommandBars("Worksheet Menu Bar").Controls("Tools").Controls("Options...").Enabled = False
.CommandBars("Worksheet Menu Bar").Controls("View").Controls("Formula Bar").Enabled = False
.CommandBars("Worksheet Menu Bar").Controls("View").Controls("Toolbars").Enabled = False
.CommandBars("Toolbar List").Enabled = False
Application.CommandBars("File").Enabled = False
Application.CommandBars("Edit").Enabled = False
Application.CommandBars("View").Enabled = False
Application.CommandBars("Worksheet Menu Bar").Controls("Insert").Enabled = False
Application.CommandBars("Format").Enabled = False
Application.CommandBars("Tools").Enabled = False
Application.CommandBars("Data").Enabled = False
Application.CommandBars("Window").Enabled = False
Application.CommandBars("Help").Enabled = False
For Each a In Application.CommandBars
Application.CommandBars(a.Name).Enabled = False
'MsgBox a.Name
Next
End With
End Sub


Private Sub Workbook_Deactivate()
With Application
.DisplayFormulaBar = True
.CommandBars("Worksheet Menu Bar").Controls("Tools").Controls("Options...").Enabled = True
.CommandBars("Worksheet Menu Bar").Controls("View").Controls("Formula Bar").Enabled = True
.CommandBars("Worksheet Menu Bar").Controls("View").Controls("Toolbars").Enabled = True
.CommandBars("Toolbar List").Enabled = True
.CommandBars("Worksheet Menu Bar").Controls("Tools").Controls("Customize...").Enabled = True
Application.CommandBars("File").Enabled = True
Application.CommandBars("Edit").Enabled = True
Application.CommandBars("View").Enabled = True
Application.CommandBars("Worksheet Menu Bar").Controls("Insert").Enabled = True
Application.CommandBars("Format").Enabled = True
Application.CommandBars("Tools").Enabled = True
Application.CommandBars("Data").Enabled = True
Application.CommandBars("Window").Enabled = True
Application.CommandBars("Help").Enabled = True
For Each a In Application.CommandBars
Application.CommandBars(a.Name).Enabled = True

Next
End With
End Sub

 

[Zack Barresse]

Hi,

Is there a question here?

 

[fireslguk]

is it a workable code please try ! ?

 

[Zack Barresse]

I don't need to try, I can read. If you are wanting to know if it works, or how, I suggest two things: 1) run the code yourself, stepping through it with F8, and 2) read a book on Excel VBA.

Was that the only question? "Is it workable?" ??