Snasui Excel Forum

ได้แล้วครับ ขอบคุณมากครับ

ผมสร้าง User form เพื่อบันทึกข้อมูล โดย TextBox1 เก็บข้อมูลวันที่ ผมต้องการบันทึกเป็นรูปแบบ วัน/เดือน/ปี พอบันทึกเป็นแล้ว จะเป็นรูปแบบ เดือน/วัน/ปี ตัวอย่างการพิมพ์ 4/1/2016 แต่ผลเป็น 1/4/2016 ผมต้องแก้ตรงไหนครับรบกวนด้วยครับ

Private Sub CommandButton1_Click()
Dim r As Long
With Sheets("fdata ...

ขอบคุณมากครับ

รบกวนอีกเรื่องครับ มีโค๊ดดึงข้อมูลข้าม Workbook แต่ Workbook ติด Password

Sub sbADO()
Dim sSQLQry As String
Dim ReturnArray

Dim Conn As New ADODB.Connection
Dim mrs As New ADODB.Recordset

Dim DBPath As String, sconnect As String

DBPath = "D:\Ex\Ex1.xlsx"

sconnect = "Provider=MSDASQL.1;DSN ...

:D ปรับ Code จาก Workbooks.Open FileName:=FileDir เป็น Workbooks.Open FileName:=FileDir, Password:="1234" ครับ

ตัวอย่าง
Sub UnProtected()
Workbooks.Open FileName:="D:\Ex\Ex1.xlsx", Password:="1234"
End Sub

ผมลองพอดีใส่ WriteResPassword เข้าได้เลยครับ ขอบคุณมากครับ

Sub UnProtected ...

ขอบคุณครับ แต่ยังขึ้นให้ใส่ Password อยู่ครับ

ผมมีไฟล์ 2 ไฟล์ ไฟล์แรก ทำปุ่มมาโครไว้คลิกเพื่อปลดล็อครหัส อีกไฟล์หนึ่ง แต่ผมอยากให้มันไม่ต้องการให้ขึ้นพิมพ์ Password ผมจะแก้โค๊ด ยังไงครับ ไม่รู้เรื่องเลย ลองแกะโค๊ดมา ตั้ง Password ไว้ "1234" รบกวนหน่อยครับ


Sub UnProtected()
Dim FileName, FileDir, FileSearch As String

FileDir = "D:\Ex\Ex1 ...