Excel code runs very slowly

[09Tina]

Hi, I have a code that excel runs very slowly (about 3 or 4 minutes) and i don't know what the problem is. I tried with option to put calculation on manually but it's not helpful at all, I also tried put it into a code, it didn't worked. Please help!
My code:

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

 Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
 Dim WS As Worksheet
Set WS = Sheets("Sheet1")
With WS
    .Unprotect Password:="0000"
    .UsedRange.Locked = True
    .UsedRange.SpecialCells(xlCellTypeBlanks).Locked = False
    .Protect Password:="0000"
End With

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Exit Sub

End Sub

 

[VBE313]

Maybe try this

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Application.EnableEvents = False
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim WS As Worksheet
    Set WS = Sheets("Sheet1")
    With WS
        .Unprotect Password:="0000"
        .UsedRange.Locked = True
        .UsedRange.SpecialCells(xlCellTypeBlanks).Locked = False
        .Protect Password:="0000"
    End With
Application.EnableEvents = True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[09Tina]

I tried, the same thing as before. :/

 

[Fluff]

If you select cell A1 on sheet1 & use Ctrl End, where do you end up?

 

[09Tina]

I end up on cell A1048567.

 

[09Tina]

I set the range to 10 000 data and now its fine.

 

[Fluff]

I would also suggest deleting all the rows below the last row data may well speed other things up as well & reduce the size of the file.