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 :-)
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
'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]
