Ark beskyttelse

Hej eksperter

Flemming dahl har på et tidspunkt lavet denne markro til mig .... siden hen har jeg deaktivert den... men nu kan jeg ikke huske haved det var jeg fjernet så den ikke virkede mere

hvad er der galt ??

'NEDENSTÅENDE BRUGES MANUELT MED F5 TIL AT SÆTTE OG FJERNE ARKBESKYTTELSEN FOR ALLE ARK
'BRUGES TYPISK VED ÆNDRINGER AF STØRRE KARAKTER

Private Sub ArkBeskyttelse()
Dim WS As Worksheet
    For Each WS In ActiveWorkbook.Worksheets
        WS.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Next WS
    ActiveWorkbook.Protect Password:="xxx", Structure:=True, Windows:=False
End Sub

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

Cheiwe