I'm assuming its WorkSheet, not WorkBook protection, This macro will
unprotect the WorkSheet,

Sub PasswordBreaker()

'by Bob McCormick on NG: microsoft.public.excel.misc

'on 22 May 2001.

'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



Go Alt and F11 to open the VB editor

On the Toolbar go 'Insert' 'Module'

In the new window, copy and paste the code above

Go Alt and F11 again to close the VB editor

In the normal XL window go 'Tools' 'Macros' 'Macros' Select
'PasswordBreaker' and click 'Run'

Save the file once its unprotected.



Do this on a copy to avoid any possible corruption of the original.



Regards,

Alan.

"Duncan" wrote in message
...
I have saved a copy of an Excel formatted timesheet to use twice a month.
Unfortunately the staff who created the document in Excel did not leave
the
password he assigned the excel document. I need access to resize the
columns
so it will not show ### symbols because the column is too short. I have
copied the original version so it will stay intact. I need to be able to
edit the column sizes. Thank you for your assistance.

WK Ph.: (907) 465-5915, toll free: 1-888-448-3525 ext. 5915
Thank you. Alan Duncan Munro