Set myDoc = Documents _ .Open(FileName:="C:\My Documents\Earnings.wps") myDoc.Password = "Kingsoft" myDoc.Close