Låse antallet af ark og fjerne Zoom

Prøv med denne kode på alle ark, i deres moduler.

Zoom er problematisk

Private Sub Worksheet_Activate()
    ThisWorkbook.Protect Password:="Password", Structure:=True
End Sub

Private Sub Worksheet_Deactivate()
    ThisWorkbook.Unprotect Password:="Password"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveWindow.Zoom <> 100 Then
    ActiveWindow.Zoom = 100
End If
End Sub