T
Travis
I have a problem with having 2 macros in the same ThisWorksheet code area. I
have a macro that logs who opened my workbook and one that on open selects
the first sheet i specified. My problem is it only opens the first macro.
When i change the second macro to Workbook_Open it says i can't have 2 of the
same arguements. Is there a way to write this so they both open with no
conflicts?
Option Explicit
Sub Workbook_Open()
Sheets("Front Page").Select
End Sub
Sub Auto_Open()
' Use as part of an Auto_Open macro
' Change both occurances of C:\myExcelBackups to the desired
' path location for the File Use Log -i.e. a network drive?
' A text file will show the name and time of everyone who
' opens the workbook.
Application.DisplayAlerts = False
Dim FileUser As String
Dim FileUserDocFILE As String
FileUser = ActiveWorkbook.Name
On Error Resume Next
MkDir "MYWORKBOOK"
FileUserDocFILE = "MYWORKBOOK" & FileUser & " Log.txt"
On Error GoTo 0
Open FileUserDocFILE For Append As #1
Print #1, Application.UserName & Environ("username") & " Opened " &
ActiveWorkbook.Name & " at " & Now
Close #1
Application.DisplayAlerts = True
End Sub
have a macro that logs who opened my workbook and one that on open selects
the first sheet i specified. My problem is it only opens the first macro.
When i change the second macro to Workbook_Open it says i can't have 2 of the
same arguements. Is there a way to write this so they both open with no
conflicts?
Option Explicit
Sub Workbook_Open()
Sheets("Front Page").Select
End Sub
Sub Auto_Open()
' Use as part of an Auto_Open macro
' Change both occurances of C:\myExcelBackups to the desired
' path location for the File Use Log -i.e. a network drive?
' A text file will show the name and time of everyone who
' opens the workbook.
Application.DisplayAlerts = False
Dim FileUser As String
Dim FileUserDocFILE As String
FileUser = ActiveWorkbook.Name
On Error Resume Next
MkDir "MYWORKBOOK"
FileUserDocFILE = "MYWORKBOOK" & FileUser & " Log.txt"
On Error GoTo 0
Open FileUserDocFILE For Append As #1
Print #1, Application.UserName & Environ("username") & " Opened " &
ActiveWorkbook.Name & " at " & Now
Close #1
Application.DisplayAlerts = True
End Sub