Tabellenblätter

Forumthread: Tabellenblätter
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Tabellenblätter

Tabellenblätter

23.11.2006 13: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

AW: Tabellenblätter

23.11.2006 13:28:05

Erich
AW: Tabellenblätter

23.11.2006 13:38:09

Erich

AW: Tabellenblätter

23.11.2006 13: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 13: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

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