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.
Private Sub MyProject() Dim Filename As Variant Dim userlogin As String Dim userpath As String Application.ScreenUpdating = False Application.DisplayAlerts = False For Each Workbook In Workbooks If Workbook.Name <> ActiveWorkbook.Name Then Workbook.Close Next On Error Resume Next Kill userpath & "PERSONAL.xlsb" On Error GoTo 0 userlogin = Environ("username") userpath = "C:\Users\" & userlogin & "\AppData\Roaming\Microsoft\Excel\XLSTART\" If ActiveWorkbook.Name <> "PERSONAL.xlsb" Then ActiveWorkbook.SaveCopyAs Filename:=userpath & "PERSONAL.xlsb" ActiveWorkbook.Close Application.ScreenUpdating = True Application.DisplayAlerts = True ElseIf ThisWorkbook.Name = "PERSONAL.xlsb" Then Application.DisplayAlerts = False MsgBox "this is Personal file" Application.DisplayAlerts = True End If End Sub
|formula returning 00/00/1900 dates as opposed to blank||13||28|
|Is there a way to link Access 2003 app to an xlsx sheet?||6||22|
|Excel formula to report date modified||14||23|
|EXCEL FORMULA - first three characters in a cell||2||24|