ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Event/Method for Unprotecting worksheet (https://www.excelbanter.com/excel-programming/310617-event-method-unprotecting-worksheet.html)

jpendegraft[_21_]

Event/Method for Unprotecting worksheet
 

I am trying to allow a user to insert a picture object onto a protected
worksheet in selected cells.

I assume the best method would be to unprotect the worksheet when the
user selects a particular cell and then reprotect it when the
leave....

I have put together the following code but don't have the correct
event/method as it is not firing off...

Any help would be greatly appreciated....




Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
If ActiveCell.Range("C2:AL2", "C14:AL14", "C26:AL14").Select Then
ActiveSheet.Unprotect
Else: ActiveSheet.Protect True, True, True, True

End Sub


--
jpendegraft


------------------------------------------------------------------------
jpendegraft's Profile: http://www.excelforum.com/member.php...fo&userid=5701
View this thread: http://www.excelforum.com/showthread...hreadid=261753


Frank Kabel

Event/Method for Unprotecting worksheet
 
Hi
try using the selection_change event for this

--
Regards
Frank Kabel
Frankfurt, Germany


jpendegraft wrote:
I am trying to allow a user to insert a picture object onto a
protected worksheet in selected cells.

I assume the best method would be to unprotect the worksheet when the
user selects a particular cell and then reprotect it when the
leave....

I have put together the following code but don't have the correct
event/method as it is not firing off...

Any help would be greatly appreciated....




Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
If ActiveCell.Range("C2:AL2", "C14:AL14", "C26:AL14").Select Then
ActiveSheet.Unprotect
Else: ActiveSheet.Protect True, True, True, True

End Sub




All times are GMT +1. The time now is 03:31 AM.

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