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

  • 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?
1 Solution
Dave BrettVice President - Business EvaluationCommented:

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



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
End Sub

Open in new window


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