Auto_Open, der viser et ark ud af fem ikke-beskyttede, men skjulte ark

Du kan bruge følgende som lægges ind i ThisWorkbook objektet:

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Dim r As Range
    \'On Error Resume Next
   
    \'Vis ark 1:
    Worksheets(1).Visible = True
   
    \'Skjul alle andre ark og
    \'Slet indhold i alle ikke beskyttede celler i defineret område:
    For Each ws In ThisWorkbook.Worksheets
        If ws.Index > 1 Then ws.Visible = xlSheetHidden
        For Each r In ws.Range(\"a1:L27\")
            If r.Locked = False Then r.ClearContents
        Next r
    Next ws
End Sub


Sub visNæste()
    If ActiveSheet.Index = Worksheets.Count Then Exit Sub
    ThisWorkbook.Worksheets(ThisWorkbook.ActiveSheet.Index + 1).Visible = xlSheetVisible
    ActiveSheet.Visible = False
End Sub

VisNæste viser det næste ark og skjuler det aktuelle (Hvis det aktuelle ikke er det sidste)

Man har brug for en knap til at køre makroen.
Du kan evt. tilknytte Visnæste til en brugerdefinereret makroknap.

VH Nerøs

Tak til Nerøs for hjælpen, det skal afprøves!
mvh.
Goodwill