Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Code that runs from the 2 buttons - Private Sub nonsecureButton_Click() Call WriteProp(sPropName:="Category", sValue:="Non-Secure") Unload UserForm1 End Sub Private Sub SecureButton_Click() Call WriteProp(sPropName:="Category", sValue:="Secure") Unload UserForm1 End Sub WriteProp procedure - Public Sub WriteProp(sPropName As String, sValue As String, Optional lType As Long = msoPropertyTypeString) Dim bCustom As Boolean On Error GoTo ErrHandlerWriteProp ActiveDocument.BuiltInDocumentProperties(sPropName).Value = sValue Exit Sub Proceed: bCustom = True Custom: ActiveDocument.CustomDocumentProperties(sPropName).Value = sValue Exit Sub AddProp: On Error Resume Next ActiveDocument.CustomDocumentProperties.Add Name:=sPropName, LinkToContent:=False, Type:=lType, Value:=sValue If Err Then Debug.Print "The Property " & Chr(34) & sPropName & Chr(34) & " couldn't be written, because " & Chr(34) & sValue & Chr(34) & " is not a valid value for the property type" End If Exit Sub ErrHandlerWriteProp: Select Case Err Case Else Err.Clear If Not bCustom Then Resume Proceed Else Resume AddProp End If End Select End Sub Current Document_New() procedure - Private Sub Document_New() Call Register_Event_Handler End Sub Event Handler - Dim X As New Class1 Public Sub Register_Event_Handler() Set X.App = Word.Application End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.