Arbeitsblattschutz mit Makro ein und ausschalten.

Private Sub CommandButton1_Click()
   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Private Sub CommandButton2_Click()
   ActiveSheet.Unprotect
End Sub

Tabellenblatt_sperren_und_entsperren-VBA.zip