Dear guys!

1) i am facing problem of printing multiple selction in the one excell
sheet or it may be consist of more than one sheet selection for print.
Is it possible to set multiple print areas?

2) How can i print the sum of any field at the bottom of the page in
excell like Access can print in Page Footer Option.

3) How can i retrive my VBA forgotten Pasword?

Your answers will be highly appreciated

1) You can set multiple print areas, but they will print on multiple
sheets - one sheet per area.

You can make one big area and hid rows and columns you don't want to print
or you can set up another sheet in the format you want and link back to the
source sheets.

2) there is no automatic support for this. You would have to layout your
sheets and setup the formula. Again, another formatted sheet might be the
answer. The total or subtotal formulas would need to be on the last row of
each sheet.

3) http://www.lostpassword.com if it is a file level password or VBA
password. If a sheet or workbook password from tools=Protection


or posted by Norman Harker:

http://www.google.com/groups?selm=Ou...GP12.phx.gb l

The following sites advertise ability to recover, amongst other things,
Excel file passwords. These passwords are imposed when saving Excel files
and are not to be confused with *internal* passwords on sheets and workbook
structure.


http://www.intertek.org.uk/
Excel Workbook recovery. Demo version up to 2 characters free. Full version
for $5 advertises ability to recover any password.


Elcomsoft Advanced Office XP Password Recovery
http://www.elcomsoft.com/aoxppr.html
Unregistered (trial) version can be used during 30 days after installation
(although it doesn't expire, actually) and has some limitations. They have
programs for earlier versions. Cost of license $30. Reported to take a long
time but worked in finding a 12 character lower case password. Like most
brute force approaches the fastest CPU speed computer available should be
used.


Lostpassword.Com
http://www.lostpassword.com/excel.htm
All versions of MS Excel are supported (including Excel 2002) $45. Download
demo version covers 2 character passwords and works but not much use. The
licensed version covers passwords up to 9 characters. They do have a 4-7 day
guaranteed decryption service for a fee!

Reported to work quickly with Excel 2000.


AccentSoft Excel password recovery
http://www.denglad.com/en/excel.shtml
Free trial version for up to 4 characters. Covers Excel 97 - XP. License $25


Soft4You
http://www.soft4you.com/excel/default.asp
Downloadable free trial up to 3 characters. Covers Excel 4.0 to XP. Workbook
Version License $35 Workbook + VBA License $49. They also have a guaranteed
password recovery service done on a per document basis.


Discount Password Recovery
http://www.discountpasswordrecovery.com/
Operates on a per document basis. 8+ characters can take 7-15 days and costs
$167.95


Password Find
http://www.password-find.com/
Advertise ability to open Excel files
$25-00 per file guaranteed return within 3 days.

Provides links for buying:
1. Ultimate ZIP Cracker V 7.0
$50-00 for the software. No reports back.
2.Guaranteed Excel 97/2000 Decryptor (GuaExcel, 1-client, Windows)
$30-00 for the software. No Reports back.
3. Advanced VBA Password Recovery (pro)
$70 for the software but see above for direct link that's cheaper.

John Walkenbach reports the following additional ones on his site:

These vendors sell password recovery software.
AccessData
http://www.accessdata.com/

Crak Software
http://www.crak.com/

Erlandsen Data Consulting
http://www.erlandsendata.no/english/downloads/tools.htm

Excel Password Remover (free)
Moved to:
http://www.straxx.com/excel/password.html

Password Crackers Inc.
http://www.pwcrack.com/index.shtml

PWD Service
http://www.pwdservice.com/

If (and when) you have success or failure with any the above, please post
back to the newsgroup as it helps others to see that these things work or
not.


----------------
or a VBA solution by Harker and McGimpsey

http://groups.google.com/groups?thre...MSFTNGP11.p h
x.gbl

Public Sub AllInternalPasswords()
'Breaks worksheet and workbook structure passwords.
'Bob McCormick probably originator of base code algorithm
'Modified for coverage of workbook structure / windows
'passwords and for multiple passwords
'Norman Harker and JE McGimpsey 27-Dec-2002
'Reveals passwords NOT "the" passwords
Const DBLSPACE As String = vbNewLine & vbNewLine
Dim Mess As String, Header As String
Dim Authors As String, Version As String
Dim RepBack As String, AllClear As String
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Application.ScreenUpdating = False
Header = "AllInternalPasswords User Message"
Authors = DBLSPACE & vbNewLine & "Adapted from Bob " & _
"McCormick base code by Norman Harker " & _
"and JE McGimpsey"
Version = DBLSPACE & "Version 1.1 27-Dec-2002"
RepBack = DBLSPACE & "Please report success or " & _
"failure back to newsgroup."
AllClear = DBLSPACE & "The workbook should now " & _
"be free of all password protection so " & _
"make sure you:" & DBLSPACE & _
"SAVE IT NOW!" & DBLSPACE & _
"and also" & DBLSPACE & _
"BACKUP!, BACKUP!!, BACKUP!!!" & DBLSPACE & _
"Also, remember that the password " & _
"was put there for a reason. Don't " & _
"stuff up crucial formulas or data." & _
DBLSPACE & "Access and use of some data may" & _
"be an offence. If in doubt, don't."
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
Mess = "There were no passwords on sheets, or workbook " & _
"structure or windows." & Authors & Version
MsgBox Mess, vbInformation, Header
Exit Sub
End If
Mess = "After pressing OK button this will take some time." & _
DBLSPACE & "Amount of time depends on how " & _
"many different passwords, the passwords, and" & _
"your computer's specification." & DBLSPACE & _
"Just be patient! Make me a coffee!" & _
Authors & Version
MsgBox Mess, vbInformation, Header
If Not WinTag Then
Mess = "There was no protection to workbook structure " & _
"or windows." & DBLSPACE & _
"Proceeding to unprotect sheets." & _
Authors & Version
MsgBox Mess, vbInformation, Header
Else
On Error Resume Next
Do 'dummy do loop
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
With ActiveWorkbook
.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 .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Mess = "You had a Worksheet Structure or " & _
"Windows Password set." & DBLSPACE & _
"The password found was: " & DBLSPACE & _
PWord1 & DBLSPACE & "Note it down for " & _
"potential future use in other " & _
"workbooks by same person who set this " & _
"password." & DBLSPACE & _
"Now to check and clear other passwords." & _
Authors & Version
MsgBox Mess, vbInformation, Header
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
Mess = "Only structure / windows protected with " & _
"the password that was just found." & _
AllClear & Authors & Version & RepBack
MsgBox Mess, vbInformation, Header
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag Then
Mess = AllClear & Authors & Version & RepBack
MsgBox Mess, vbInformation, Header
Exit Sub
End If
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
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
.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 Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Mess = "You had a Worksheet password set." & _
DBLSPACE & "The password found was: " & _
DBLSPACE & PWord1 & DBLSPACE & _
"Note it down for potential future use " & _
"in other workbooks by same person who " & _
"set this password." & DBLSPACE & _
"Now to check and clear other passwords." & _
Authors & Version
MsgBox Mess, vbInformation, Header
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
Mess = AllClear & Authors & Version & RepBack
MsgBox Mess, vbInformation, Header
End Sub


--
Regards,
Tom Ogilvy






Kamran Khatri wrote in message
m...
Dear guys!

1) i am facing problem of printing multiple selction in the one excell
sheet or it may be consist of more than one sheet selection for print.
Is it possible to set multiple print areas?

