Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
820to824
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
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenblätter

Tabellenblätter
23.11.2006 12:08:17
Erich
Hallo....
Entweder kann ich nicht suchen oder ich finde nichts.
Mit folgenden Code schütze ich die Blätter in der Datei.

Private Sub Workbook_SheetSelectionChange(ByVal WS As Object, _
ByVal Target As Excel.Range)
MsgBox "Nur Leseberechtigung"
Tabelle1.Select
End Sub

Die Blätter werden immer unterschiedlich benannt.
Nun möchte ich erreichen das in der Tabelle 1
die Meldung nicht kommt.
Kann mir jemand einen Tipp geben ?
Vorab schon mal Danke.
Gruss Erich

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter
23.11.2006 12:28:05
Erich
Hallo Namensvetter,
wenn in den anderen Tabellen A1 ausgewählt sein (und bleiben) soll, ginge das z. B. so:
Private Sub Workbook_SheetSelectionChange(ByVal WS As Object, _
ByVal Target As Excel.Range)
If Not WS Is Tabelle1 Then
MsgBox "Nur Leseberechtigung"
Application.EnableEvents = False
Cells(1, 1).Select
Tabelle1.Select
Application.EnableEvents = True
End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Tabellenblätter
23.11.2006 12:38:09
Erich
Hallo Erich..
Klappt perfekt
Weis nur noch nicht wie
Werde heute zu Hause versuchen es zu kapieren.
Nochmals Dankeschön
Gruss Erich
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige