Blatt schützen vor Löschen und Umbennen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Blatt schützen vor Löschen und Umbennen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

maxseidel
Besserwisser

Anmeldedatum: 12.03.2008
Beiträge: 67

Verfasst am: 12.08.2008, 12:49

Hallo,

ich möchte bei einem Tabellenblatt verhindern, dass dieses gelöscht und umbenannt wird. In der Arbeitsmappe soll aber weiterhin die Möglichkeit bestehen Tabellenblätter einzufügen. Ich habe diesem Tabellenblatt schon ein bisschen Blattschutz zukommen lassen (einzelne Zellen sind geschützt und manche nicht u.s.w.)

Wie ist dieses möglich?

Danke und LG

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 12.08.2008, 21:55

Hallo!

Ich wusste haargenau, dass ich vor kurzem etwas Ähnliches beantwortet hatte, aber ich konnte den verfl...xten Beitrag nicht mehr finden...
Wer ahnt denn auch, dass es im Thread "Urlaubsliste" war!

Meine Fähigkeiten übersteigt es, aber hier scheint (zumindest was das Löschen betrifft) eine funktionierende Lösung zu sein.
Ich hab's aber nicht ausprobiert.

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

maxseidel
Besserwisser

Anmeldedatum: 12.03.2008
Beiträge: 67

Verfasst am: 13.08.2008, 14:01

Hallo,

ich habe mir den Beitrag unter h i e r mal angesehen und den Code in DieseArbeitsmappe eingefügt.

In DieseArbeitsmappe:

Code:

Option Explicit

Dim loeschen As CommandBarControl

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Tabelle1" Then
For Each loeschen In Application.CommandBars.FindControls(ID:=847)
loeschen.Enabled = False
Next
End If
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name = "Tabelle1" Then
For Each loeschen In Application.CommandBars.FindControls(ID:=847)
loeschen.Enabled = True
Next
End If
End Sub

Was muss ich noch tun, damit es funktioniert? Bei mir will er immer ein Makro erstellen, wenn ich es ausführen möchte.

Jetzt weiß ich nicht so recht weiter, da dieser Code auch teilweise meine Fähigkeiten übersteigt. Was bewirkt denn dieses außerhalb der Prozedur stehende 'Option Explicit' ?

Kann mir bitte jemand helfen.
Danke
LG

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Spalte überprüfen, bestimmten Text na...	CrazyCat	Microsoft Excel Hilfe	8	27.11.2008, 14:05
	[Access 2000]Datenbankeinträge löschen	Franzose	Microsoft Access Hilfe	2	14.11.2008, 09:13
	SQL-Befehle löschen	RainDoesntMatter	Microsoft Word Hilfe	3	04.11.2008, 15:59
	Zeichen löschen	saschathede	Microsoft Excel Hilfe	2	21.10.2008, 13:30
	VBA - Zellinhalt löschen,wenn in eine...	Mightymagic	Microsoft Excel Hilfe	2	06.10.2008, 22:06

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de