2) How can i print the sum of any field at the bottom of the page in
excell like Access can print in Page Footer Option.

3) How can i retrive my VBA forgotten Pasword?

Your answers will be highly appreciated

1) i am facing problem of printing multiple selction in the one excell
sheet or it may be consist of more than one sheet selection for print.
Is it possible to set multiple print areas?


Try this from Dave Peterson

You could do this
Insert a new worksheet (you're gonna use this for printing).
Do this for each area in your range.
select the range
Edit|copy
go to the new worksheet and Shift-click-Edit|Paste Picture Link.

go back and do the rest of the areas (copy|shift-click-Edit|paste picture Link).

What's neat about the picture is that if you change the original, the picture
will change, too (values and formatting!).

You could keep that new worksheet forever--just for printing--but if the ranges
change, you'll have a little work to do.


Or this

One way to print your selection with more areas on
one Page.

It will add a sheet and copy the selection areas on it
And delete that sheet after printing

Sub test()
Dim destrange As Range
Dim smallrng As Range
Dim newsh As Worksheet
Dim Ash As Worksheet
Set Ash = ActiveSheet
Set newsh = Worksheets.Add
Ash.Select
Set destrange = newsh.Cells(LastRow(newsh) + 1, 1)
For Each smallrng In Selection.Areas
smallrng.Copy
destrange.PasteSpecial xlPasteValues
Set destrange = newsh.Cells(LastRow(newsh) + 1, 1)
Next smallrng
newsh.PrintOut
Application.DisplayAlerts = False
newsh.Delete
Application.DisplayAlerts = True
End Sub

Public Function LastRow(sh As Worksheet)
On Error Resume Next
LastRow = sh.Cells.Find(What:="*", _
After:=sh.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
End Function




--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Kamran Khatri" wrote in message m...
Dear guys!

1) i am facing problem of printing multiple selction in the one excell
sheet or it may be consist of more than one sheet selection for print.
Is it possible to set multiple print areas?

2) How can i print the sum of any field at the bottom of the page in
excell like Access can print in Page Footer Option.

