Gem fane med makro

Jeg har en fane i et excel-ark, som jeg ønsker at gemme med kode. Jeg vil samtidig gerne lave en makro, der kan gøre dette for mig.

Jeg er ikke mester i VBA, så jeg har blot optaget makroen. Den fungerer fint og låser fanen, men koden kommer ikke med. Dvs. at man bare kan klikke "Fjern arkbeskyttelse", og så kan man redigere, uden at indtaste koden først. Jeg har indsat makroen nedenfor. Har I nogle idéer til, hvordan jeg kan sørge for at koden er inkluderet i Makroen?

Sub GemMedKode()
'
' GemMedKode Makro
'

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