Tabellenblätter
23.11.2006 12:08:17
Erich
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
Anzeige