word 97, Dialogs(wdDialogFileSaveAs).Show

[jvsoest]

Hallo,

met volgende code blijken wachtwoorden die je opgeeft niet worden bewaard.

Dialogs(wdDialogFileSaveAs).Show

De naam van het document verandert wel, met de methode display en execute wijzigt de naam niet meer maar worden wel de wachtwoorden opgeslagen.


Iemand een idee of oplossing?
Bedankt alvast

 

[jvsoest]

Dialogs(wdDialogFileSaveAs)

Dit werk ook niet goed, het wachtwoord wordt gewoon niet onthouden:

With Dialogs(wdDialogFileSaveAs)

.Display
MsgBox .WritePassword
End With


rarararara...??

In volgende voorbeeld worden wachtwoorden wel onthouden maar kun je bestand niet hernoemen

With Dialogs(wdDialogFileSaveAs)

.Display
.Update
MsgBox .Name

MsgBox .WritePassword
MsgBox .Password
.Execute
End With