Hide sheets

[deanl33069]

I have a workbook with 4 sheets and a form.
when i launch my workbook I have the form in front with 3 buttons to open the different sheets.
Ont the sheets I have a button to bring you back to the form..looks like this.

Sub openform()
JFSmainsheet.Show False


End Sub
I would like to have the worksheets be minimized or hidden when this macro is run.
hope this make ssense.

tyvm

Dean

 

[DanteAmor]

Try this

In the events of thisworkbook, enter the following code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Sheet1").Visible = 0
    Sheets("Sheet2").Visible = 0
    Sheets("Sheet3").Visible = 0
    ActiveWorkbook.Save
End Sub


Private Sub Workbook_Open()
    JFSmainsheet.Show
End Sub

In your userform

Private Sub CommandButton1_Click()
    Call HideSheets
    Sheets("Sheet1").Visible = -1
    Sheets("Sheet1").Select
End Sub


Private Sub CommandButton2_Click()
    Call HideSheets
    Sheets("Sheet2").Visible = -1
    Sheets("Sheet2").Select
End Sub


Private Sub CommandButton3_Click()
    Call HideSheets
    Sheets("Sheet3").Visible = -1
    Sheets("Sheet3").Select
End Sub


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Sheets("Main").Visible = -1
    Call HideSheets
End Sub


Sub HideSheets()
    Sheets("Sheet1").Visible = 0
    Sheets("Sheet2").Visible = 0
    Sheets("Sheet3").Visible = 0
End Sub