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.
If FormatCustomer Then Workbooks.Open Filename:="C:\my documents\Customers.xls" 'Format IDs as General Range("C:C,E:E,F:F").Select Selection.NumberFormat = "General" 'Set font to nine pitch Cells.Select With Selection.Font .Name = "Tahoma" .Size = 9 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 1 End With 'Set Columns to autofit Cells.Select Selection.Columns.AutoFit 'Rename tab sheet1 to Customers Sheets("Sheet1").Select Sheets("Sheet1").Name = "Customers" 'Define Name Billto rowa = Sheets("Customers").Cells(Rows.Count, 1).End(xlUp).Row ActiveWorkbook.Names.Add Name:="Billto", RefersToR1C1:="=Customers!R2C2:R" & rowa & "C2" & Chr(32) 'Define Name BillToList rowb = Sheets("Customers").Cells(Rows.Count, 1).End(xlUp).Row ActiveWorkbook.Names.Add Name:="BillToLookup", RefersToR1C1:="=Customers!R2C1:R" & rowb & "C8" & Chr(32) 'Define Name BillToLookup ActiveWorkbook.Names.Add Name:="BillToList", RefersToR1C1:="=OFFSET(Customers!R2C1,0,0,COUNTA(Customers!C1)-1)" 'Protect Customers Worksheet ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="password" ActiveSheet.EnableSelection = xlLockedCells 'Go to first cell on worksheet Range("A1").Select 'Save with same name as opened ActiveWorkbook.Save End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|how to get files list form folder which is located on server using client side vb6.0 app||11||31|
|odbc driver manager data source name not found and no default driver specified||9||33|
|question on substitute function||2||27|
|Excel Formula to Iterate||4||12|