Unhide hidden sheets + Scroll all sheets

Might want to save your workbook first and say no to changes if it doesn't work the way you want.

Note. Assumes password is blank

Sub Macro1()
Dim Arr As Variant
Dim wsht As Worksheet
Dim i As Long
Arr = Array("Temp1", "work1", "work3", "payplan", "capture", """Extra (delimited)""", """Temporary (Last month)""")

For Each wsht In Worksheets
    For i = 0 To UBound(Arr)
    On Error Resume Next
       With wsht
            .Visible = True
            .Unprotect
            If wsht.Name = Arr(i) Then
            Application.DisplayAlerts = False
               wsht.Delete
            Application.DisplayAlerts = True
        End If
       End With
    
    Next i
Next wsht
End Sub

VBA Noob

Its a bit longer but it should work. If you don't have a Password for these sheets, just delete that part of the code that says "Password:="Password". Also, the code won't cause the macro to stop partially through the code since when you do delete a sheet, Excel will, by default, ask you whether or not you want to permanently delete that particular sheet.

Sub UnhideSheetsDemo()
  Dim i As Integer
  Dim n As Integer
    
    i = ActiveWorkbook.Sheets.Count
  
    Application.ScreenUpdating = False
  
    For n = 1 To i
  
    If Sheets(n).Visible = False Then
        Sheets(n).Visible = True
    End If
    
    If Sheets(n).Protect Then
        Sheets(n).Unprotect Password:="Password" 'replace with your actual password
        With Sheets(n).PageSetup
            .Orientation = xlPortrait 'change to landscape if that works better
            .PaperSize = xlPaperLetter
            .FitToPagesWide = 1
            .FitToPagesTall = 1
            .PrintErrors = xlPrintErrorsDisplayed
        End With
        Sheets(n).Protect Password:="Password"
   Else
        With Sheets(n).PageSetup
            .Orientation = xlPortrait 'change to landscape if that works better
            .PaperSize = xlPaperLetter
            .FitToPagesWide = 1
            .FitToPagesTall = 1
            .PrintErrors = xlPrintErrorsDisplayed
        End With

    End If
    
    Next n
    
    Application.DisplayAlerts = False
    
    On Error Resume Next 'in case any of these files aren't protected and/or actually in the workbook to delete
    If Sheets("Temp1").Protect Then
        Sheets("Temp1").Unprotect Password:="Password"
        Sheets("Temp1").Delete
    Else
        Sheets("Temp1").Delete
    End If
    
    If Sheets("work1").Protect Then
        Sheets("work1").Unprotect Password:="Password"
        Sheets("work1").Delete
    Else
        Sheets("work1").Delete
    End If
    
    If Sheets("work3").Protect Then
        Sheets("work3").Unprotect Password:="Password"
        Sheets("work3").Delete
    Else
        Sheets("work3").Delete
    End If
    
    If Sheets("payplan").Protect Then
        Sheets("payplan").Unprotect Password:="Password"
        Sheets("payplan").Delete
    Else
        Sheets("payplan").Delete
    End If
        
    If Sheets("capture").Protect Then
        Sheets("capture").Unprotect Password:="Password"
        Sheets("capture").Delete
    Else
        Sheets("capture").Delete
    End If
    
    If Sheets("Extra (delimited)").Protect Then
        Sheets("Extra (delimited)").Unprotect Password:="Password"
        Sheets("Extra (delimited)").Delete
    Else
        Sheets("Extra (delimited)").Delete
    End If
    
    If Sheets("Temporary (Last month)").Protect Then
        Sheets("Temporary (Last month)").Unprotect Password:="Password"
        Sheets("Temporary (Last month)").Delete
    Else
        Sheets("Temporary (Last month)").Delete
    End If
    
    On Error GoTo 0
    
    Application.DisplayAlerts = True
    
    Application.ScreenUpdating = True
   
End Sub

Hope this helps.