Wednesday, June 10, 2009

Saving File with Password

This code to saving file with your name :






Sub filesave()
' Created by Sutrisno
' http://trisnowlaharwetan.net
' http://muhammad-fauzil-adhim.com
' http://freeofcode.blogspot.com
' http://ourvideotutorial.blogspot.com
' Title : menyimpan file otomatis di password

Dim MyPass, FileName As String, Space
MyPass = "sutrisno" 'bisa diganti dengan yang lain
Space = Left(ActiveDocument.Name, 8)
If Space = "Document" Then
Dialogs(wdDialogFileSaveAs).Show
FileName = Left(ActiveDocument.Name, (Len(ActiveDocument.Name) - 4)) & " "
ActiveDocument.SaveAs FileName:=FileName, Password:=MyPass
End If
ActiveDocument.Save
End Sub






Download Tutorial Video Tutorial Dowload Script



Copy and paste it in your document.









Comments :

0 comments to “Saving File with Password”


Post a Comment