Tabellenblatt einfügen verhindern

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Tabellenblatt einfügen verhindern
von: KarliH
Geschrieben am: 21.11.2003 19:26:40

Hallo VBA-Spezialisten,

wie kann ich per VBA verhindern, dass in einer bestehenden Arbeitsmappe ein weiteres Tabellenblatt eingefügt werden kann, auch bei deaktiviertem Blattschutz.

Gruß Karli

Bild


Betrifft: AW: Tabellenblatt einfügen verhindern
von: ChrisL
Geschrieben am: 21.11.2003 19:32:49

Hi Karli

Arbeitsmappen-Schutz.

Ansonsten sehe ich keine Möglichkeit.

Gruss
Chris


Bild


Betrifft: AW: Tabellenblatt einfügen verhindern
von: Josef Ehrensberger
Geschrieben am: 21.11.2003 19:34:16

Hallo Karli,

schreib diesen Code in "DieseArbeitsmappe".


Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
MsgBox "Sie haben keine Berechtigung" & vbLf & _
         "neue Tabellenblätter anzulegen!", vbOKOnly + vbExclamation, "Hinweis"
Sh.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


Gruß Sepp


Bild


Betrifft: AW: Tabellenblatt einfügen verhindern
von: ChrisL
Geschrieben am: 21.11.2003 19:42:05

Hi Sepp

Ist mir gar noch nie aufgefallen, dass es auch ein Workbook_NewSheet Ereignis gibt. Man lernt nie aus.

Eine andere Idee, die mir eben noch gekommen ist, wäre den Menü-Punkt zu deaktivieren, allerdings gibts dann vermutlich auch noch eine Tastenkombination, die man ebenfalls noch deaktivieren müsste. Insofern ist deine Variante einiges eleganter.

Gruss
Chris


Bild


Betrifft: AW: Tabellenblatt einfügen verhindern
von: KarliH
Geschrieben am: 21.11.2003 20:03:09

Hallo Sepp,

danke für die Lösung.

@Chris
du machst mich neugierig, wie deaktiviert man denn nun diesen Menüpunkt, ohne ihn bei anderen Arbeitsmappen zu vermissen?
Wäre schön, wenn ich auch diese Möglichkeit noch probieren könnte.

Gruß Karli


Bild


Betrifft: AW: Tabellenblatt einfügen verhindern
von: ChrisL
Geschrieben am: 21.11.2003 20:16:05

Hi Karli


Private Sub Workbook_Activate()
Application.CommandBars("Worksheet Menu Bar").Controls("Einfügen").Controls("Tabellenblatt").Enabled = False
End Sub



Private Sub Workbook_Deactivate()
Application.CommandBars("Worksheet Menu Bar").Controls("Einfügen").Controls("Tabellenblatt").Enabled = True
End Sub



Gruss
Chris


Bild


Betrifft: AW: Tabellenblatt einfügen verhindern
von: KarliH
Geschrieben am: 21.11.2003 21:31:35

Hallo Chris,

danke auch für diesen Tipp, werde morgen mal damit testen.

Auch Thomas danke ich für die Reaktion auf meine Frage

Gruß Karli


Bild


Betrifft: danke fuer die rueckmeldung ot.
von: th.heinrich
Geschrieben am: 21.11.2003 21:51:03

.


Bild


Betrifft: AW: Tabellenblatt einfügen verhindern
von: th.heinrich
Geschrieben am: 21.11.2003 19:36:11

hallo Karli,

bin kein VBA spezialist, aber schuetze nicht das BLATT sondern die MAPPE.

gruss thomas


Bild


Betrifft: AW: Tabellenblatt einfügen verhindern
von: Josef Ehrensberger
Geschrieben am: 21.11.2003 22:32:33

Hallo Karli,

wenn du alle Menüpunkte und die Tastenkombination
zum Einfügen von Tabellenblättern deaktivieren
willst, dann so.


Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar").Controls("Einfügen").Controls("Tabellenblatt").Enabled = False
Application.CommandBars("Ply").Controls("Einfügen...").Enabled = False
Application.OnKey "+{F11}", ""
End Sub


Private Sub Workbook_Activate()
Application.CommandBars("Worksheet Menu Bar").Controls("Einfügen").Controls("Tabellenblatt").Enabled = False
Application.CommandBars("Ply").Controls("Einfügen...").Enabled = False
Application.OnKey "+{F11}", ""
End Sub


Private Sub Workbook_Deactivate()
Application.CommandBars("Worksheet Menu Bar").Controls("Einfügen").Controls("Tabellenblatt").Enabled = True
Application.CommandBars("Ply").Controls("Einfügen...").Enabled = True
Application.OnKey "+{F11}"
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Controls("Einfügen").Controls("Tabellenblatt").Enabled = True
Application.CommandBars("Ply").Controls("Einfügen...").Enabled = True
Application.OnKey "+{F11}"
End Sub


Gruß Sepp


Bild


Betrifft: AW: Tabellenblatt einfügen verhindern
von: KarliH
Geschrieben am: 22.11.2003 10:04:23

Hallo Sepp,

das ist der Knaller :-)), besten Dank dafür!!!

Gruß Karli


Bild


Betrifft: Danke für die Rückmeldung (o.T.)
von: Josef Ehrensberger
Geschrieben am: 22.11.2003 13:40:59

/


Bild

Beiträge aus den Excel-Beispielen zum Thema " Tabellenblatt einfügen verhindern"