Beskytte alle ark og låse op på en gang men adgang til format

Hej ekspert

Jeg vil gerne beskytte alle ark på en gang, men brugeren skal have adgang til at kunne formatere celler. Hvad gør jeg. Jeg har set, at man kan anvende nedenstående makro til at beskytte alle ark på en gang, men her har de ikke adgang til at kunne formatere låste celler, dvs. der skal være hak i "allow all users to format cells".


Sub protecting()
Dim s As Worksheet
For Each s In ActiveWorkbook.Sheets
  s.Protect "password"
Next
End Sub

Er der nogle der kan hjælpe?

'Denne makro vil fjerne beskyttelsen igen fra alle ark
Sub unprotecting()
Dim s As Worksheet
For Each s In ActiveWorkbook.Sheets
  s.Unprotect "password"
Next
End Sub