----- Original Message -----
From: "Andrew Douglas Pitonyak" <[EMAIL PROTECTED]>
Newsgroups: gmane.comp.openoffice.questions
Sent: Thursday, November 03, 2005 10:49 PM
Subject: Re: Please Help With This Macro
Jack Gillis wrote:
I need help with this macro. Its purpose is to cycle through all the
sheets in the workbook, protect all the cells in the sheet, protect the
sheet and return to the original active cell.
I have put together part of the macro using the examples in Andrew
Pitonyak's macro documents as well as the OOo forums as a base.
Yeah, but I'll bet that you did not look at page 331 of my book :-)
Actually, all I have is your Getting Started With Macros and Useful Macro
Information For Open Office. I am about to remedy that as soon as I click
the send icon.
Is this close to what you want?
oRange =
ThisComponent.getSheets().getByIndex(0).getCellRangeByName("A1:C10")
oRange.CellProtection = com.sun.star.util.CellProtection.IsLocked
Sub ProtectAllSheets
Dim osheets as Object
Dim osheet as Object
osheet = thisComponent.sheets
for i = 0 to oSheet.count - 1
oOldSeletion = ThisComponent.CurrentSelection 'Store the Active Cell
osheet.getByIndex(i).unprotect("") 'unlock the sheet
'Now protect all the cells in this sheet
Here I can't figure out what statements are required to protect all the
cells in the sheet. Will someone 'please give me a clue. I've searched
Andrew Pitonyak's and the OOo Forums but have not been able to 'find an
answer.
Oh, so you want ALL of the cells? Well, then get the entire range, or even
better, simply do it on the sheet itself.
ThisComponent.getSheets().getByIndex(0)..CellProtection =
com.sun.star.util.CellProtection.IsLocked
Now that is a truly elegant solution.
I am off to order the book.
Thank you very much.
'Finished Protecting all the cells
oSheet.getByIndex(i).protect("") 'lock the sheet
ThisComponent.CurrentController.Select(oOldSelection) 'Return to the
starting cell of this sheet
next
End Sub
It would also help if in addition to the missing code above, Someone
could tell me how to get the name of the current active sheet. That is
for another project.
Page 369 to 373 of my book. On page 372, you find the getActiveSheet()
method.
ThisComponent.getCurrentController().getActiveSheet().getName()
Thank you very much.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
Andrew Pitonyak
My Macro Document: http://www.pitonyak.org/AndrewMacro.sxw
My Book: http://www.hentzenwerke.com/catalog/oome.htm
Info: http://www.pitonyak.org/oo.php
See Also: http://documentation.openoffice.org/HOW_TO/index.html
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
