Leerfelder ausblenden bei geschütztem Blatt

[pd90]

Hallo Zusammen,

ich habe folgendes Problem.

Meine Excel Kalkulation umfasst 50 Zeilen.

Ich habe mir einen Button erstellt "Leerfelder ausblenden/Leerfelder einblenden"
Dieser funktionier ganz gut.

Allerdings möchte ich das Blatt schützen (also nur einige Felder freigeben), sodass andere Kollegen die hinterlegten Formeln nicht zerschießen.

Sobald ich es geschützt habe, funktioniert mein Button nicht mehr.


Vielleicht hat ja einer eine Idee.



Private Static Sub CommandButton2_Click()       'Ausblenden unbenutzter Bereiche
    Dim intClick As Integer
    Select Case intClick
        Case 0
            If Range("C9").Value = 0 Then Rows("9").Hidden = True
CommandButton1.Caption = "Leerfelder einblenden"

 Case 1
            Rows("9").Hidden = False
CommandButton1.Caption = "Leerfelder ausblenden"
            intClick = -1
        
    End Select
    intClick = intClick + 1
End Sub

[00202]

Hallo, :19:

lies dir das mal in Ruhe durch: :21:

UserInterfaceOnly...