Workbook Full View Custom Sheets

[kamranyd]

these codes I use for full view sheet, but now I want to add more sheets for full view, how to do it.

Private Sub Workbook_Activate()
Application.ScreenUpdating = False
If ActiveSheet.Name = "Sheet1" Then

Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayStatusBar = True
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayGridlines = False
Application.DisplayScrollBars = False
Application.WindowState = xlMaximized
Else
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End If
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_Deactivate()
Application.ScreenUpdating = False
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" 'code to show ribbon.
    Application.ScreenUpdating = True
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.ScreenUpdating = False
    If Sh.Name = "Sheet1" Then
        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" 'code to hide ribbon.
    Else
        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" 'code to show ribbon.
        Application.ScreenUpdating = True
    End If
End Sub

 

[Gokhan Aycan]

Can be achieved with different methods. Just showing one

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.ScreenUpdating = False
    If Sh.Name = "Sheet1" or Sh.Name = "Sheet2" or Sh.Name = "Sheet3" Then

 

[kamranyd]

thanks this work, if there is another methods can you tell me fast and less code method than this. I want my workbook load and run fast.

 

[Gokhan Aycan]

Hey, I didn't say that!

Since we can't use the following characters in sheet names, pick one as delimiter. i.e., *
\
/
?
*
[
]
:
Use instead

If InStr("Sheet1*Sheet2*Sheet3",Sh.Name)>0 Then

Might have to accomodate for case of letters (capital or lower), using Option Compare Text at the start of module can help. Not near a PC to actually try.

Other's may have better, leaner code.

 

[kamranyd]

Hey, I didn't say that!

Since we can't use the following characters in sheet names, pick one as delimiter. i.e., *
\
/
?
*
[
]
:
Use instead

If InStr("Sheet1*Sheet2*Sheet3",Sh.Name)>0 Then

Might have to accomodate for case of letters (capital or lower), using Option Compare Text at the start of module can help. Not near a PC to actually try.

Other's may have better, leaner code.

thanks with this. I don't have to write .Name many time, but what about this line

If ActiveSheet.Name = "Sheet1" Then

in Private Sub Workbook_Activate() can we use

If InStr("Sheet1*Sheet2*Sheet3",Sh.Name)>0 Then

here.

 

[Gokhan Aycan]

Since Sh worksheet object is not defined in that event, replace Sh.Name with ActiveSheet.Name.

 

[Fluff]

Since Sh worksheet object is not defined in that event

Yes it is. it's an argument passed to the sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

 

[Gokhan Aycan]

Yes it is. it's an argument passed to the sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

OP asked for wb activate though

 

[Fluff]

Oops, misread