Results 1 to 4 of 4

Thread: Personal.xls

  1. #1
    3 Star Lounger
    Join Date
    Aug 2002
    Location
    Brisbane, Queensland, Australia
    Posts
    387
    Thanks
    0
    Thanked 1 Time in 1 Post
    Why does Excel open personal.xls whenever I open Excel or an Excel document?
    Is there a way to stop this?

  2. #2
    WS Lounge VIP rory's Avatar
    Join Date
    Dec 2000
    Location
    Burwash, East Sussex, United Kingdom
    Posts
    6,280
    Thanks
    3
    Thanked 191 Times in 177 Posts
    Personal.xls is by default located in one of your XLSTART folders and any file in there will be opened when you start Excel, but the Personal Macro Workbook should be hidden. If you really don't want it opening, then move it to another location.
    Regards,
    Rory

    Microsoft MVP - Excel

  3. #3
    3 Star Lounger
    Join Date
    Aug 2002
    Location
    Brisbane, Queensland, Australia
    Posts
    387
    Thanks
    0
    Thanked 1 Time in 1 Post
    Yep, that was it, thank you.

  4. #4
    Super Moderator RetiredGeek's Avatar
    Join Date
    Mar 2004
    Location
    Manning, South Carolina
    Posts
    9,433
    Thanks
    371
    Thanked 1,456 Times in 1,325 Posts
    Kent,

    In case you're having problems with Personal.xls in VBA here's a code snipit I use to determine if Personal.xls was opened and then adjust for it when setting object references to the file with my VBA code {oPgms} and the file with the Data {oWkBk}, I like to have my VBA and Data in separate workbooks because it makes it easier to update the code on my client's machine remotely since I don't have to worry about the data. It also assumes that both workbooks are in the same directory.

    Code:
    Sub Auto_Open()
    
       Dim iWkBkCntOffset As Integer
       Dim oPgms          As Workbook  '*** VBA Workbook  ***
    
       
       iWkBkCntOffset = IIf(Workbooks(1).Name = "PERSONAL.XLS", 1, 0)
       Set oPgms = Workbooks(iWkBkCntOffset + 1)
      
       If Workbooks.Count = iWkBkCntOffset + 1 Then
    '*** Set Cur DIR to the directory from which the VBA Program was started.
         ChDir ActiveWorkbook.Path
    
         ufSelectFile.Show   '*** Menu for user file selection ***
    
         Set oWkBk = Workbooks.Open(zFileToOpen, , False)
         If oWkBk.ReadOnly Then
           MsgBox "You have opened a second copy of the application." & _
             vbCrLf & vbCrLf & _
             "Please close this copy of the application NOW!", _
             vbCritical + vbOKOnly, "Error: Application opened twice"
         End If
         Application.ScreenUpdating = False
       Else
         Set oWkBk = ActiveWorkbook
       End If
        
      
    End Sub                  'Auto_Open()
    Don't know if you need this or not but someone may.

    RG
    May the Forces of good computing be with you!

    RG

    PowerShell & VBA Rule!

    My Systems: Desktop Specs
    Laptop Specs

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •