Excel Blattschutz mit diversen Makros

Computer: Software & Programmierung Office Software
1

Hallo, Ihr Experten,

ich scheitere mal wieder ohne Hilfe:

Habe eine Tabelle gebastelt, die mit mehreren Makros Zeiten erfasst und abrechnet. Für die Nutzer soll nur Eingabe möglich sein, alle Berechnungen (viele Spalten) sind ausgeblendet.
Mein „einziges“ Problem ist eine Art Gliederung: Über Umschaltflächen können die Monate Jan - Dez ein- und ausgeblendet werden. Eins der (Monats-)Makros dazu:

Sub Januar_ausblenden()
.ActiveSheet.Protect UserInterfaceOnly:=True
.Rows(„11:39“).Select
.Range(„B11“).Activate
.Selection.EntireRow.Hidden = True
End Sub

Sub Januar_einblenden()
.ActiveSheet.Protect UserInterfaceOnly:=True
.Rows(„11:39“).Select
.Selection.EntireRow.Hidden = False
.Range(„A10:A40“).Select
End Sub

Alles klappt, aber nicht mit „passwortgeschütztem“ Blattschutz.
Was mache ich nur falsch???
Vielen Dank schon mal,
petsch

2

Habe eine Tabelle gebastelt, die mit mehreren Makros Zeiten
erfasst und abrechnet. Für die Nutzer soll nur Eingabe möglich
sein, alle Berechnungen (viele Spalten) sind ausgeblendet.
Mein „einziges“ Problem ist eine Art Gliederung: Über
Umschaltflächen können die Monate Jan - Dez ein- und
ausgeblendet werden. Eins der (Monats-)Makros dazu:

Sub Januar_ausblenden()
.ActiveSheet.Protect UserInterfaceOnly:=True
.Rows(„11:39“).Select
.Range(„B11“).Activate
.Selection.EntireRow.Hidden = True
End Sub

Sub Januar_einblenden()
.ActiveSheet.Protect UserInterfaceOnly:=True
.Rows(„11:39“).Select
.Selection.EntireRow.Hidden = False
.Range(„A10:A40“).Select
End Sub

Alles klappt, aber nicht mit „passwortgeschütztem“
Blattschutz.

Hallo Petsch,

die gezeigten Codes können gar nicht „klappen“. Zeig mal die richtigen.

Und prinzipiell würde ich bei so Codes am Anfang den passwortschutz aufheben mit UnProtect, dann ein- oder ausblenden, dann das passwort wieder setzen.

Und Select ist nich vonnöten wie so oft,
Rows(„11:39“).EntireRow.Hidden = False
reicht auch dicke.

Gruß
Reinhard