กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
374 5
URL.หัวข้อ /
URL
เรียนถามอาจารย์สุภาพครับเรื่อง Password
ผมเห็น "Word" สามารถใส่ Password ได้ดังต่อไปนี้ ถ้าจะเป็น Excel ต้องแก้อย่างไรบ้างครับ
Sub X2Rtf()
Dim strFileName As String
Dim objWord As Object, strNum As Integer, strName As String, dblSal As String
strFileName = "c:/test.rtf"
DoCmd.OutputTo acOutputReport, "rptOral", acFormatRTF, strFileName
Set objWord = CreateObject("Word.Application")
With objWord
.Visible = False
.Documents.Open FileName:=strFileName
.ActiveDocument.SaveAs FileName:="c:/test.doc", FileFormat:=0, _
LockComments:=False, Password:="supap", AddToRecentFiles:=True, WritePassword _
:="kaeg", ReadOnlyRecommended:=True, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
End With
MsgBox "Finished"
objWord.ActiveDocument.Close
' Quit Word
objWord.Quit
Set objWord = Nothing
End Sub
Sub X2Rtf()
Dim strFileName As String
Dim objWord As Object, strNum As Integer, strName As String, dblSal As String
strFileName = "c:/test.rtf"
DoCmd.OutputTo acOutputReport, "rptOral", acFormatRTF, strFileName
Set objWord = CreateObject("Word.Application")
With objWord
.Visible = False
.Documents.Open FileName:=strFileName
.ActiveDocument.SaveAs FileName:="c:/test.doc", FileFormat:=0, _
LockComments:=False, Password:="supap", AddToRecentFiles:=True, WritePassword _
:="kaeg", ReadOnlyRecommended:=True, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
End With
MsgBox "Finished"
objWord.ActiveDocument.Close
' Quit Word
objWord.Quit
Set objWord = Nothing
End Sub
5 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R04743
ขอโทษอาจารย์สุภาพครับคือผมลองนำไปใช้ดูปรากฎว่า Error ตลอดเลยครับ
ไม่ทราบว่าอาจารย์พอมีตัวอย่างให้ผมดูบ้างหรือไม่ครับ ขอบคุณครับ
ไม่ทราบว่าอาจารย์พอมีตัวอย่างให้ผมดูบ้างหรือไม่ครับ ขอบคุณครับ
3 @R04744
ต้องเปลี่ยนชื่อไป F:\Documents and Settings\Administrator\My Documents\Book2.xls ให้เป็นไฟล์ของเราด้วย
4 @R04745
ผมได้ลองเปลี่ยนแล้วครับ Error = SaveAs Mothod of workbook class failed ไม่ทราบว่าคืออะไรครับ Code =
Dim strFileName As String
Dim objWord As Object, sheet As Object, xlApp As Object, strNum As Integer, strName As String, dblSal As String
strFileName = "c:\Book1.xls"
'DoCmd.OutputTo acOutputReport, "rptOral", acFormatRTF, strFileName
'Set objWord = CreateObject("Excel.Application")
Set xlApp = CreateObject("Excel.Application")
Set sheet = xlApp.workbooks.Open(strFileName).sheets(1)
With xlApp
'.Visible = False
'ChDir "C:\"
.ActiveWorkbook.SaveAs Filename:="C:\Book2.xls", FileFormat:=xlNormal, _
Password:="x", WriteResPassword:="x", ReadOnlyRecommended:=False, _
CreateBackup:=False
End With
MsgBox "Finished"
' xlApp.ActiveDocument.Close
' Quit Word
xlApp.Quit
Set xlApp = Nothing
Dim strFileName As String
Dim objWord As Object, sheet As Object, xlApp As Object, strNum As Integer, strName As String, dblSal As String
strFileName = "c:\Book1.xls"
'DoCmd.OutputTo acOutputReport, "rptOral", acFormatRTF, strFileName
'Set objWord = CreateObject("Excel.Application")
Set xlApp = CreateObject("Excel.Application")
Set sheet = xlApp.workbooks.Open(strFileName).sheets(1)
With xlApp
'.Visible = False
'ChDir "C:\"
.ActiveWorkbook.SaveAs Filename:="C:\Book2.xls", FileFormat:=xlNormal, _
Password:="x", WriteResPassword:="x", ReadOnlyRecommended:=False, _
CreateBackup:=False
End With
MsgBox "Finished"
' xlApp.ActiveDocument.Close
' Quit Word
xlApp.Quit
Set xlApp = Nothing
5 @R04746
ขอเพิ่มเติมครับ
ที่เห็น :="C:\Book2.xls", เพราะผมเพิ่งลองเปลี่ยนแล้วลืมเปลี่ยนกลับครับ
แม้จะใช้ Book1 ก็ Error ตามข้อความที่แจ้งครับ
.ActiveWorkbook.SaveAs Filename:="C:\Book2.xls", FileFormat:=xlNormal, _
ที่เห็น :="C:\Book2.xls", เพราะผมเพิ่งลองเปลี่ยนแล้วลืมเปลี่ยนกลับครับ
แม้จะใช้ Book1 ก็ Error ตามข้อความที่แจ้งครับ
.ActiveWorkbook.SaveAs Filename:="C:\Book2.xls", FileFormat:=xlNormal, _
Time: 0.1045s
แล้วมาดูโค้ด จะเห็นว่า คล้ายๆ ตัวนี้
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 27/8/2003 by Basic Eng
'
ActiveWorkbook.SaveAs Filename:= _
"F:\Documents and Settings\Administrator\My Documents\Book2.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub
ลองเพิ่ม Password ลงไป
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 27/8/2003 by Basic Eng
'
'
ActiveWorkbook.SaveAs Filename:= _
"F:\Documents and Settings\Administrator\My Documents\Book2.xls", FileFormat _
:=xlNormal, Password:="supap", WriteResPassword:="supap", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub