Macro Not Running
 

Hi,

I have a macro, With the help of this macro, as soon as u write
anything in Column A it would automatically throws a Current Date in
Column G:


Dim LastRow, LastCol, CurRow, CurCol As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
If LastCol = 1 Then
CurRow = ActiveCell.Row
CurCol = ActiveCell.Column
'MsgBox ActiveCell.Row
'MsgBox ActiveCell.Column

'MsgBox Target

If Sheet1.Cells(LastRow, 7).Value = "" Then
Sheet1.Cells(LastRow, 7).Value = Date
Cells(LastRow, 4).Select
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
LastRow = ActiveCell.Row
LastCol = ActiveCell.Column
'MsgBox ActiveCell.Row
'MsgBox ActiveCell.Column

End Sub


There are other formulas in the Excel Sheet. I had protected the sheet
to hide the formula. but as soon as i protected the sheet, my macro is
not working.


Can u help me how can i run the macro even after i protect the sheet.

Is there any way.

Thanks

Akash

Macro Not Running
 

Perhaps you could unlock that cell before protecting the sheet.
Right click cellformatprotection

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Akash Maheshwari" wrote in message
...
Hi,

I have a macro, With the help of this macro, as soon as u write
anything in Column A it would automatically throws a Current Date in
Column G:


Dim LastRow, LastCol, CurRow, CurCol As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
If LastCol = 1 Then
CurRow = ActiveCell.Row
CurCol = ActiveCell.Column
'MsgBox ActiveCell.Row
'MsgBox ActiveCell.Column

'MsgBox Target

If Sheet1.Cells(LastRow, 7).Value = "" Then
Sheet1.Cells(LastRow, 7).Value = Date
Cells(LastRow, 4).Select
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
LastRow = ActiveCell.Row
LastCol = ActiveCell.Column
'MsgBox ActiveCell.Row
'MsgBox ActiveCell.Column

End Sub


There are other formulas in the Excel Sheet. I had protected the sheet
to hide the formula. but as soon as i protected the sheet, my macro is
not working.


Can u help me how can i run the macro even after i protect the sheet.

Is there any way.

Thanks

Akash

Macro Not Running
 

Hi,

I had done that, bt it didnt worked. As soon as i had protected the
sheet with the help of the password. and then as soon as i enter into
column A, the system is throwing an error message like,

The Cell or Chart u r trying to change is protected and therefore read
only,
To modify a protected Cell or a Chart, first remove protection using
Un Protect Sheet Command (Tools Menu, Protection Sub Menu) You may be
prompted for a password.

What can i do? Can i expect any help from ur side.

Thanks

Akash

On Jan 16, 6:26 pm, "Don Guillett" wrote:
Perhaps you could unlock that cell before protecting the sheet.
Right click cellformatprotection

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Akash Maheshwari" wrote in message

...

Hi,

I have a macro, With the help of this macro, as soon as u write
anything in Column A it would automatically throws a Current Date in
Column G:

Dim LastRow, LastCol, CurRow, CurCol As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
If LastCol = 1 Then
CurRow = ActiveCell.Row
CurCol = ActiveCell.Column
'MsgBox ActiveCell.Row
'MsgBox ActiveCell.Column

'MsgBox Target

If Sheet1.Cells(LastRow, 7).Value = "" Then
Sheet1.Cells(LastRow, 7).Value = Date
Cells(LastRow, 4).Select
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
LastRow = ActiveCell.Row
LastCol = ActiveCell.Column
'MsgBox ActiveCell.Row
'MsgBox ActiveCell.Column

End Sub

There are other formulas in the Excel Sheet. I had protected the sheet
to hide the formula. but as soon as i protected the sheet, my macro is
not working.

Can u help me how can i run the macro even after i protect the sheet.

Is there any way.

Thanks

Akash