How to unlock excel workbook

[JawaharPrem]

Hi All,

Is there is way to unlock excel workbook in vba. is there please help on same.


Thanks
Jawahar Prem

 

[vletm]

JawaharPrem
Normally, I would UnLock only worksheets.
What would You mean with Your used term UnLock Workbook?

 

[Belleke]

You can try this or post YOUR workbook, then I unlock it for you.

 

[JawaharPrem]

Hi,
sorry for delay, i need to unlock workbook not sheets.

thankyou.
Jawahar R

 

[vletm]

JawaharPrem
Which version of Excel do You use?
So far, I know only option to lock/unlock worksheet ... hmm?
Are You sure that You don't mean unprotect workbook?
... try to upload a file.

 

[Nikunj Rastogi]

you can unlock your workbook with this code:-

Sub unlock_workbook()
Workbooks.Open "Enter your file path here", Password:="enter your file password here", writerespassword:="enter your read/write password here"
End Sub

 

[JawaharPrem]

Hi,

file uploaded.

Thanks

 

[vletm]

JawaharPrem - TERMS!
You should know Workbook's password, it is PROTECTED...
Maybe later, after open it ... You could unlock worksheet.
If You don't know ... maybe there is a good reason.
You could search from Chandoo.org some cases which tells - what to do.

 

[JawaharPrem]

Hi Vletm,

thanks for your time. and advice.


Regards
Jawahar R

 

[Faseeh]

Simply open it in open office and un-protect.

 

[SirJB7]

Simply open it in open office and un-protect.

Hi, Faseeh!
I'd like to see that...
Tried with Open Office 4.1.2 and nothing happened.
Regards!

 

[Faseeh]

@SirJB7

This is my mistake - we can unprotect worksheets and not workbooks with open office. Sorry for the confusion.

 

[SirJB7]

Hi, Faseeh!
No problem, buddy.
Regards!
PS: Once again drinking alcohol early in the morning?

 

[AllisonE]

The way to unprotect excel workbook in VBA can be found in Google, like this:
step 1. Open Excel and find DEVELOPER in the navigation bar.
Step 2. Look for "view code" under this section.
Step 3. You will then be taken to the coding interface and now double-click on the password-protected form in the left column. Copy and paste the following code into the blank box on the right.

>>> use code - tags <<<

Sub PasswordBreaker()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

Step 4. Press F5 to start running the code.
Step 5. A small prompt will pop up to show the password, which you can use to unprotect the worksheet in excel.