Beskyt ark

Jeg bruger selv en macro til at beskytte og fjerne beskyttelse på alle ark i en mappe. Jeg har én til at tilføje og én til at fjerne beskyttelsen.

Sub BeskytArk()
Dim x As Worksheet
For Each x In Application.ActiveWorkbook.Worksheets
x.Protect "DitPassword"
Next
End Sub

Sub UBeskytArk()
Dim x As Worksheet
For Each x In Application.ActiveWorkbook.Worksheets
x.Unprotect "DitPassword"
Next
End Sub

Det virker jo fint. Men jeg kan kun give dig point hvis du laver et svar

Det lyder godt, at du kan bruge det. Så her har du et "svar" :-)

Fint og tak for hjælpen