title image


Smiley das Drucken/Speichern usw lässt sich so unterbinden (Word)
Habe testweise deine Rotuine Pflichfelder in ein normales JA-Nein umgewandelt



aber im Prinzip hast du es ja auch nicht anders.

Man muss die internen Word-Befehle überschreiben.



Allerdings das FileClose verhindert NICHT das schlieesen per X , sondern nur das Datei->Schliessen im Menü







Sub FilePrint()

If YesNo = True Then Dialogs(wdDialogFilePrint).Show

End Sub

Sub FilePrintDefault()

If YesNo = True Then ActiveDocument.PrintOut Background:=False

End Sub





Sub FileSave()

If YesNo = True Then ActiveDocument.Save

End Sub



Sub FileSaveAs()

If YesNo = True Then Dialogs(wdDialogFileSaveAs).Show

End Sub





Sub FileClose()

If YesNo = True Then ActiveDocument.Close

End Sub













Function YesNo() As Boolean

If MsgBox("Wirklich", vbYesNo) = vbYes Then YesNo = True

End Function


Fuchsi

Alkohol ist keine Antwort, aber man vergisst beim Trinken die Frage !

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: