- If you need clarification, ask it in the comment box above.
- Better answers use proper spelling and grammar.
- Provide details, support with references or personal experience.
Tell us some more! Your answer needs to include more details to help people.You can't post answers that contain an email address.Please enter a valid email address.The email address entered is already associated to an account.Login to postPlease use English characters only.
Tip: The max point reward for answering a question is 15.
Are you looking to unlock a protected sheet or actually recover the password? I can help you with the former.
Note this will only work to unlock a worksheet. It will not recover the VBA editor password (however this is possible by very hard to explain.)
1) Open the excel sheet you want to unlock,
2) Open VBA editor, (Alt+F11 while in excel)
3) add a module (insert > module)
4) and paste in this code into the main window (big window on the right)
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)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = 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
5) Then either:
5a) go back to the excel window, click Developer > Macros > select PasswordBreaker
6) Or just hit the play icon (green triangle) in the top of the VBA editor
This will unlock the sheet, and give you a password which will unlock it in the future.
Note: Due to the encryption method used in excel, there are many possible passwords which will unlock the sheet. This will give you "a" password which will work but it will not be the one that you originally set up. Both the original and this one will still work.
It looks like the transmission level sensor is burned out. You know that the transmission wasn't empty but it was only low...one quart, to be exact. Replace the sensor!
dim text as string
text="AbCd123" 'testing purposes
for i=1 to len(text)
select case asc(mid(text,i,1))
case is < 65:'a number
case 65 to 97: 'upper case
case is >97 : 'lower case
end select
next
Hi,
The Under Water Level Of Mario is very interesting you have to put all your interest into the games first... if incase you dont pass through the next level then first see the where you have made the mistakes because this will surely help you pass thorugh the next level..Keep keep eye on to it .Hope in this way your problem will be solved and 'All the best for next Level'..
check for the AGP socket for dry soldering i f u are using built in display card the problem presits with display IC in the mother board contat a chip level service center
×