Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 216
  • Last Modified:

How to enhance Excel security

I've developed a stand-alone like application in Excel. How can I ensure the application will be used within company's laptops?
As all laptops are in the same domain. I am thinking to check user's domain at the begining before running the application. How I can achieve that in VB or any other better ideas?
0
neph1997
Asked:
neph1997
1 Solution
 
Dave BrettVice President - Business EvaluationCommented:
Hi,

You could search for these domains on the Workbook Open event, if found then progress, or close your application

A couple of sample codes below that list
1) The Workbook open event
2) The domain of the current computer
3) All domains on the current network

Cheers

Dave

 
Private Sub Workbook_Open()
    Dim wshn
    Set wshn = CreateObject("wscript.network")
    Select Case wshn.userdomain
    Case "mine1", "mine2"
        'your code here
    Case Else
        C = MsgBox("Unlicensced used of this addin", vbCritical, "Warning!")
        ThisWorkbook.Close False
    End Select
End Sub
 
 
Sub Domain()
    Dim wshn
    Set wshn = CreateObject("wscript.network")
    MsgBox wshn.userdomain
End Sub
 
 
Sub All_Domains()
    Dim adsNS, adsDomain, WSHshell
    Set WSHshell = CreateObject("WScript.Shell")
    Set adsNS = GetObject("WinNT:")
    adsNS.Filter = Array("domain")
    For Each adsDomain In adsNS
        WSHshell.popup adsDomain.ADsPath
    Next
End Sub

Open in new window

0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now