Private Sub Workbook_Open() - MACRO HELP!

[bluepenink]

Hello

Can someone assist me with the logic in my macro below, having trouble intregrating both the macros, pls and thx you!

Private Sub Workbook_Open()
For c = 1 To Sheets.Count
               With Worksheets(c)
        .Protect Password:="analyst", userinterfaceonly:=True
        .EnableOutlining = True
    End With
Next c
End Sub
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim ws As Worksheet
For c = 1 To Sheets.Count
               With Worksheets(c)
        .Protect Password:="analyst", userinterfaceonly:=True
        .EnableOutlining = True
    End With
Next c
' Worksheets().Visible = True
For Each ws In ThisWorkbook.Worksheets
  If ws.Name <> "Enabling Macros" Then
    ws.Visible = True
  End If
Next ws
Worksheets("Calculations").Visible = False

End Sub

 

[John Davis]

Hello

Can someone assist me with the logic in my macro below, having trouble intregrating both the macros, pls and thx you!

Private Sub Workbook_Open()
For c = 1 To Sheets.Count
               With Worksheets(c)
        .Protect Password:="analyst", userinterfaceonly:=True
        .EnableOutlining = True
    End With
Next c
End Sub
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim ws As Worksheet
For c = 1 To Sheets.Count
               With Worksheets(c)
        .Protect Password:="analyst", userinterfaceonly:=True
        .EnableOutlining = True
    End With
Next c
' Worksheets().Visible = True
For Each ws In ThisWorkbook.Worksheets
  If ws.Name <> "Enabling Macros" Then
    ws.Visible = True
  End If
Next ws
Worksheets("Calculations").Visible = False

End Sub

Maybe, something like this?

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

    ws.Protect Password:="analyst", userinterfaceonly:=True
    ws.EnableOutlining = True

  If ws.Name <> "Enabling Macros" Then ws.Visible = True
  If ws.Name = "Enabling Macros" Or ws.Name = "Calculations" Then ws.Visible = False

Next ws

Application.ScreenUpdating = True

End Sub