Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
protection indicator
Hi
I write two question a bout this but no answer pleas, if possible I want a function that if worksheet protected write a text in a cell like "protected" if not protected, write "unprotected". kind regards nader |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
protection indicator
You can use the following sample macro code
Sub SetProtection() Range("A1").Formula = "1" Range("B1").Formula = "3" Range("C1").Formula = "4" ActiveSheet.Protect ' Check the protection setting of the worksheet and act accordingly. If ActiveSheet.Protection.AllowInsertingColumns = False Then ActiveSheet.Protect AllowInsertingColumns:=True MsgBox "Insert a column between 1 and 3" Else MsgBox "Insert a column between 1 and 3" End If End Sub You can use the following protection properties: AllowDeletingColumns AllowDeletingRows AllowFiltering AllowFormattingCells AllowFormattingColumns AllowFormattingRows AllowInsertingColumns AllowInsertingHyperlinks AllowInsertingRows AllowSorting AllowUsingPivotTables -- Kind Regards, Satti Charvak Only an Excel Enthusiast "nader" wrote: Hi I write two question a bout this but no answer pleas, if possible I want a function that if worksheet protected write a text in a cell like "protected" if not protected, write "unprotected". kind regards nader |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel Data Protection Best Practice: AKA: Real Sheet Protection | Excel Discussion (Misc queries) | |||
Excel Data Protection- AKA: Sheet/Macro Password Protection | Setting up and Configuration of Excel | |||
Searching Indicator | Excel Discussion (Misc queries) | |||
graphical indicator | Excel Discussion (Misc queries) | |||
Cell indicator | Excel Discussion (Misc queries) |