each sheet has a Visible property. you can set this to xlSheetHidden or
xlSheetVeryHidden as well as xlSheetVisible
the very hidden method means the user would have to go into the IDE and
examine the sheet properties, or write a line of code to make the sheet
visible. A hidden ( as opposed to Very Hidden) can be unhidden via the
Format/Sheet Unhide menu


"QuietMan" wrote in message
...
Thanks,

Is there a way I can hide the sheet so it's not vissable to the users as
the
reason I'm doing this is because there arguments about who saved the file
last
--
Helping Is always a good thing


"Jacob Skaria" wrote:

You dont need to select the sheet or cell; instead try the below
code..You
can have a separate sheet for logs which can be hidden...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
As Boolean, Cancel As Boolean)
Dim a_row As Long
a_row = Sheets("Control").Cells(Rows.Count, "V").End(xlUp).Row + 1
Sheets("Control").Range("V" & a_row) = "Last Saved By " &
Environ("UserName")
Sheets("Control").Range("W" & a_row) = Now
End Sub

--
Jacob


"QuietMan" wrote:

Is there a way that I can keep a log of each person that saved a file
and the
date and time

I use this code below but the area that the information is stored could
be
changed if discovered...any help would be appreciated

Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
As Boolean, Cancel As Boolean)
Sheets("Control").Range("V19").End(xlDown).Select
a_row = ActiveCell.Row
Sheets("Control").Range("V" & a_row + 1).Value = "Last Saved By " &
Environ("UserName")
Sheets("Control").Range("W" & a_row + 1).Value = Date
Sheets("Control").Range("X" & a_row + 1).Value = Time
End Sub


--
Helping Is always a good thing