Hello, if you talk about cells lock, try below code:
" Sub PasswordBreaker() 'Breaks worksheet password protection. 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 " *LMIDMANI Mustapha* *Industrial engineer* 2015-08-17 11:06 GMT+01:00 <idris.akinwu...@gmail.com>: > Hi sham, > > Please help me with these workbook. I have tried the steps below but i > couldn't break the password. > > Awaiting yours > > *Idris* > > On Saturday, February 20, 2010 at 6:27:18 PM UTC+1, SHAM wrote: >> >> To crack the password of an VBA Macro / coding first download an HEX >> Editor >> >> its available from the site >> http://www.chmaas.handshake.de/delphi/freeware/xvi32/xvi32.htm >> (its a very small file of 0.5 MB capacity) >> >> Close the workbook and open the workbook file in the hex editor. Find >> the string "DPB" and change it to "DPx" (x is in small letter). Save >> the file. Open the workbook and click OK until the workbook is open >> (one or more dialogs are displayed describing various problems with >> the VBA project). Press ALT+F11, choose the menu command Tools- >> >VBAProject Properties, navigate to the Protection tab, and change the >> password but do not remove it (note the new password). Save, close, >> and re-open the workbook. Press ALT+F11 and enter the new password. >> Choose Tools->VBAProject Properties, navigate to the Protection tab, >> and remove the password. Save the workbook. >> Now open the same workbook, You can use the password that you already >> given. >> >> SHAMEER P, KERALA, INDIA >> >> On Feb 20, 8:50 pm, sunil sasidharan <sunil.sasidha...@gmail.com> >> wrote: >> > Hi, >> > >> > I wont be able to send the file as it has some confidential data of our >> > organisations. >> > >> > Please let me know how do i go about cracking the password. >> > >> > Regards, >> > Sunil >> > >> > >> > >> > On Sat, Feb 20, 2010 at 10:04 AM, ankur <ankurpande...@gmail.com> >> wrote: >> > > send ur file >> > > Have A Nice Time & Enjoy Life >> > >> > > Regards: >> > > CMA Ankur Pandey >> > > (Someone Different) >> > >> > > I'm not the best but i'm not like the rest~~ >> > >> > > On Sat, Feb 20, 2010 at 5:16 AM, JsinSk <jsin...@gmail.com> wrote: >> > > > Post the file here and someone will crack it for you. >> > >> > > > On Feb 19, 9:24 am, sunil sasidharan <sunil.sasidha...@gmail.com> >> > > > wrote: >> > > >> *Hi All,* >> > > >> ** >> > > >> *I need to edit an excel macro file but the VBA coing is protected >> and >> > > >> nobody is aware of the password.* >> > > >> ** >> > > >> *Could you please help me on how do i crack the excel password or >> is >> > > there >> > > >> any free software available?* >> > > >> ** >> > > >> *Thanks in advance for your help >> > >> > > >> Regards, >> > > >> Sunny >> > > >> * >> > >> > > > -- >> > >> > > >> ---------------------------------------------------------------------------------- >> > > > Some important links for excel users: >> > > > 1. Follow us on TWITTER for tips tricks and links : >> > >http://twitter.com/exceldailytip >> > > > 2. Join our Facebook Group @ >> > >http://www.facebook.com/group.php?gid=287779555678 >> > > > 3. Excel tutorials athttp://www.excel-macros.blogspot.com >> > > > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com >> > > > 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com >> > >> > > > To post to this group, send email to excel-...@googlegroups.com >> > >> > > > <><><><><><><><><><><><><><><><><><><><><><> >> > > > HELP US GROW !! >> > >> > > > We reach over 6,800 subscribers worldwide and receive many nice >> notes >> > > about the learning and support from the group.Let friends and >> co-workers >> > > know they can subscribe to group at >> > >http://groups.google.com/group/excel-macros/subscribe >> > >> > > -- >> > >> > > >> ---------------------------------------------------------------------------------- >> > > Some important links for excel users: >> > > 1. Follow us on TWITTER for tips tricks and links : >> > >http://twitter.com/exceldailytip >> > > 2. Join our Facebook Group @ >> > >http://www.facebook.com/group.php?gid=287779555678 >> > > 3. Excel tutorials athttp://www.excel-macros.blogspot.com >> > > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com >> > > 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com >> > >> > > To post to this group, send email to excel-...@googlegroups.com >> > >> > > <><><><><><><><><><><><><><><><><><><><><><> >> > > HELP US GROW !! >> > >> > > We reach over 6,800 subscribers worldwide and receive many nice notes >> about >> > > the learning and support from the group.Let friends and co-workers >> know they >> > > can subscribe to group at >> > >http://groups.google.com/group/excel-macros/subscribe >> > >> > -- >> > Regards, >> > Sunny >> >> -- > Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s > =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ > https://www.facebook.com/discussexcel > > FORUM RULES > > 1) Use concise, accurate thread titles. Poor thread titles, like Please > Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice > will not get quick attention or may not be answered. > 2) Don't post a question in the thread of another member. > 3) Don't post questions regarding breaking or bypassing any security > measure. > 4) Acknowledge the responses you receive, good or bad. > 5) Jobs posting is not allowed. > 6) Sharing copyrighted material and their links is not allowed. > > NOTE : Don't ever post confidential data in a workbook. Forum owners and > members are not responsible for any loss. > --- > You received this message because you are subscribed to the Google Groups > "MS EXCEL AND VBA MACROS" group. > To unsubscribe from this group and stop receiving emails from it, send an > email to excel-macros+unsubscr...@googlegroups.com. > To post to this group, send email to excel-macros@googlegroups.com. > Visit this group at http://groups.google.com/group/excel-macros. > For more options, visit https://groups.google.com/d/optout. > -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.