Debugging VBA Code

[Spikenaylor]

We are trying to Debug/verify code as part of our validation process

simple spreadsheet

code to auto lock on open and auto lock and save on close

Option Explicit


Private Sub Workbook_Open()


    Dim i As Long
    ThisWorkbook.Unprotect SheetPasswrd
    Application.WindowState = xlMaximized
    ThisWorkbook.Protect SheetPasswrd


    For i = 1 To Sheets.Count
        Sheets(i).Protect SheetPasswrd
    Next i


End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ScreenUpdating = False
    
    Dim i As Long
    For i = 1 To Sheets.Count
        Sheets(i).Protect SheetPasswrd
    Next i
    
    ThisWorkbook.Protect SheetPasswrd
    Application.ScreenUpdating = True
    ActiveWorkbook.Close Savechanges:=True
    
End Sub

We can run through the debugging (F8) for the Workbook_Open

but cannot get the dubugging to run for the Workbook_BeforeClose

any idea why?

Regards
Thanks for looking

 

[mole999]

a couple of the subs I find tend to need a trigger so i would try

Sub Test
Workbook_BeforeClose
End Sub

 

[Norie]

Put a breakpoint (F9) on this line of code,

Private Sub Workbook_BeforeClose(Cancel As Boolean)

and then when you close the workbook you should go into break mode where you can debug.

 

[Fluff]

Any sub that contains parameters the part inside the () cannot be run directly.
You either have to call it from another sub, as per mole999
Put a breakpoint, as per Norie
or put Stop as the first line of code.