[magusbuckley]

Hello:

I believe I remember that you can move Office Documents from an NTFS drive to a FAT32 drive to remove the securities from those files. A guy at work has passworded individual files and his replacement needs to be able to see some of his spreadsheets.

Please confirm that this is possible. I want to make sure before we take the time to move the files. If it is possible, we're planning on throwing an old 40 GB HD into her machine and format it in FAT32. Then, we'll move all of the old files to the FAT32 drive in attempts of stripping the securities from them.

What do you all think?

Any and all information will be greatly appreciated.

Thanks,

Magus

[Advertisements]

Converting the filesystem will make no difference to the security on the Excel files because the passwords are in the Excel files themselves, therefore changing the file system is pointless.

If possible, contact your ex-employee for the passwords used. Then you can remove them through Excel.

[Neil Jones]

Converting the filesystem will make no difference to the security on the Excel files because the passwords are in the Excel files themselves, therefore changing the file system is pointless.

If possible, contact your ex-employee for the passwords used. Then you can remove them through Excel.

[magusbuckley]

Neil:

Thanks for the reply. I could have sworn I heard that rolling back from an NTFS drive would remove those securities.

If we ever find time around here to test it out, I'll be sure to post the results (though I'm sure you are probably right).

Thanks,

Magus

[jasonharrod]

Anyone ever use this macro for breaking passwords? If you can at least get into the file than this will help you out.


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