Clever-Excel-Forum

Hallo Leute,
ich habe eben bemerkt, das wenn ich eine Zelle sperre, 
das ich diesen VBA Code nicht mehr nutzen kann.

Sub Ein_Aus_blenden_2()
If Columns("c:d").Hidden = True Then
    Columns("c:d").Hidden = False
    Columns("j:j").Hidden = True
Else
    Columns("c:d").Hidden = True
    Columns("j:j").Hidden = False
End If
End Sub


Ich bekomme dann einen VBA for Application 400 Error
Kann mir jemand helfen?
Danke Gruß Phoeni

Hallo,
du musst dazu Excel erlauben, trotz Blattschutz VBA-Code ausführen zu dürfen. Das macht man beim Öffnen der Datei. Diesen Code in das Arbeitsmappen-Modul:


UserInterFaceOnly:=True ist der Befehl, der das entsprechend zulässt.

He, danke. Leider ändert sich dort nichts. Die Fehlermeldung ist die selbe.
Gruß Phoeni

Hab grad erst gesehen, dass du Fehlercode 400 hast
https://howto.mediadoma.com/de/vba-fehle...s-behoben/

Wenn das nicht hilft, weiß ich auch nicht weiter.

ok, funktioniert auch nicht.
Hat jemand denn eine Lösung?

Hi

wird sehr oft so gemacht. Im Code ent- und wieder sperren.

Sub Ein_Aus_blenden_2()
hier entsp.
If Columns("c:d").Hidden = True Then
    Columns("c:d").Hidden = False
    Columns("j:j").Hidden = True
Else
    Columns("c:d").Hidden = True
    Columns("j:j").Hidden = False
End If
hier sperren
End Sub

Hallo, 
auch das funktioniert nicht.
Gruß Phoeni

Dann wird es Zeit für eine Bsp.Datei.

jep, gute Idee ;)
siehe Anhang

Hi

Ok. Völlig neu in der Materie oder?

https://www.automateexcel.com/de/vba/sch...sblaetter/

Gruß Elex