ich habe eine Tabelle(Tabelle2) in der der Nummernkreis hochgezählt wird.Nachdem die Nummer aktualisiert ist, wir die Tabelle automatisch gespeichert.
Option Explicit
Private Sub Workbook_Open()
Dim frtlNr As Long
Dim Jahr As Integer
Dim sBlatt As String
Dim Cancel As Boolean
Tabelle2.Range("O2") = Tabelle2.Range("O2") + 1
ActiveWorkbook.Save
Nach diesem Vorgang möchte ich dass diese Arbeitsmappe nicht gespeichert werden kann.
Also weder über den "speichern unter" noch über den "speichern" buttton oder sonstige Möglichkeiten.
Wie kann ich das über VBA lösen ?
Kann mir bitte jemand helfen ?
vielen DAnk
Angelika