VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Standard speichern unter als docm	23.04.2018 08:52:06	Lukas
Standard speichern unter als docm	25.04.2018 22:23:24	xlKing
Standard speichern unter als docm	25.04.2018 22:25:27	xlKing
Standard speichern unter als docm	26.04.2018 08:34:43	Lukas
Standard speichern unter als docm	26.04.2018 23:16:43	xlKing
Standard speichern unter als docm	27.04.2018 00:13:34	xlKing

Ansicht des Beitrags:

Von:
xlKing

Datum:
27.04.2018 00:13:34

Views:
742

Rating:

Antwort:

Thema:
Standard speichern unter als docm

Hier noch eine andere Variante:

Falls immer noch ein Kompilierungsfehler kommen sollte, will Microsoft in deiner Version möglicherweise Withevents nicht mehr unter ThisDocument sehen. Korrekter, aber etwas umständlicher wäre dieser Weg:

Füge ein neues Klassenmodul "Klasse1" ein. und gib dort diesen Code an:

Public WithEvents myApp As Application

Private Sub myApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
   If Doc.AttachedTemplate.Name = ThisDocument.Name And SaveAsUI = True Then
      With Dialogs(wdDialogFileSaveAs)
         .Format = wdFormatXMLDocumentMacroEnabled
         .Show
      End With
      Cancel = True
   End If
End Sub

Im Modul "ThisDocument" darf jetzt nur noch das hier stehen:

Dim Evt As New Klasse1
Private Sub Document_New()
  Set Evt.myApp = Application
End Sub

Mr. K.

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Standard speichern unter als docm	23.04.2018 08:52:06	Lukas
Standard speichern unter als docm	25.04.2018 22:23:24	xlKing
Standard speichern unter als docm	25.04.2018 22:25:27	xlKing
Standard speichern unter als docm	26.04.2018 08:34:43	Lukas
Standard speichern unter als docm	26.04.2018 23:16:43	xlKing
Standard speichern unter als docm	27.04.2018 00:13:34	xlKing