Help with VBA Code Trying to get code to run on all sheets on open of the spreadsheet

[Norto]

Hi,

I have been trying to get a code to work on my spreadsheet that runs as soon as you open the spreadsheet file. The code allows for the grouped rows to be seen or not seen depending on the user but doesn't allow any of the cells to be edited unless you have the password (basically like a protected sheet).

I have attached screenshot of the spreadsheet as well as the code I have been trying to manipulate. I'm very new to coding and only teaching myself (with the help of this forum and youtube) so go easy on me if I have the total wrong code or something.

Thanks
Regards
Norto

here is the code.

Sub Workbook_Open()
Dim Dosomething()
Dim xSh As Worksheet
Application.ScreenUpdating = False
For Each xSh In Worksheets
xSh.Select
Call RunCode
Next
Application.ScreenUpdating = True
End Sub
Sub RunCode()
Dim OnEdit
Dim EnableOutlining()
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
Dim xPws As String
xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True

End Sub

Here is the front page of the sheet.

 

[HighAndWilder]

Is the problem that the code does not run at all?

If it is then have you put the code in the ThisWorkbook Module?

 

[Norto]

No the code works just doesn't work as I want it to.
Which is, as soon as the spreadsheet has been opened and across all worksheets.

regards,
Norto

 

[HighAndWilder]

First thing to do is to get the code to work when you open the workbook.

Substitute the code that you have with the code below and let us know if it works.

If it does work just build up from there. If not then you probably do not have the code in the ThisWorkbook module.

Sub Workbook_Open() 
     MsgBox "It works"
end Sub

Then substitute the code below.

Sub Workbook_Open()
Dim xSh As Worksheet
    
    Application.ScreenUpdating = False
    
    For Each xSh In Worksheets
        MsgBox xSh.Name
    Next
       
    Application.ScreenUpdating = True
    
End Sub

 

[Norto]

Thanks Heaps I'll give it a go and let you know.
regards,
Norto

 

[Norto]

First thing to do is to get the code to work when you open the workbook.

Substitute the code that you have with the code below and let us know if it works.

If it does work just build up from there. If not then you probably do not have the code in the ThisWorkbook module.

Sub Workbook_Open()
     MsgBox "It works"
end Sub

Then substitute the code below.

Sub Workbook_Open()
Dim xSh As Worksheet
   
    Application.ScreenUpdating = False
   
    For Each xSh In Worksheets
        MsgBox xSh.Name
    Next
      
    Application.ScreenUpdating = True
   
End Sub

Thanks Mate,

That has worked perfectly, now just to get the outlining working with protected cells and I will be good to go.

Regards,
Norto.