SHARE
TWEET

Untitled

a guest Oct 20th, 2019 81 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Sub xlApp_WorkbookOpen(ByVal Wb As Workbook)
  2.     If Right(UCase(Wb.Name), 4) = "XLSM" Then
  3.         If Wb.VBASigned = False Then
  4.                 MsgBox "The workbook '" & Wb.Name & "' is not signed. " & _
  5.            "If there are auto-run macros in the workbook, " & _
  6.            "they will not be run.", vbExclamation, "Signed Workbook Check"
  7.         End If
  8.     End If
  9. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top