Excel -beskytte flere ark samtidig

Jo da... Hvis du tilføjer en makro, eventuelt i et andet ark. Når du skal køre den, taster du ALT+F8 og vælger makroen. Den skal se sådan ud:

Sub UBeskyt_ark()
With ActiveWorkbook
    For Each ws In ActiveWorkbook.Worksheets
        ActiveWorkbook.Sheets(ws.Name).Unprotect Password:="password"
    Next
End With
End Sub

Makroen forudsætter, at password er det samme på alle ark. Husk at rette til dit eget.

Hvis du så skal beskytte arkene igen, kan du bruge makroen nedenfor. Igen skal du huske at ændre password til dit eget.
Sub Beskyt_ark()
With ActiveWorkbook
    For Each ws In ActiveWorkbook.Worksheets
        ActiveWorkbook.Sheets(ws.Name).Protect Password:="password"
    Next
End With
End Sub

Super! Tak!