HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Vorwärts blättern

Inhaltsverzeichnis

Columns verbergen/schützen

Forumthread: Columns verbergen/schützen
17 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Columns verbergen/schützen

04.09.2004 00:03:19

k.reffert

Hola, Dank eurer Hilfe hat mein Prozedürchen schon ordentlich Form angenommen, habe nur noch ein Problem: 2 Hilfsspalten (DA und DB, btw), die ich benötige, möchte ich nicht nur ausblenden, sondern dauerhaft verhindern, daß der Normal-User da ran kommt... Also ähnlich wie Worksheets("Tabelle2").Visible = False
Mit der Hilfe zu "Columns" komme ich nicht klar; könnt ihr mir vielleicht hier helfen? Darüber tät ich mich arg freuen, 1000 Dank vorab.
Karin

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Columns verbergen/schützen

PeterW
AW: Columns verbergen/schützen

k.reffert
AW: Columns verbergen/schützen

Dieter
AW: Columns verbergen/schützen

k.reffert
AW: Columns verbergen/schützen

PeterW
AW: Columns verbergen/schützen

04.09.2004 01:09:49

Nepumuk
AW: Columns verbergen/schützen

PeterW
Nachteile von Undo

Undo
AW: Columns verbergen/schützen

04.09.2004 10:18:33

k.reffert
Wer weiß mehr? Nur 16 mal Undo?

Beate
AW: Wer weiß mehr? Nur 16 mal Undo?

Bert
AW: Wer weiß mehr? Nur 16 mal Undo?

Michi
AW: Wer weiß mehr? Nur 16 mal Undo?

Bert
AW: Wer weiß mehr? Nur 16 mal Undo?

04.09.2004 19:45:21

Nepumuk
@Nepumuk

Beate
AW: Columns verbergen/schützen

04.09.2004 19:04:01

Nepumuk
AW: Columns verbergen/schützen

k.reffert

AW: Columns verbergen/schützen

PeterW

Hallo Karin,
mit Worksheets("Tabelle2").Visible = False lässt sich eine Tabelle über Format Blatt einblenden von fast jedem Excel-User wieder einblenden. ;-)
Kannst du die Hilfszeilen auf ein anderes Blatt auslagern und dieses mit Blattname.Visible = xlVeryHidden etwas "sicherer" ausblenden?
Gruß
Peter

AW: Columns verbergen/schützen

k.reffert

Vielen Dank, Peter, für diese Info.
Das Feature Format/Blatt/einblenden is' mir nie aufgefallen, wieder was dazugelernt...
Da ich in der einen Spalte einen SVERWEIS und in der angrenzenden eine ISTNV-Funktion habe,
die ich zum Berechnen des unsichtbaren Blattes brauche, dazu diverse Zeilen ausgeblendet sind, durch meinem Code auch noch diverse Zeilen gelöscht werden, kann ich mir noch nicht vorstellen, ob das mit Auslagern funktioniert?
Eine Idee habe ich noch: kann ich eine msgbox basteln, die immer dann mit ner warnung hochpoppt, wenn jemand eine Zelle dieser beiden spalten anklickt? Wie müsst ich da vorgehen, hast du einen Rat? Danke schön.
Karin

AW: Columns verbergen/schützen

Dieter

Hallo
kleiner Denkanstoss und vorallem auf die Schnelle:
blende beide Spalten aus und gib folgende Ereignisprozedur ein:


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Column = 105 Or Target.Column = 106 Then Range("a1").Select
End Sub

ist zwar kein 100% Schutz, aber man kommt nicht auf die Spalten
Gruß Dieter

AW: Columns verbergen/schützen

k.reffert

@dieter
hey, das klingt gut! werd ich probieren, feedback folgt...
Vielen Dank schon mal, was tät ich ohne euch Könner?
Grüsse,
Karin

AW: Columns verbergen/schützen

PeterW

Hallo Dieter,
ändern lassen sich die "versteckten" Spalten ganz einfach durch eine Markierung, beispielsweise auf CZ1:DC1, Eingabe eines Wertes und Bestätigung der Eingabe mit Strg+Shift+Enter. Man kommt zwar nicht auf sie Spalten, kann sie aber trotzdem ändern. :-(
Gruß
Peter

AW: Columns verbergen/schützen

04.09.2004 01:09:49

Nepumuk

Hallo Peter,
so nicht:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column + Target.Columns.Count = 106 Or Target.Column + Target.Columns.Count = 107 Or (Target.Column < 107 And Target.Column + Target.Columns.Count > 105) Then
        With Application
            .EnableEvents = False
            .Undo
            .EnableEvents = True
        End With
        MsgBox "Nicht gestattet.", 48, "Hinweis"
    End If
End Sub

Gruß
Nepumuk

AW: Columns verbergen/schützen

PeterW

Hallo Nepumuk,
das nenn ich eine solide Lösung - wie von dir nicht anders zu erwarten. ;-)
Gruß
Peter

Nachteile von Undo

Undo

