A
Armey
Hi, i was working on a recent problem with trapping on printing events
in a protected template and realized I had a similar need for password
protecting the save, save as, save as web page options in MS Word
2003. I repurposed my printing code for my traps on saving (see
below). I have figured out how to trap for the save icon, the file
save, the file save as, but I cant figure out how to trap for the file
save as web command. Any thoughts?
Public Sub FileSave()
Dim SaveRet As Long
Dim Reply1 As String
Reply1 = InputBox("Save Password", "Saving is restricted, enter
your password", " ")
If Reply1 = pwFileSave Then
SaveRet = Dialogs(wdDialogFileSaveAs).Show
End If
End Sub
Sub FileSaveAs()
FileSave
End Sub
Sub FileSaveAll()
FileSave
End Sub
in a protected template and realized I had a similar need for password
protecting the save, save as, save as web page options in MS Word
2003. I repurposed my printing code for my traps on saving (see
below). I have figured out how to trap for the save icon, the file
save, the file save as, but I cant figure out how to trap for the file
save as web command. Any thoughts?
Public Sub FileSave()
Dim SaveRet As Long
Dim Reply1 As String
Reply1 = InputBox("Save Password", "Saving is restricted, enter
your password", " ")
If Reply1 = pwFileSave Then
SaveRet = Dialogs(wdDialogFileSaveAs).Show
End If
End Sub
Sub FileSaveAs()
FileSave
End Sub
Sub FileSaveAll()
FileSave
End Sub