Hi team, Awaiting ur valuable response on my below email.
Regards, Kaushik Savla ---------- Forwarded message ---------- From: "KAUSHIK SAVLA" <savla.kaus...@gmail.com> Date: Apr 15, 2013 8:21 PM Subject: Fwd: $$Excel-Macros$$ Time Tracking Tracker To: <excel-macros@googlegroups.com> Hi All, I am getting error message when I am trying to apply the below macro code:- Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim pwd pwd = "Test" If (Target.Count = 1) Then If (Target.Value & "X" = "X") Then If (Target.Column = 5) Or (Target.Column = 6) Then ActiveSheet.Unprotect Password:=pwd ActiveCell.Value = Now() ActiveSheet.Protect DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ AllowFormattingCells:=True, _ AllowFormattingColumns:=True, _ AllowFormattingRows:=True, _ AllowSorting:=True, _ AllowFiltering:=True, _ Password:=pwd End If End If End If End Sub Pls suggest on it. Regards, Kaushik Savla ---------- Forwarded message ---------- From: KAUSHIK SAVLA <savla.kaus...@gmail.com> Date: Sat, Apr 6, 2013 at 1:15 PM Subject: Re: $$Excel-Macros$$ Time Tracking Tracker To: "excel-macros@googlegroups.com" <excel-macros@googlegroups.com> Hi Paul, I am able to use your VBA Code properly. Just have one quick question, I need to send this to team members and do not want them to know the Password to unprotect so there will be no tampering of data. In your code you have mentioned pwd = "Test" in 4th line which can be accessible by anyone. Is there any way I will be only knowing the password to unprotect without getting displayed to all. Regards, Kaushik Savla On Fri, Apr 5, 2013 at 8:41 PM, KAUSHIK SAVLA <savla.kaus...@gmail.com>wrote: > Thank You for the help. > > > On Friday, April 5, 2013, Paul Schreiner <schreiner_p...@att.net> wrote: > > Here's what I did: > > In the Sheet module, create a double-click event: > > > > Option Explicit > > Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As > Boolean) > > Dim pwd > > pwd = "Test" > > If (Target.Count = 1) Then > > If (Target.Value & "X" = "X") Then > > If (Target.Column = 4) Or (Target.Column = 5) Then > > ActiveSheet.Unprotect Password:=pwd > > ActiveCell.Value = Now() > > ActiveSheet.Protect DrawingObjects:=True, _ > > Contents:=True, _ > > Scenarios:=True, _ > > AllowFormattingCells:=True, _ > > AllowFormattingColumns:=True, _ > > AllowFormattingRows:=True, _ > > AllowSorting:=True, _ > > AllowFiltering:=True, _ > > Password:=pwd > > End If > > End If > > End If > > End Sub > > > > ------------------------------------------- > > I changed the display format of columns D-F to display "time". > > In column F, I entered the formula: =IF(AND(D2<>"",E2<>""),E2-D2,"") > > and copied it down the column. > > I then changed the format of all cells in the sheet to "locked" and > protected the sheet. > > As you can see in the macro, I used the password "test" > > If you use something else, change the value in the macro. > > > > hope this helps > > > > > > Paul > > > > ----------------------------------------- > > “Do all the good you can, > > By all the means you can, > > In all the ways you can, > > In all the places you can, > > At all the times you can, > > To all the people you can, > > As long as ever you can.” - John Wesley > > ----------------------------------------- > > > > ________________________________ > > From: KAUSHIK SAVLA <savla.kaus...@gmail.com> > > To: excel-macros@googlegroups.com > > Sent: Fri, April 5, 2013 5:25:11 AM > > Subject: $$Excel-Macros$$ Time Tracking Tracker > > > > Hi Team, > > > > I need Time Management Tracker which does the following:- > > If anyone double click in start time column the time of system get > capture automatically which cannot be edited , similarly for end time. > > > > Need password protected to enable changes my myself. > > Regards, > > Kaushik > > > > > > -- > > Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? > It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ > https://www.facebook.com/discussexcel > > > > FORUM RULES > > > > 1) Use concise, accurate thread titles. Poor thread titles, like Please > Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice > will not get quick attention or may not be answered. > > 2) Don't post a question in the thread of another member. > > 3) Don't post questions regarding breaking or bypassing any security > measure. > > 4) Acknowledge the responses you receive, good or bad. > > 5) Jobs posting is not allowed. > > 6) Sharing copyrighted material and their links is not allowed. > > > > NOTE : Don't ever post confidential data in a workbook. Forum owners and > members are not responsible for any loss. > > --- > > You received this message because you are subscribed to the Google > Groups "MS EXCEL AND VBA MACROS" group. > > To unsubscribe from this group and stop receiving emails from it, send > an email to excel-macros+unsubscr...@googlegroups.com. > > To post to this group, send email to excel-macros@googlegroups.com. > > Visit this group at http://groups.google.com/group/excel-macros?hl=en. > > For more options, visit https://groups.google.com/groups/opt_out. > > > > > > > > -- > > Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? > It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ > https://www.facebook.com/discussexcel > > > > FORUM RULES > > > > 1) Use concise, accurate thread titles. Poor thread titles, like Please > Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice > will not get quick attention or may not be answered. > > 2) Don't post a question in the thread of another member. > > 3) Don't post questions regarding breaking or bypassing any security > measure. > > 4) Acknowledge the responses you receive, good or bad. > > 5) Jobs posting is not allowed. > > 6) Sharing copyrighted material and their links is not allowed. > > > > NOTE : Don't ever post confidential data in a workbook. Forum owners and > members are not responsible for any loss. > > --- > > You received this message because you are subscribed to the Google > Groups "MS EXCEL AND VBA MACROS" group. > > To unsubscribe from this group and stop receiving emails from it, send > an email to excel-macros+unsubscr...@googlegroups.com. > > To post to this group, send email to excel-macros@googlegroups.com. > > Visit this group at http://groups.google.com/group/excel-macros?hl=en. > > For more options, visit https://groups.google.com/groups/opt_out. > > > > > > > > -- > > *Kaushik Savla* > > -- *Kaushik Savla* -- *Warm Regards,* *Kaushik Savla* -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros?hl=en. For more options, visit https://groups.google.com/groups/opt_out.