Hallo zusammen,
ich las diesen Thread und die Lösung von Nepumuk und erinnerte mich an einen Thread, den ich kürzlich selbst gestellt hatte:
http://www.excel-center.de/forum/read.php?f=1&i=73869&t=73780
Es ging auch um Schutz durch Undo.
Interessant war folgender Kommentar von Wolfgang:
&gtmit der function undo wirst du probleme bekommen, da 'firmenseitig' (damit meint er &gtmicrosoft) nur 16 undos zulaessig sind...
&gtdu kannst diesen parameter in der registry hacken, damit verkleinerst du aber den fuer &gtdas recalc zur verfuegung stehenden speicher...
&gtwarum loest du das problem nicht ueber data validation und erlaubst nur x....
&gtausserdem 'feuert' ein sheet-change-event bei jeder cell-eingabe...
Wen es interessiert muss sich durch den Thread beissen (er ist umfangreich, aber Profis am Werk).
Gruß,
Beate

AW: Columns verbergen/schützen

04.09.2004 10:18:33

k.reffert

Dank euch allen für die Unterstützung!
Habe Nepumuk's Idee (suuuuper, wie immer! Mille Grazie!) übernommen, nur den MsgText variiert sowie buttons auf 16 gesetzt...
@Beate: den Thread (Danke für den Hinweis!) habe ich gelesen, aber schnell den Durchblick verloren, nicht mein "Laien-Level". Der Satz "... da 'firmenseitig' nur 16 undos zulaessig sind..." verunsichert mich: heisst das, wenn in meinem Fall der User 17 Mal versucht, was in die Spalte DA reinzuschreiben, Excel abschmiert?
Grüsse,
Karin

Wer weiß mehr? Nur 16 mal Undo?

Beate

Hallo Karin,
ich bin ganz sicher, auch an anderer Stelle schon mal etwas von dieser Beschränkung gelesen zu haben. Aber tiefergehende Infos kann ich dir da nicht zu geben. Ich werde Wolfgang mal auf deine Rückfrage hinweisen und wenn er grundsätzlich da ist, wird er dir bestimmt Hintergrund geben. Aber frühestens Montag oder Dienstag.
Gruß,
Beate

AW: Wer weiß mehr? Nur 16 mal Undo?

Bert

Die Undo- Schritte sind standardmäßig auf 16 begrenzt. Das spielt aber keine Rolle,
da nach Ausführung eines Makrocodes ein Undo ohnehin nicht mehr möglich ist.
Bert

AW: Wer weiß mehr? Nur 16 mal Undo?

Michi

@Bert,
d.h., Undo wird nach einer Makroausführung sowieso "zurückgesetzt"? (Wäre auch mein erster Gedanke). Demzufolge wäre der Code ok.
Gruss
Michi

AW: Wer weiß mehr? Nur 16 mal Undo?

Bert

Genauso ist es!
Bert

AW: Wer weiß mehr? Nur 16 mal Undo?

04.09.2004 19:45:21

Nepumuk

Hallo Beate,
noch mehr Informationen findest du hier:
http://195.186.84.74/xlimits/speicher.htm#
Gruß
Nepumuk

@Nepumuk

Beate

Danke für die Info, Nepumuk. Auch ansonsten interessante Seite.
Gruß,
Beate

AW: Columns verbergen/schützen

04.09.2004 19:04:01

Nepumuk

Hallo Karin,
nein, das kann nicht passieren. Um das ganze mal zu erklären, beim laden von Excel wir im Arbeitsspeicher ein Bereich (UNDO - Speicher) reserviert, in dem die Änderungen die du vornimmst gespeichert werden. Bei den voreingestellten 16 Schritten passiert folgendes: Wenn du die 17. Änderung vornimmst, wird die 1. Änderung überschrieben. Bei der 18. die 2. usw.. Es kann also weder einen Speicherüberlauf oder einen Absturz ausgelöst werden. Wenn du nun ein Makro startest welches eine Änderung (Wert oder Format) in der Tabelle vornimmt, wird der UNDO - Speicher komplett gelöscht. Darum ist per Makro immer nur ein UNDO - Schritt möglich. Ich habe mal ein Addin geschrieben, das maximal 10 UNDO - Schritte und 10 DO - Schritte erlaubt. Frage nicht, was das für ein Aufwand ist. Dabei berücksichtigt das Makro nur Wertänderungen und keine Formatänderungen.
Jetzt klarer?
Gruß
Nepumuk

AW: Columns verbergen/schützen

k.reffert

Hi, Nepumuk,
das Phänomen, das du in deinen ersten 5 Sätzen beschreibst, ist mir in Excel schon begegnet,
jetzt versteh' ich endlich, warum das so ist; die Beiträge von @Bert und @Michi haben mich erahnen lassen, was du in den nächsten Sätzen beschreibst... Ich muß mir keine Sorgen machen, weil in meinem (ich sollte besser sagen: in DEINEM ;-) ) Code bzgl. Spaltensperre die Application.Undo nur genau EINMAL vorkommt... Habe ich also versucht, eine Zelle der betreffenden Spalten zu ändern, ist der UNDO-Speicher wg. des Ablaufens der Prozedur ja wieder geleert, also kann ich munter versuchen, die nächste Zelle der "Verbotenen Zone" zu ändern, das Spiel startet von neuem. Usw...
Doch, ich denke jetzt ist es klarer, also vielen Dank für deine Mühe!!!
Grüsse reih'um,
Karin

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!