Automatisk låsning af excel

Private Sub Workbook_Open()
Dim Svar As String
    Svar = InputBox("Indtast kode", "Fjern beskyttelse")
    If Svar = "" Then GoTo Beskyt
    If Svar = 1234 Then
        Sheets(1).Unprotect
            Exit Sub
        Else
Beskyt:
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets(1).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Hvor mange point skal jeg give?
Det er selvfølgelig op til dig selv, en god rettesnor er at hvis du næsten selv har løsningen, men lige mangler det sidste så passer det med 15 point. Hvis du synes det er uoverskueligt for dig, men du ellers mener at være på sporet så er det 30 point. Hvis det er noget du overhovedet ingen anelse har om, og du føler at det er meget svært at få løst, ja så er det et spørgsmål til 60 eller 100 point.

Det maksimale antal point der kan gives er 200, men det bruges mest i forbindelse opgaver hvor der ligger et stort arbejde i svaret.