Snasui Excel Forum

Code: Select all

sub HideSheet()
Dim ws As Worksheet
	for Each ws in thisworkbook.worksheets
		if left(ws.name, 6) = "Photo_" then
			ws.visible = xlsheethidden
		end if
	next ws
end sub

Code: Select all

Option Explicit

Sub HideTab()
'Code โดย คนควน"
    ActiveWindow.DisplayWorkbookTabs = False
End Sub

Code: Select all

Private Sub Workbook_Open()
'Code โดย คนควน"
Call HideTab
End Sub

Code: Select all

Sub HideSheet()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If LCase(Left(ws.Name, 6)) = "photo_" Then
            ws.Visible = xlSheetHidden
        End If
    Next ws
End Sub