Supportnet / Forum / Tabellenkalkulation
Zellen verstecken (aber nicht mit " ;;; ")
Frage
Ich habe da eine Frage bezüglich des Versteckens von Zellen. Den Trick mit " ;;; " kenne ich und wenn ich das Blatt dann schütze dann steht auch in der Eingabezeile nichts mehr (genau das will ich auch). Lieder können andere dann meine Gruppierungen nicht mehr benutzen... :(
Gibt es noch eine andere Möglichkeit bestimmte Zellen auszublenden und nur durch Passwort oder ähnliches sichtbar zu machen???
Danke.
Sunny
Antwort 1 von Hajo_Zi
Hallo Sunny,
warum können die GRuppierung nicht benutzen?
Autofilterfunktion, Gruppierung bei Blattschutz möglich?
Diese Frage wurde in diesem Forum auch schon gestellt. Die Lösung damals:
Das funktioniert normalerweise nicht. Du kannst Excel aber austricksen.
Bevor Du auf Blattschützen stellst, blendest Du die Filter ein.
Dann schützt Du das Blatt
Jetzt folgendes Makro in VBA unter DieseArbeitsmappe
Sub Workbook_Open()
Sheets("Adresse").Protect UserInterfaceOnly:=True, Password:="Passwort"
Sheets("Adresse").EnableOutlining = True ´ Für Gliederung
Sheets("Adresse").EnableAutoFilter = True ´ Für AutoFilter
End Sub
Gruß Hajo
warum können die GRuppierung nicht benutzen?
Autofilterfunktion, Gruppierung bei Blattschutz möglich?
Diese Frage wurde in diesem Forum auch schon gestellt. Die Lösung damals:
Das funktioniert normalerweise nicht. Du kannst Excel aber austricksen.
Bevor Du auf Blattschützen stellst, blendest Du die Filter ein.
Dann schützt Du das Blatt
Jetzt folgendes Makro in VBA unter DieseArbeitsmappe
Sub Workbook_Open()
Sheets("Adresse").Protect UserInterfaceOnly:=True, Password:="Passwort"
Sheets("Adresse").EnableOutlining = True ´ Für Gliederung
Sheets("Adresse").EnableAutoFilter = True ´ Für AutoFilter
End Sub
Gruß Hajo
Antwort 2 von Sunny1982
Genau die Lösung habe ich auch gesehen. Nur funktioniert das nicht... Macht es einen Unterschied, dass die Tabelle selbst mit Passwort und Schreibschutz und selbst noch der Blattschutz ein Passwort hat?
Sunny
Sunny
Antwort 3 von Hajo_Zi
Hallo Sunny,
Du gibst das Passwort doch im Code an!
Was Du mit
"selbst noch der Blattschutz ein Passwort hat? "
meinst ist mir nicht klar.
Gruß Hajo
Du gibst das Passwort doch im Code an!
Was Du mit
"selbst noch der Blattschutz ein Passwort hat? "
meinst ist mir nicht klar.
Gruß Hajo
Antwort 4 von Sunny1982
Hey Hajo,
Also das Excelobjekt (mit gaaanz vielen Blättern =) ) ist durch ein Passwort (z.B. 1) geschützt, damit nicht jeder die Mappe aufmachen kann. Damit nicht jeder darin schreiben darf (die meisten haben nur Leseberechtigung) gibt es ein Schreibpasswort (z.B. 2). Diese beiden Passwörter finden sich unter Einstellungen.
Schließlich sollen aber nur zwei Leute die versteckten Infos sehen dürfen, also bekommt das Tabellenblatt (z.B. Ark1) einen Schreibschutz (z.B. 3) der mir ja dann leider die Gruppierungen ausklinkt...
Muss ich bevor ich in VB einfüge, die Schreibschutz rausnehmen? Was ich geschrieben hatte sah so aus:
Option Explicit
Private Sub Worksheet_Activate()
End Sub
With Worksheet("Ark")
.Protect UserInterfaceOnly:=True, Password:="3"
.EnableOutlining = True
End With
End Sub
Deins hat aber leider auch keinen Untreschied gebracht... War mir ab einem Zeitpunkt nicht mehr sicher welches Passwort ich eingeben muss und habe (denke ich) alle drei Varianten durch - noch immer ohne Erfolg :(
Ich mache garantiert wieder irgendeine Kleinigkeit falsch... (und brauch wohl nicht erwähnen, dass das alles Neuland für mich ist =) )
Sunny
Also das Excelobjekt (mit gaaanz vielen Blättern =) ) ist durch ein Passwort (z.B. 1) geschützt, damit nicht jeder die Mappe aufmachen kann. Damit nicht jeder darin schreiben darf (die meisten haben nur Leseberechtigung) gibt es ein Schreibpasswort (z.B. 2). Diese beiden Passwörter finden sich unter Einstellungen.
Schließlich sollen aber nur zwei Leute die versteckten Infos sehen dürfen, also bekommt das Tabellenblatt (z.B. Ark1) einen Schreibschutz (z.B. 3) der mir ja dann leider die Gruppierungen ausklinkt...
Muss ich bevor ich in VB einfüge, die Schreibschutz rausnehmen? Was ich geschrieben hatte sah so aus:
Option Explicit
Private Sub Worksheet_Activate()
End Sub
With Worksheet("Ark")
.Protect UserInterfaceOnly:=True, Password:="3"
.EnableOutlining = True
End With
End Sub
Deins hat aber leider auch keinen Untreschied gebracht... War mir ab einem Zeitpunkt nicht mehr sicher welches Passwort ich eingeben muss und habe (denke ich) alle drei Varianten durch - noch immer ohne Erfolg :(
Ich mache garantiert wieder irgendeine Kleinigkeit falsch... (und brauch wohl nicht erwähnen, dass das alles Neuland für mich ist =) )
Sunny
Antwort 5 von Hajo_Zi
Hallo unny,
Du hast oben ein End Sub zu viel.
Ich habe jetzt keine Zeit um das zu Testen, das die Datei auch geschützt ist.
Gruß Hajo
Du hast oben ein End Sub zu viel.
Ich habe jetzt keine Zeit um das zu Testen, das die Datei auch geschützt ist.
Gruß Hajo
Antwort 6 von Sunny1982
Ich habe es rausgenommen, aber Du könntest Recht haben, dass irgendwo mit dem Schreibschutz der Hund begraben liegt :( Mist...
Sunny
Sunny
Antwort 7 von Hajo_Zi
Hallo Sunny,
warum bentzt Du Activate und nicht Open?
Ich glaube ist das Blatt schon Aktiv wird aktivate nicht ausgeführt.
Gruß Hajo
warum bentzt Du Activate und nicht Open?
Ich glaube ist das Blatt schon Aktiv wird aktivate nicht ausgeführt.
Gruß Hajo
Antwort 8 von Sunny1982
Hallo Hajo
das ist hier echt zum Mäuse melken... Habe jetzt einfach wieder Deinen VBA genommen.. mit dem leidigen Ergebnis, dass es hakt...
Private Sub Workbook_Open()
ActiveSheet.Protect UserInterfaceOnly:=True, Password:="3"
ActiveSheet.EnableOutlining = True ´ Für Gliederung
End Sub
Das passwort ist doch das des Blattschutzes. richtig? Und eigentlich sollte sich daran auch nichts ändern, dass die ganze Datei als solche geschützt ist, oder? Schließlich gehen meine anderen Makros auch...
Das Sub steht auch in dem entsprechenden Blatt, und eine Namensanpassung ist ja wegen Acitve nicht nötig, richtig?
Nur ohne den Schutz aufzuheben lässt micht Excel nicht an meine Gruppierungen ran. Ich versteh hier gar nix mehr (oder Excel micht nicht mehr =) )...
Sunny
das ist hier echt zum Mäuse melken... Habe jetzt einfach wieder Deinen VBA genommen.. mit dem leidigen Ergebnis, dass es hakt...
Private Sub Workbook_Open()
ActiveSheet.Protect UserInterfaceOnly:=True, Password:="3"
ActiveSheet.EnableOutlining = True ´ Für Gliederung
End Sub
Das passwort ist doch das des Blattschutzes. richtig? Und eigentlich sollte sich daran auch nichts ändern, dass die ganze Datei als solche geschützt ist, oder? Schließlich gehen meine anderen Makros auch...
Das Sub steht auch in dem entsprechenden Blatt, und eine Namensanpassung ist ja wegen Acitve nicht nötig, richtig?
Nur ohne den Schutz aufzuheben lässt micht Excel nicht an meine Gruppierungen ran. Ich versteh hier gar nix mehr (oder Excel micht nicht mehr =) )...
Sunny
Antwort 9 von Sunny1982
Gäbe es sonst vielleicht eine andere Möglichkeit meine Zellen auszublenden (leider nicht die kompletten Zeilen). Ich glaube wenn ich die Zellen mit Makro händisch aus- & einblende, reicht mir das erstmal weil die anderen noch nie was von Markos gehört haben und ALT+F8 nicht kennen =)