Bloat file size

[SIGE]

Hello,

I have a workbook in which I have a bit of code ... a couple userforms, a couple modules.

Which is 90kb in size.
On 1 of the sheets i hide "all" columns and "all" rows ... well, A1:Z100 remains visible.
after saving the file, it becomes 2890 kb ... I tried this several times now, with always the same result.

any suggestions?

Sige

 

[RoryA]

Don't hide them?
Which version of Excel - on 2003 hiding makes almost no difference at all for me (40 vs 42 KB)

 

[Unleash]

Same here...

I did as you said and my filesize went from 40kb to 43kb. I am also using excel 2003.

So maybe thats because of the version, or because of something else you are doing in your workbook?

 

[RoryA]

Did the same thing with 2010 as an xlsm (no actual code) and it went from 8KB to 8KB.

 

[SIGE]

Hi,
I m using Excel 2007.

With a blank workbook it does not make a difference... it goes from 8kb to 9kb.

but with my specific wb... is 2900 kb a little bit much.

Sige

 

[RoryA]

Did you just hide the rows and columns or did you also run code in between?

 

[SIGE]

just hiding the cols and rows. Save the sheet with a pwd.
Then closing the wb which fires a sheet hiding procedure.
That's all i did.

 

[RoryA]

So not just hiding rows then!
Encrypting it will increase file size; I don't know what your code may do additionally.

 

[SIGE]

Voila my _BeforeClose sub ... I do not see a lot of "violence" in it.
Or?


Private Sub Workbook_BeforeClose(Cancel As Boolean)

'Clear Current Session's User Name
With UserAdministration
.Unprotect pword
.Cells.Locked = False
.Range("A3") = ""
.Cells.Locked = True
.Protect pword
End With

'hide all sheets except warning sheet
For Each WS In ThisWorkbook.Sheets
If WS.Name = wsWarningSheet Then


WS.Visible = True

Else
WS.Visible = xlVeryHidden
End If
Next
'record opening in remote cell
With EnableMacrosPlease
.Unprotect "splashpassword"
With Sheets(wsWarningSheet).Cells(Rows.Count, Columns.Count)
.Value = .Value + 1
End With
.Protect "splashpassword"
End With

Call ToggleScreen(True)

End Sub

 

[RoryA]

I suspect this bit:

With UserAdministration
 .Unprotect pword
 .Cells.Locked = False
 .Range("A3") = ""
 .Cells.Locked = True
 .Protect pword
 End With

since you explicitly format every cell on the sheet - and I can't see why?