Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Columns verbergen/schützen

Columns verbergen/schützen
03.09.2004 22: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
Anzeige
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
Anzeige
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
Anzeige
AW: Columns verbergen/schützen
03.09.2004 23: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
Anzeige
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
Anzeige
AW: Columns verbergen/schützen
04.09.2004 08: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
Anzeige
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
@Nepumuk
Beate
Danke für die Info, Nepumuk. Auch ansonsten interessante Seite.
Gruß,
Beate
Anzeige
AW: Columns verbergen/schützen
04.09.2004 17: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
Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige