Note: I have used the msgbox to test the process and show the status of the cell if it is locked or not. You can remove the two lines for the msgbox , if it is not required. Regards, Andy On Thu, May 21, 2009 at 8:52 PM, Aindril De <aind...@gmail.com> wrote:
> Dear Chande, > > Sorry for the confusion. Use the following code, It will work. > > However there is a small drawback, you have to paste it in the sheet where > you want to activate it. > It will not work for any other sheet. > > Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) > Dim Txt As String > If ActiveCell.Locked = True Then > MsgBox "this cell is locked" > End > Else > MsgBox "this cell is not locked" > ActiveCell.Copy > End If > End Sub > > Please let me know if it helps. > > Regards, > Andy > > On Thu, May 21, 2009 at 5:07 PM, DOLLAR CHANDE > <dollarcha...@gmail.com>wrote: > >> Dear Andy, >> >> Thx a lot for your kind help, I copied the code and pasted it in the >> sheet...but i m unable to copy the cell content when i click one. >> However being a novice, pls advice me if i need to do something to make >> that macro run....... >> >> Thx $ Chande >> >> On Thu, May 21, 2009 at 3:12 PM, Aindril De <aind...@gmail.com> wrote: >> >>> Dear Chande, >>> >>> Please use the following code. >>> >>> Sub putclp() >>> Dim Txt As String >>> If ActiveCell.Locked = True Then >>> MsgBox "this cell is locked" >>> End >>> Else >>> MsgBox "this cell is not locked" >>> ActiveCell.Copy >>> End If >>> End Sub >>> >>> Please let me know if it helps. >>> >>> Regards, >>> Andy >>> >>> On Thu, May 21, 2009 at 1:54 PM, DOLLAR CHANDE >>> <dollarcha...@gmail.com>wrote: >>> >>>> Dear Group, >>>> >>>> I have a Workbook where I want a macro such that if i click any unlocked >>>> cell in any sheet or a particular sheet, all the contents of the said cell >>>> should be copied and be ready to paste wherever i want. >>>> >>>> Hope i will b able to get the macro as nobody on this group is left >>>> unanswered. >>>> >>>> Thx to all, >>>> >>>> $ Chande >>>> >>>> >>>> >>> >>> >>> >> >> >> >> > --~--~---------~--~----~------------~-------~--~----~ ------------------------------------------------------------------------------------- Some important links for excel users: 1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at http://www.excelitems.com 2. Excel tutorials at http://www.excel-macros.blogspot.com 3. Learn VBA Macros at http://www.vbamacros.blogspot.com 4. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com If you find any spam message in the group, please send an email to: Ayush Jain @ jainayus...@gmail.com or Ashish Jain @ 26may.1...@gmail.com ------------------------------------------------------------------------------------- -~----------~----~----~----~------~----~------~--~---
