Snasui Excel Forum

Code: Select all

Sub UnProtected()
    Dim FileName, FileDir, FileSearch As String
 
    FileDir = "D:\Ex\Ex1.xlsx" '
    FileName = Dir(FileDir)
        Workbooks.Open FileName:=FileDir
        Workbooks(FileName).Unprotect "1234"
End Sub

Code: Select all

Workbooks(FileName).Unprotect Password:="1234"

Code: Select all

Sub UnProtected()
    Workbooks.Open FileName:="D:\Ex\Ex1.xlsx", Password:="1234"
End Sub

Code: Select all

Sub UnProtected()
	Workbooks.Open FileName:="D:\Ex\Ex1.xlsx", Password:="1234", WriteResPassword:="1234"
End Sub

Code: Select all

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=Excel Files;DBQ=" & DBPath & ";HDR=Yes';"
        
Conn.Open sconnect
    sSQLSting = "SELECT * From [DataSheet$]"
    mrs.Open sSQLSting, Conn
        Worksheets("Sheet1").Range("A2").CopyFromRecordset mrs
    mrs.Close
Conn.Close

End Sub

Code: Select all

Sub UnProtected()
   Workbooks.Open FileName:="D:\Ex\Ex1.xlsx", Password:="1234", WriteResPassword:="1234"
End Sub