View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
michelle michelle is offline
external usenet poster
 
Posts: 310
Default CustomDocumentProperties

Hello,

I want to make sure the user has only one bulk load spreadsheet open at a
time.I am trying to check this using the CustomDocumentProperties for
spreadsheet name. I had the following code but if the user saves the
spreadsheet under a new name this code will not see it. Can you help me?

For intI = 1 To Workbooks.count
If Workbooks.Item(intI).Name = "Document Control Markup.xls" Or _
Workbooks.Item(intI).Name = "Document Control Vendor Submittal.xls"
Or _
Workbooks.Item(intI).Name = "PLM_Author.xls" Then
blnOtherBulkLoadSSOpen = True
End If

Next intI

If blnOtherBulkLoadSSOpen Then
MsgBox "You cannot have MORE THAN ONE Bulk Load Spreadsheet open at
the same time!", _
vbCritical, "CLOSE OTHER INSTANCES OF BULK LOAD SPREADSHEETS"