3) How can i retrive my VBA forgotten Pasword?

Your answers will be highly appreciated

Ron

what's "paste picture Link" ?

Regards

Trevor


"Ron de Bruin" wrote in message
...
1) i am facing problem of printing multiple selction in the one excell
sheet or it may be consist of more than one sheet selection for print.
Is it possible to set multiple print areas?


Try this from Dave Peterson

You could do this
Insert a new worksheet (you're gonna use this for printing).
Do this for each area in your range.
select the range
Edit|copy
go to the new worksheet and Shift-click-Edit|Paste Picture Link.

go back and do the rest of the areas (copy|shift-click-Edit|paste picture
Link).

What's neat about the picture is that if you change the original, the
picture
will change, too (values and formatting!).

You could keep that new worksheet forever--just for printing--but if the
ranges
change, you'll have a little work to do.


Or this

One way to print your selection with more areas on
one Page.

It will add a sheet and copy the selection areas on it
And delete that sheet after printing

Sub test()
Dim destrange As Range
Dim smallrng As Range
Dim newsh As Worksheet
Dim Ash As Worksheet
Set Ash = ActiveSheet
Set newsh = Worksheets.Add
Ash.Select
Set destrange = newsh.Cells(LastRow(newsh) + 1, 1)
For Each smallrng In Selection.Areas
smallrng.Copy
destrange.PasteSpecial xlPasteValues
Set destrange = newsh.Cells(LastRow(newsh) + 1, 1)
Next smallrng
newsh.PrintOut
Application.DisplayAlerts = False
newsh.Delete
Application.DisplayAlerts = True
End Sub

Public Function LastRow(sh As Worksheet)
On Error Resume Next
LastRow = sh.Cells.Find(What:="*", _
After:=sh.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
End Function




--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Kamran Khatri" wrote in message
m...
Dear guys!

1) i am facing problem of printing multiple selction in the one excell
sheet or it may be consist of more than one sheet selection for print.
Is it possible to set multiple print areas?

2) How can i print the sum of any field at the bottom of the page in
excell like Access can print in Page Footer Option.

3) How can i retrive my VBA forgotten Pasword?

Your answers will be highly appreciated

It pastes the selected range as a picture, but the picture contains links
back to the original range.

Hold the shift key down then select the edit menu You will see the copy and
paste choices have been changed to Copy Picture, Paste Picture and Paste
Picture Link
--
Regards,
Tom Ogilvy


Trevor Shuttleworth wrote in message
...
Ron

what's "paste picture Link" ?

Regards

Trevor


"Ron de Bruin" wrote in message
...
1) i am facing problem of printing multiple selction in the one excell
sheet or it may be consist of more than one sheet selection for print.
Is it possible to set multiple print areas?


Try this from Dave Peterson

