M
Mia
Hi,
I have written following code to protect my file from
beeing used from people who shouldent use it. The problem
I have is that you have to activate the macro when you
open the file to get it started, so it don't totaly work.
Do anyone know howe to solv this?
Private Sub Workbook_Open()
If Application.OrganizationName = "Min pc" Then
MsgBox "Hej " & Application.UserName
Else
Application.Quit
End If
End Sub
I have written following code to protect my file from
beeing used from people who shouldent use it. The problem
I have is that you have to activate the macro when you
open the file to get it started, so it don't totaly work.
Do anyone know howe to solv this?
Private Sub Workbook_Open()
If Application.OrganizationName = "Min pc" Then
MsgBox "Hej " & Application.UserName
Else
Application.Quit
End If
End Sub