Workshop_Open

[KenMcKenzie]

Hi. Apologies if I haven't got this right or if the thread exists -this is the first time I've posted.
I've set up some code to switch off that pesky Autorecover. Below is the code in PERSONAL.xlsb:ThisWorkbook:

Public WithEvents App As Application

Private Sub Workbook_Open()
    'runs once per Excel session when Personal.xlsb is opened
    'Needed to make next sub work
      Set App = Application
    End Sub

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
    'This will run everytime a workbook is opened
     If ActiveWorkbook.AutoSaveOn = True Then ActiveWorkbook.AutoSaveOn = False
    End Sub

This works fine when opening a workbook from within Excel. But if Excel isn't running and you double-click a file in Explorer, you get Runtime error '91' - variable not set.
I've tried various WAITs to allow Excel to open fully but doesn't make any difference.
Any suggestions would be appreciated.
KenMcKenzie

 

[RoryA]

Welcome to the forum.

That code should actually be:

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
    'This will run everytime a workbook is opened
     If wb.AutoSaveOn = True Then wb.AutoSaveOn = False
    End Sub

 

[KenMcKenzie]

Welcome to the forum.

That code should actually be:

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
    'This will run everytime a workbook is opened
     If wb.AutoSaveOn = True Then wb.AutoSaveOn = False
    End Sub

Thank you for such a quick reply.
And it works perfectly.
What a great forum.

KenMcKenzie