Skjule ark

Navngiv din celle M19 til "VisPenge", så peger makroen på cellen selvom der indættes linier i arket.

Private Sub Worksheet_Deactivate()
If Range("VisPenge") = 0 Then
Sheets("Penge").Visible = False
Else
If Range("VisPenge") = 1 Then
Sheets("Penge").Visible = True
Else
End If
End If
End Sub

Rettet til arknavn "penge" istedet for "Penge".

Private Sub Worksheet_Deactivate()
If Range("VisPenge") = 0 Then
Sheets("penge").Visible = False
Else
If Range("VisPenge") = 1 Then
Sheets("penge").Visible = True
Else
End If
End If
End Sub

Perfekt. Tak skal du have.

Kom med et svar, så får du point.

et svar :)

Et lille bonus spørgsmål som du måske gider at hjælpe med.

Hvorfor fylder mit Excel-ark så meget. Der er ca. 15-20 faneblade, ca. 30 makroer, en lille værktøjslinie og nogle skemaer i alle ark. Men uden at der overhovedet er fyldt tal ind i arkene endnu fylder den ca. 2,3 MB.

Prøv evt. denne løsning:

http://www.vbaexpress.com/kb/getarticle.php?kb_id=83

Den kommer til at fylde ca 200 kb mindre men til gengæld smadrer også hele mit ark. Så den er desværre ikke så brugbar.

Nu fandt jeg en løsning. Det drejer sig sikkert som flere ved, om Excel der har udvidet range på arkene og tror at den sidst anvendte kolonne/række er meget "langt nede".

I mit regneark drejede det sig om ét ark hvor Excel troede at "enden" var i celle G65..., meget langt ned. Jeg har dog aldrig skrevet noget så langt nede.

Jeg slettede alle rækker fra række 20 til 65... og det gjorde at min fil nu fylder 875 kb.