Combinate 2 vba codes
Closed
mia
-
Jul 2, 2009 at 06:30 AM
Excelguru Posts 261 Registration date Saturday April 11, 2009 Status Member Last seen June 21, 2011 - Jul 4, 2009 at 12:43 AM
Excelguru Posts 261 Registration date Saturday April 11, 2009 Status Member Last seen June 21, 2011 - Jul 4, 2009 at 12:43 AM
Related:
- Combinate 2 vba codes
- Tentacle locker 2 - Download - Adult games
- Fnia 2 - Download - Adult games
- Euro truck simulator 2 download free full version pc - Download - Simulation
- Feeding frenzy 2 download - Download - Arcade
- Counter strike 1.6 codes - Guide
1 response
Excelguru
Posts
261
Registration date
Saturday April 11, 2009
Status
Member
Last seen
June 21, 2011
307
Jul 4, 2009 at 12:43 AM
Jul 4, 2009 at 12:43 AM
Hi mia
Try this
Try this
Public Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Const WS_RANGE As String = "A9:A39" Dim MyRange As Range Dim IntersectRange As Range Set MyRange = Range("d9:e38") Set IntersectRange = Intersect(Target, MyRange) On Error GoTo SkipIt If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then With Target Me.Unprotect Target.Value = Format(Now, "ddddd") Me.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Me.EnableSelection = xllockedCells Cancel = True End With Else If IntersectRange Is Nothing Then Exit Sub Else ActiveSheet.Unprotect Application.ScreenUpdating = False Target = Format(Now, "ttttt") ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveSheet.EnableSelection = xllockedCells End If ActiveSheet.Unprotect Rows("1:3").Select Range("1:3,A4:E65536").Select Range("1:3,A4:E65536,G4:IV65536").Select Selection.Locked = False Selection.FormulaHidden = False ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False ActiveCell.Offset(, 1).Select End If SkipIt: Application.EnableEvents = True Exit Sub End Sub