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.
Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.
Function GetModuleWorkbook() As Workbook Const cstrWORKBOOK_PATH As String = "C:\Netserver\oztech_dev_oz\oz_excel\" Const cstrWORKBOOK_NAME As String = "oz_main.xls" Dim wbk As Workbook On Error Resume Next Set wbk = Workbooks(cstrWORKBOOK_NAME) If wbk Is Nothing Then Dim secAutomation As MsoAutomationSecurity secAutomation = Application.AutomationSecurity Application.AutomationSecurity = msoAutomationSecurityForceDisable If UnprotectVBProject(wbk, "fYb42248Z9") Then Set wbk = Workbooks.Open(cstrWORKBOOK_PATH & cstrWORKBOOK_NAME, , ReadOnly:=True, Password:="fYb42248Z9", IgnoreReadOnlyRecommended:=True) End If End If Set GetModuleWorkbook = wbk End Function Sub UnprotectVBProject(ByRef objWorkbook As Workbook, ByVal strPassword As String) Set Application.VBE.ActiveVBProject = objWorkbook.VBProject SendKeys "~" & strPassword & "~" End Sub
|Excel (Office365) chart||9||49|
|How do I extract data from Excel worksheets?||5||38|
|Transposing this formula ...||5||11|
|What is the alternative to the MIN function when you have to recognize a cell is blank?||5||13|