natürlich, ahogy a művelt japán mondja:

bekapcsolás:

Sub védelem_be3()
'
' védelem_be3 Makró
'

'
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

kikapcsolás:

Sub vedelem_ki3()
'
' vedelem_ki3 Makró
'

'
    ActiveSheet.Unprotect
End Sub