arkbeskytte mange ark

Du har ret i, at det skal gøres ark for ark.

Kunne evt. løses vha. VBA.

Indsæt denne kode i Denne_projektmappe, og du har to makroer til hhv. beskyttelse af samtlige ark, og fjernelse af beskyttelsen.

---------------------------------

Const pWord As String = "secret"

Sub UnprotectAllSheets()
For Each sh In ActiveWorkbook.Sheets
  sh.Unprotect Password:=pWord
Next
End Sub

Sub ProtectAllSheets()
For Each sh In ActiveWorkbook.Sheets
  sh.Protect Password:=pWord
Next
End Sub