ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Updating OLD code (https://www.excelbanter.com/excel-programming/396555-updating-old-code.html)

SanInTexas

Updating OLD code
 
I am trying to update an old XLM macro.

Eventually-I'll redo it. But for now, does anyone know the command to
unprotect a protected sheet?

Thanks...

Mike Q.

Updating OLD code
 
ActiveSheet.Unprotect

--
Mike Q.


"SanInTexas" wrote:

I am trying to update an old XLM macro.

Eventually-I'll redo it. But for now, does anyone know the command to
unprotect a protected sheet?

Thanks...


SanInTexas

Updating OLD code
 
Thanks. I know that works for a current macro; however, this is an old
spreadsheet macro as follows:

Record3 (g)
=ECHO(FALSE)
=ACTIVATE("[Xsphere40.xls]Input Sheet")
=SELECT("R13C18:R18C18")
=COPY()
=SELECT("R5C2")
=PASTE()
=FORMAT.FONT(,,TRUE)
=ALIGNMENT(2,FALSE,3,0)
=BORDER(0,1,0,0,0,,,0)
=BORDER(0,1,1,0,0,,,0,0)
=BORDER(0,1,1,1,0,,,0,0,0)
=BORDER(0,1,1,1,1,,,0,0,0,0)
=VIEW.SHOW("inp")
=ECHO(TRUE)
=RETURN()


"Mike Q." wrote:

ActiveSheet.Unprotect

--
Mike Q.


"SanInTexas" wrote:

I am trying to update an old XLM macro.

Eventually-I'll redo it. But for now, does anyone know the command to
unprotect a protected sheet?

Thanks...


Jim Cone

Updating OLD code
 

This is the syntax from "Microsoft Excel Function Reference - 1992" ...

Protect.Document(contents, windows, password, objects)

Arguments are all Boolean except for password.
If the Boolean arguments are all false, then the sheet is unprotected.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)



"SanInTexas"

wrote in message
Thanks. I know that works for a current macro; however, this is an old
spreadsheet macro as follows:

Record3 (g)
=ECHO(FALSE)
=ACTIVATE("[Xsphere40.xls]Input Sheet")
=SELECT("R13C18:R18C18")
=COPY()
=SELECT("R5C2")
=PASTE()
=FORMAT.FONT(,,TRUE)
=ALIGNMENT(2,FALSE,3,0)
=BORDER(0,1,0,0,0,,,0)
=BORDER(0,1,1,0,0,,,0,0)
=BORDER(0,1,1,1,0,,,0,0,0)
=BORDER(0,1,1,1,1,,,0,0,0,0)
=VIEW.SHOW("inp")
=ECHO(TRUE)
=RETURN()



All times are GMT +1. The time now is 04:25 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com