Code runs slow in the new excel (Office 365)

[trimmjens]

My company just converted to the new office 365.
I noticed that some of the VBA codes in my workbooks are executing very slow compared to the previous version

I'm wondering why this is and is it a way around it?
Are there new features in the new version that may affect VBA code execution?

Appreciate all replies

 

[mole999]

is your file hosted locally on your machine with references or off in the cloud somewhere

 

[trimmjens]

Thanks for the reply , mole999

The file is located on the company server that everyone uses, but I have also copies of the
file on my personal user. Nothing has changed other than the MS Office version.

 

[MARK858]

Try turning off your animation (if not already done) and see if it makes a difference.
File>Options>Advanced>Display, Then check "Disable Hardware Graphics Acceleration"

If this isn't the issue does your code use protection or save?

 

[trimmjens]

I did what you suggested, MARK858, but it's still the same.

The code actually use protecting/unprotecting. Does this take longer in the new version?

 

[MARK858]

I did what you suggested, MARK858, but it's still the same.

The code actually use protecting/unprotecting. Does this take longer in the new version?

Did at one time and don't know if it ever got resolved as I don't run 365/2013 at home to test.
Please see the link below which discusses the matter and offers a few workarounds on page 2.

Macro(VBA) works too much slowly in excel 2013

 

[trimmjens]

Did at one time and don't know if it ever got resolved as I don't run 365/2013 at home to test.
Please see the link below which discusses the matter and offers a few workarounds on page 2.

Macro(VBA) works too much slowly in excel 2013

It seems for me that I have to deal with the slower code execution. Guess it has to do with the new algorithm for password protection.

It's not the end of the world for me anyway. The code takes about 3,6 sec compared to 0,something before the change.

Thank you anyway for your help!

 

[mole999]

maybe some of the subs could be improved ?

 

[MARK858]

Guess it has to do with the new algorithm for password protection.

Why would you need to guess? If you comment out the protection in the code and run it you will soon see if it is the protection causing the issue

maybe some of the subs could be improved ?

As mole999 states, why not post your code in case someone can see something that can be improved?

 

[trimmjens]

Why would you need to guess? If you comment out the protection in the code and run it you will soon see if it is the protection causing the issue



As mole999 states, why not post your code in case someone can see something that can be improved?

I know it is the protection that causes the delay because i put the "Debug.Print Timer - Start" in font and behind the protection section.

Not a stupid idea mole999. Maybe someone sees something that I don't. Here is my code:

Private Sub CommandButton2_Click()
'Beskytt

Start = Timer

If Sheets("Well Data").ProtectContents = True Then Exit sub

With Application
    .Cursor = xlWait
    .EnableCancelKey = xlDisabled
End With
    
    On Error Resume Next
    Alternativer.Caption = ("Alternativer " + Sheets("Well Data").Range("H4").Value + " - beskyttet")
    Sheets("Well Data").Range("B3") = "BESKYTTET"
    Alternativer.Label17.Visible = False

    Application.ScreenUpdating = False

    ActiveWorkbook.Protect Structure:=True, Windows:=False, Password:="blabla..."
    
    Dim ws As Worksheet
    For Each ws In Worksheets
    ws.Protect "blabla..."
    Next
    
'Avbryt
    Me.CommandButton9.Visible = False
    Me.CommandButton11.Visible = False
    Me.CommandButton5.Enabled = True
    
    Me.TextBox1.Value = ""
    Me.TextBox2.Value = ""
    Me.TextBox3.Value = ""
    With Me.TextBox4
        .Locked = True
        .BackStyle = fmBackStyleTransparent
        .Text = Sheets("Hidden").Range("L1")
        .SelStart = 0
    End With
    
    Application.Cursor = xlDefault
    
    Debug.Print Timer - Start

End Sub