AW: speichern abfangen
23.05.2012 19:54:02
Reinhard
Hallo Frederik,
"was" funktioniert nicht? Der Code von Günther oder daß er so funktioniert wie es dir vorschwebt?
Im zweiten Fall geht das so nicht. In dem Add-In brauchst du ein Klassenmodul mit diesem Code:
Option Explicit
Public WithEvents App As Excel.Application
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As _
Boolean)
Cancel=True
Msgbox wb.name &vblf &"wurde NICHT gespeichert"
End Sub
In einem Standardmodul, Modul1 o.ä. brauchst du
Option Explicit
Public WithEvents App As Excel.Application
Im Modul DieseArbeitsmappe dann dies
Option Explicit
Private Sub Workbook_Open()
Set App = Application
End Sub
Das ist ein Grundgerüst was theoretisch funktioniert. Praktisch leider nicht, bin da nicht so fit mit
Klassenmodulen, hab da was falsch referenziert oder so.
Deshalb stelle ich die Frage auf noch offen damit jmd. netterweise meine Fehler korrigiert.
Vielleicht sogar du selbst wenn du dir z.B. dieses reinziehst:
http://www.online-excel.de/excel/singsel_vba.php?f=51
Gruß
Reinhard