Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon TIOSIFI vom 11.03.2022, 11:01 Options
Trotz Blattschutz ein-/ausblenden von Zeilen über Optionsfeld
Hallo an alle,
ich hab ein ExcelSheet auf dem ich zwei Optionsfelder eingerichtet habe.
Durch die Auswahl "1" möchte ich Zeile 19 bis 30 ausblenden und durch Auswahl "2" wieder einblenden. ich möchte aber das Blatt schützen und nur bestimmte Felder zur Bearbeitung freigeben.
Als VBA habe ich unter "Diese Arbeitsmappe" folgenden Code eingetragen:
Sub ausblend()
ActiveSheet.Unprotect "1234"
ActiveSheet.Rows("19:30").Hidden = True
ActiveSheet.Protect "1234"
End Sub
Sub einblend()
ActiveSheet.Unprotect "1234"
ActiveSheet.Rows("19:30").Hidden = False
ActiveSheet.Protect "1234"
End Sub
nach Betätigung der Optionsfelder kommt die Anzeige: Die Zelle oder das ...., ist schreibgeschützt. ...
Wenn ich dann OK drücke funktioniert meine Ein/Ausblendung aber im Optionsfeld stimmen die "Punkte" nicht und die Anzeige "Die Zelle ..." will ich auch nicht haben.
Also jetzt hab ich hoffentlich alles geschrieben und hoffe auf eure Hilfe
Danke im Voraus
MATZE
ich hab ein ExcelSheet auf dem ich zwei Optionsfelder eingerichtet habe.
Durch die Auswahl "1" möchte ich Zeile 19 bis 30 ausblenden und durch Auswahl "2" wieder einblenden. ich möchte aber das Blatt schützen und nur bestimmte Felder zur Bearbeitung freigeben.
Als VBA habe ich unter "Diese Arbeitsmappe" folgenden Code eingetragen:
Sub ausblend()
ActiveSheet.Unprotect "1234"
ActiveSheet.Rows("19:30").Hidden = True
ActiveSheet.Protect "1234"
End Sub
Sub einblend()
ActiveSheet.Unprotect "1234"
ActiveSheet.Rows("19:30").Hidden = False
ActiveSheet.Protect "1234"
End Sub
nach Betätigung der Optionsfelder kommt die Anzeige: Die Zelle oder das ...., ist schreibgeschützt. ...
Wenn ich dann OK drücke funktioniert meine Ein/Ausblendung aber im Optionsfeld stimmen die "Punkte" nicht und die Anzeige "Die Zelle ..." will ich auch nicht haben.
Also jetzt hab ich hoffentlich alles geschrieben und hoffe auf eure Hilfe
Danke im Voraus
MATZE
Antwort 1 von Hajo_Zi vom 11.03.2022, 11:15 Options
Hallo Matze,
das ist ja nur ein Teil des Codes. Der ist korrekt.
Ich hätte anber nur ein Code benutzt.
Sub blenden()
ActiveSheet.Unprotect "1234"
ActiveSheet.Rows("19:30").Hidden =not ActiveSheet.Rows("19").Hidden
ActiveSheet.Protect "1234"
End Sub
Ich vermute Du siehst den Unterschied, das ich es nur in einer Zeile prüfe.
Gruß Hajo
das ist ja nur ein Teil des Codes. Der ist korrekt.
Ich hätte anber nur ein Code benutzt.
Sub blenden()
ActiveSheet.Unprotect "1234"
ActiveSheet.Rows("19:30").Hidden =not ActiveSheet.Rows("19").Hidden
ActiveSheet.Protect "1234"
End Sub
Ich vermute Du siehst den Unterschied, das ich es nur in einer Zeile prüfe.
Gruß Hajo
Antwort 2 von TIOSIFI vom 11.03.2022, 11:44 Options
Hallo Hajo,
danke erstmal für deine schnelle Antwort.
deine Lösung ist nicht schlecht nun muß ich zwar mein Sheet umbauen da ich die zwei Optionsfelder mit Texten zur Auswahl beschriftet hatte. Das werde ich jetzt durch "Eintrag in Feld X" erledigen müssen. Leider hab ich keine Möglichkeit gefunden meine Tabelle hier zu Posten damit eindeutig klar ist was ich will.
gar nicht so einfach seine gedanken zu Formulieren.
Also vielen Dank erstmal.
Gruss
Matze
danke erstmal für deine schnelle Antwort.
deine Lösung ist nicht schlecht nun muß ich zwar mein Sheet umbauen da ich die zwei Optionsfelder mit Texten zur Auswahl beschriftet hatte. Das werde ich jetzt durch "Eintrag in Feld X" erledigen müssen. Leider hab ich keine Möglichkeit gefunden meine Tabelle hier zu Posten damit eindeutig klar ist was ich will.
gar nicht so einfach seine gedanken zu Formulieren.
Also vielen Dank erstmal.
Gruss
Matze
Antwort 3 von Hajo_Zi vom 11.03.2022, 12:06 Options
Hallo Matze,
das Forum hat so wa nicht, für 100 Tage hier http://www.uploadagent.de/index.php
Gruß Hajo
das Forum hat so wa nicht, für 100 Tage hier http://www.uploadagent.de/index.php
Gruß Hajo
Ähnliche Themen
Zeilen einblend verbieten bei Blattschutz
Platin7 20.11.2008 - 8 Hits - 3 Antworten
Zeilen ausblenden
jockel01 28.11.2008 - 29 Hits - 1 Antwort
Makro trotz Blattschutz
Musby 27.01.2009 - 38 Hits - 3 Antworten
zeilen ausblenden
nero00022 12.03.2009 - 201 Hits - 2 Antworten
Excel VBA: Spalten ausblenden mit Blattschutz
Datjodie 18.07.2009 - 467 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
