Prev: Conditional Formatting Query
Next: Negative result gives #### is there a way to show the actual - num
From: nader on 6 Mar 2010 07:11
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
From: Satti Charvak on 7 Mar 2010 07:40
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
 | 
Pages: 1
Prev: Conditional Formatting Query
Next: Negative result gives #### is there a way to show the actual - num