Hjælp til at låse ark i Excel/VB

Prøv med disse 2 makroer:

Sub LaasAlle()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
If WS.Name <> "Master" Then
WS.Select
WS.Unprotect Password:="Laast"
Range("B8:V30").Locked = False
    Selection.FormulaHidden = False
    WS.Protect Password:="Laast"
    Range("A1").Select
End If
Next
Worksheets("Master").Select
Worksheets("Master").Unprotect Password:="Laast"
Range("A9:A100").Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    Worksheets("Master").Protect Password:="Laast"
Range("A1").Select
End Sub

Sub AabnAlle()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
WS.Unprotect Password:="Laast"
Next
End Sub

Hej Jens,

Den løsning spiller bare maks.

Mange tak herfra og smid et svar :-)

Ok, du får et svar