change Sheets visiable?

[backup69]

if i close workbook, how can i take all sheet names and set visible false or true without sheet named "First".
like:
Private Sub Workbook_Open()
all = all sheetsname without sheet "First"
Worksheets(all).Visible = 1
Worksheets("First").Visible = 2
..
..
End Sub

 

[Monkey]

I Think You're looking for something like this,

Option Explicit
Sub Monkey()
Dim ConditionString As String ''Dutch For Sheet
Dim X As Integer
ConditionString = "First"
For X = 1 To Sheets.Count
If InStr(1, Sheets(X).Name, ConditionString) Then Sheets(X).Visible = 2 Else Sheets(X).Visible = 1
Next X
End Sub



Greetings,

Monkey

 

[Richie(UK)]

Hi b,

How about something like this?

Sub Test()
    Dim ws As Worksheet
    Const strWSToKeep As String = "First"
    
    On Error Resume Next
    Set ws = Worksheets(strWSToKeep)
    On Error GoTo 0
    
    If Not ws Is Nothing Then
    'make sure the sheet to keep actually exists
        ws.Visible = xlSheetVisible
        'make sure it is visible
        For Each ws In ThisWorkbook.Worksheets
            If Not ws.Name = strWSToKeep Then ws.Visible = xlSheetHidden
        Next ws
        'hide all others
    End If
    
End Sub

HTH

 

[backup69]

ty all

but something not working
first code i try insert this way:

Private Sub Workbook_Open()
Dim ConditionString As String ''Dutch For Sheet
Dim X As Integer
ConditionString = "First"
For X = 1 To Sheets.Count
If InStr(1, Sheets(X).Name, ConditionString) Then Sheets(X).Visible = 2 Else Sheets(X).Visible = 1
Next X
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ConditionString As String ''Dutch For Sheet
Dim X As Integer
ConditionString = "First"
For X = 1 To Sheets.Count
If InStr(1, Sheets(X).Name, ConditionString) Then Sheets(X).Visible = 1 Else Sheets(X).Visible = 2
Next X
End Sub

this works only if i close first time my workbook.
if i reload my work, vba gives the following error:
Unable to set the Visible property of the Worksheet class

Richie code works for me ty
on open i only had to add the following code:
Worksheets("First").Visible = 2
but i also had to add