You could do this
Insert a new worksheet (you're gonna use this for printing).
Do this for each area in your range.
select the range
Edit|copy
go to the new worksheet and Shift-click-Edit|Paste Picture Link.

go back and do the rest of the areas (copy|shift-click-Edit|paste
picture
Link).

What's neat about the picture is that if you change the original, the
picture
will change, too (values and formatting!).

You could keep that new worksheet forever--just for printing--but if the
ranges
change, you'll have a little work to do.


Or this

One way to print your selection with more areas on
one Page.

It will add a sheet and copy the selection areas on it
And delete that sheet after printing

Sub test()
Dim destrange As Range
Dim smallrng As Range
Dim newsh As Worksheet
Dim Ash As Worksheet
Set Ash = ActiveSheet
Set newsh = Worksheets.Add
Ash.Select
Set destrange = newsh.Cells(LastRow(newsh) + 1, 1)
For Each smallrng In Selection.Areas
smallrng.Copy
destrange.PasteSpecial xlPasteValues
Set destrange = newsh.Cells(LastRow(newsh) + 1, 1)
Next smallrng
newsh.PrintOut
Application.DisplayAlerts = False
newsh.Delete
Application.DisplayAlerts = True
End Sub

Public Function LastRow(sh As Worksheet)
On Error Resume Next
LastRow = sh.Cells.Find(What:="*", _
After:=sh.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
End Function




--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Kamran Khatri" wrote in message
m...
Dear guys!

1) i am facing problem of printing multiple selction in the one excell
sheet or it may be consist of more than one sheet selection for print.
Is it possible to set multiple print areas?

2) How can i print the sum of any field at the bottom of the page in
excell like Access can print in Page Footer Option.

3) How can i retrive my VBA forgotten Pasword?

Your answers will be highly appreciated

Tom

thanks. I can't believe I haven't discovered this before !

Regards

Trevor


"Tom Ogilvy" wrote in message
...
It pastes the selected range as a picture, but the picture contains links
back to the original range.

Hold the shift key down then select the edit menu You will see the copy
and
paste choices have been changed to Copy Picture, Paste Picture and Paste
Picture Link
--
Regards,
Tom Ogilvy


Trevor Shuttleworth wrote in message
...
Ron

what's "paste picture Link" ?

Regards

Trevor


"Ron de Bruin" wrote in message
...
1) i am facing problem of printing multiple selction in the one
excell
sheet or it may be consist of more than one sheet selection for
print.
Is it possible to set multiple print areas?


Try this from Dave Peterson

You could do this
Insert a new worksheet (you're gonna use this for printing).
Do this for each area in your range.
select the range
Edit|copy
go to the new worksheet and Shift-click-Edit|Paste Picture Link.

go back and do the rest of the areas (copy|shift-click-Edit|paste
picture
Link).

What's neat about the picture is that if you change the original, the
picture
will change, too (values and formatting!).

You could keep that new worksheet forever--just for printing--but if
the
ranges
change, you'll have a little work to do.


Or this

One way to print your selection with more areas on
one Page.

It will add a sheet and copy the selection areas on it
And delete that sheet after printing

Sub test()
Dim destrange As Range
Dim smallrng As Range
Dim newsh As Worksheet
Dim Ash As Worksheet
Set Ash = ActiveSheet
Set newsh = Worksheets.Add
Ash.Select
Set destrange = newsh.Cells(LastRow(newsh) + 1, 1)
For Each smallrng In Selection.Areas
smallrng.Copy
destrange.PasteSpecial xlPasteValues
Set destrange = newsh.Cells(LastRow(newsh) + 1, 1)
Next smallrng
newsh.PrintOut
Application.DisplayAlerts = False
newsh.Delete
Application.DisplayAlerts = True
End Sub

Public Function LastRow(sh As Worksheet)
On Error Resume Next
LastRow = sh.Cells.Find(What:="*", _
After:=sh.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
End Function




--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Kamran Khatri" wrote in message
m...
Dear guys!

1) i am facing problem of printing multiple selction in the one
excell
sheet or it may be consist of more than one sheet selection for
print.
Is it possible to set multiple print areas?

2) How can i print the sum of any field at the bottom of the page in
excell like Access can print in Page Footer Option.

3) How can i retrive my VBA forgotten Pasword?

Your answers will be highly appreciated