No gridlines

[mickeystanford_alumni]

Hi guys,
Is there any way to get rid of the gridlines forever? Maybe a code to do so?
I have an big excel where I have to manually click on: View/Gridlines, however, when I save the file, the next day I open it it is again with the gridlines.

Any help?

Thxs a lot

 

[rollis13]

Since you are saving the workbook, by default, it should maintain the condition. Anyway you could add this code to the ThisWorkBook module:

Option Explicit
Private Sub Workbook_Open()
    ActiveWindow.DisplayGridlines = False
End Sub

This gets rid of the gridlines in the active sheet. If it has to be done on all sheets you can add a loop to do so.

 

[Legacy 143009]

Paste this code into Workbook:

Private Sub Workbook_Open()
  Dim ws As Worksheet
  Set ws = ActiveSheet
  Application.ScreenUpdating = False
  ReDim gridLines(Worksheets.Count - 1)
  For i = 0 To Worksheets.Count - 1
    Worksheets(i + 1).Activate
    ActiveWindow.DisplayGridlines = False
  Next
  ws.Activate
  Application.ScreenUpdating = True
End Sub

 

[mickeystanford_alumni]

Paste this code into Workbook:

Private Sub Workbook_Open()
  Dim ws As Worksheet
  Set ws = ActiveSheet
  Application.ScreenUpdating = False
  ReDim gridLines(Worksheets.Count - 1)
  For i = 0 To Worksheets.Count - 1
    Worksheets(i + 1).Activate
    ActiveWindow.DisplayGridlines = False
  Next
  ws.Activate
  Application.ScreenUpdating = True
End Sub

Thank you so much!

 

[Legacy 143009]

Thanks for the feedback You may delete the line below. I put it there for testing reasons:

ReDim gridLines(Worksheets.Count - 1)