Workbook Open Events do not run

[davidam]

Hello,
I am trying to make workbook open events run but they will not.

I run a macro from another sheet:

Public Sub Open_Chart()
Application.EnableEvents = True
Workbooks.Open Filename:="C:\CLIPr\CCharts.xls"
End Sub

So there should be no problem with events running.

This is the Workbook Open macro

Private Sub Workbook_Open()
Worksheets("CR").Activate
ActiveSheet.Unprotect Password:=PW
ActiveWindow.FreezePanes = False
Range("A5").Select
ActiveWindow.ScrollRow = 1
Application.ScreenUpdating = True
ActiveSheet.Protect Password:=PW
End Sub

Any suggestions?

 

[VoG]

Did you put the Workbook_Open code in the ThisWorkbook module of the file being opened?

 

[davidam]

yes

 

[VoG]

I tried

Public Sub Open_Chart()
Application.EnableEvents = True
Workbooks.Open Filename:="C:\Test\Book1.xlsm"
End Sub

to open a file with this

Private Sub Workbook_Open()
Worksheets("CR").Activate
ActiveSheet.Unprotect Password:="PW"
ActiveWindow.FreezePanes = False
Range("A5").Select
ActiveWindow.ScrollRow = 1
Application.ScreenUpdating = True
ActiveSheet.Protect Password:="PW"
End Sub

and the event code ran.

 

[davidam]

I tried my code on a test workbook and it opened with or without the "".
I only have the following other events in the workbook:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect Password:=PW
If Not Intersect(Target, Range("R8:R10,R12:R14")) Is Nothing Then
 If Target = "o" Then
 Target = "R"
 ActiveCell.Select
 With Selection.Font
        .Name = "Wingdings 2"
        .Size = 10
        .Bold = True
   End With
   With Selection
         .HorizontalAlignment = xlRight
   End With
 Else: Target = "o"
 ActiveCell.Select
  With Selection.Font
        .Name = "Wingdings"
        .Size = 10
        .Bold = False
  End With
   With Selection
         .HorizontalAlignment = xlRight
   End With
 End If
End If
Application.ScreenUpdating = True
If ActiveCell.Column = 18 Then
Application.SendKeys "{TAB}"
End If
ActiveSheet.Protect Password:=PW
End Sub

This workbooks was modified and trimmed down from a much larger workbook...I wonder if there could be some unseen bug that I will only get rid of if I start again...I had to do that once before when I could not get rid of a "only Comments may appear after End Sub".

 

[VoG]

The event code should definitely fire. In fact a fairly frequent question is how to stop it from firing.

Maybe rebuild your workbook http://www.mrexcel.com/forum/showthread.php?t=223851

 

[davidam]

I fear this is what I must do...sigh... a lot of work. Will report the result for any who might be interested.

 

[davidam]

Peter, you have saved the day for me yet again!
I tried adding the quotation marks to the password and I got an error on message on Workbook Open...thus it must be firing. It is old programming that is the problem because the worksheet in question was hidden...just needed to put unhide into the open event code and it all works fine.
Thank you!

 

[VoG]

Hallelujah!