Sikkerhed i regneark

I et regneark har jeg en kombobox som henter data fra en database og indsætter i et excelregneark. Sheetet skal være protected men for at kunne sætte værdier ind bliver jeg nødt til at slå sikkerheden fra programmatisk hver gang jeg vælger fra komboboksen.

Private Sub ComboBox1_Change()
 
  ActiveSheet.Unprotect
  Worksheets("TempData").Range("EqulibState").ClearContents
  InsertTagValues Worksheets("TestForm (Zalp)Data").Range("B7"), _
                  Worksheets("TestForm (Zalp)Data").Range("D3"), _
                  Worksheets("TestForm (Zalp)Data").Range("F3")
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

MEN med activesheet.unprotect får jeg ikke lov til at slå låsningen fra.

HVAD GØR JEG?