Speichern sperren funktioniert nicht

Private Sub Workbook_Open()
2.) dann wird mein Nummernkreis um eins erhöht und die Arbeitsmappe gespeichert.
Tabelle2.Range("Q3") = Tabelle2.Range("Q3") + 1
Tabelle1.Range("J8") = Tabelle2.Range("R3")
ActiveWorkbook.Save
Nun möchte ich das die Arbeitsmappe nicht mehr gespeichert werden kann.(Später soll die  _
Arbeitsmappe dann über einen Button gespeichert werden . Das ist aber im Moment zweitrangig )
Ich habe folgenden Code gefunden (von NoNet/Microsoft Office Forum )und eingefügt aber ich kann  _
_
_
_
trotzdem noch speichern.

'Symbol "Speichern" sperren :
Set btnSave = Application.CommandBars.FindControl(ID:=3)
btnSave.Enabled = False
'Menü "Datei - Speichern" sperren :
Set btnSave = Application.CommandBars.ActiveMenuBar.FindControl(ID:=3, recursive:=True)
btnSave.Enabled = False
'Menü "Datei - Speichern unter..." sperren :
Set btnSave = Application.CommandBars.ActiveMenuBar.FindControl(ID:=748, recursive:=True)
btnSave.Enabled = False
Application.OnKey "^s", ""      'Sperrt Strg+S
Application.OnKey "{F12}", ""   'Sperrt F12-Taste
End Sub