Excel VBA - Wie Sperre ich eine Zelle die per CommanButton ihre Werte bekommt?

Moin,

ich habe leider keine Ahnung von VBA und habe mir jetzt die letzte Woche schon etwas selber angeeignet, aber mir fällt es immer noch schwer entsprechende Codes aus dem Netz für meine Zwecke anzupassen.

Jedenfalls habe ich in meiner Tabelle in der Zelle i30 ein Commandbutton. Wenn dieser geklickt wird, dann wird in der Zelle G30 der vorhande Wert um +1 erhöht.

Private Sub button1_Click()

With Range("G30")
.Value = .Value + 1
End With
End Sub

Soweit so gut... Ich möchte jetzt allerdings die Zelle G30 vor Veränderungen schützen. Die Zelle soll per Hand nicht zu löschen sein, damit die Vorgangsnummer für unsere Aufträge nicht verändert wird und mein CommandButton dann nicht wieder von 0 anfängt zu zählen.

Wie kann ich das mit VBA umsetzen?


Viele Grüße

Amiga500

Private Sub button1_Click()
ActiveSheet.Unprotect
With Range("G30")  
    .Locked = False
    .Value = .Value + 1
    .Locked = True
End With
ActiveSheet.Protect
End Sub