hide toolbar, ribbon, formula bar etc

[lazarandreiflorin]

Hello,

Is it possible to hide toolbar, formula bar, ribbon etc.. for only one workbook?

link for the workbook : http://s000.tinyupload.com/index.php?file_id=66089730027655191139

 

[Yongle]

Here is one way
- hides when workbook opens, unhides the code when another window clicked on, hides when workbook re-activated, unhides when workbook is closed

Place your code to show and hide in HideToolbar_etc and then
- Hide with Workbook_Open and Workbook_WindowActivate
- Show with Workbook_BeforeClose and WindowDeactivate

Sub [I][COLOR=#006400]HideToolbar_etc[/COLOR][/I](T As Boolean)
    If T = True Then
       Code to  HIDE toolbar, formula bar, ribbon goes here
    Else
       Code to  SHOW toolbar, formula bar, ribbon goes here
    End If
End Sub

In ThisWorbook module

Private Sub Workbook_Open()
    HideToolbar_etc (True)
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    HideToolbar_etc (True)
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
    HideToolbar_etc (False)
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    HideToolbar_etc (False)
End Sub