Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
144to148
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
144to148
144to148
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz per Makro

Blattschutz per Makro
05.08.2002 12:17:22
Werner
Hallo EXCEL-Fans,
eines meiner Probleme macht mich langsam wahnsinnig, es will einfach nicht klappen. Ich möchte in einem Makro den Blattschutz aufheben, einige Zellwerte löschen oder verändern und dann den Blattschutz wieder einschalten (alles in einem Makro). Ich habe schon einige Hinweise erhalten, unter anderem diesen hier:

Sub test1()
Sheets("Tabelle1").Unprotect
MsgBox "Schutz!"
Sheets("Tabelle1").Protect
End Sub

Aber es klappt einfach nicht, ich drehe langsam durch!

Hilfe

Gruß
Werner

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Blattschutz per Makro
05.08.2002 12:27:28
Charlie
Hallo, Werner!

Dafür kann verantwortlich sein, dass es ein Blatt mit dem Namen "Tabelle" nicht gibt oder dass das Blatt mit einem Kennwort geschützt ist. In diesem Fall müsste eine Abfrage nach dem Blattschutzkennwort angezeigt werden.

Versuch es wie folgt:

Wenn Du ein Kennwort vergibst und es im Makro öfter notwendig ist, den Blattschutz aufzuheben und wieder zu setzen, solltes Du das Kennwort einer Public-Variablen (in einem Standardmodul) zuweisen und im dann statt Kennwort in Anführungszeichen den Namen der Variablen verwenden.

Viel Erfolg,
Charlie

Re: Blattschutz per Makro
05.08.2002 12:30:37
Sören Wiechert
Hallo Werner,

welche Fehlermeldung erscheint denn?

Gruß,
Sören

Anzeige
Re: Blattschutz per Makro
05.08.2002 12:33:43
Micha
hi,

ich kann dir leider nicht viel neues sagen. unten stehendes makro funktioniert bei mir. wenn man's komplett automatisieren möchte muss man das passwort eben im klartext im makro speichern ansonsten wird's im zuge von unprotect abgefragt.
*****************************************************************
Sub Workbook_Open()
Dim tbpro As Worksheet

MsgBox "geöffnet"
Set tbpro = ActiveWorkbook.Worksheets("test")
If (tbpro.ProtectContents = True) Then
tbpro.unprotect
End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim tbpro As Worksheet
Dim pwd As Variant

MsgBox "speichern"
Set tbpro = ActiveWorkbook.Worksheets("test")
If (tbpro.ProtectContents = False) Then
Do
pwd = InputBox("Bitte ein Passwort zum Schutz des Blatts angeben:")
Loop Until (pwd <> "")
tbpro.Protect pwd, True, True, True
End If
End Sub

Anzeige
Re: Blattschutz per Makro
05.08.2002 12:33:59
Werner
Die Meldung lautet: "kein gültiges Objekt" oder so ähnlich, kann ich im Moment nicht genau sagen, das Problem habe ich auf dem Dienstrechner und ich bin zu Hause.
Gruß
Werner
Re: Blattschutz per Makro
05.08.2002 12:37:28
Werner
Hi, auch diese Variante habe ich schon getestet, klappt auch nicht.
Trotzdem vielen Dank!

Werner

Re: Blattschutz per Makro
05.08.2002 12:40:07
Werner
Hallo und Danke!
Ich müßte allerdings beides (schutz aufheben und Schutz einschschalten im einem Makro unterbringen).

Gruß
Werner

Re: Blattschutz per Makro
05.08.2002 13:58:06
Robert M.
Hallo Werner,
versuch´ mal:

. . . Dein Makro . . .
ActiveSheet.Unprotect "DeinPasswort"
. . . Dein Makro . . .
ActiveSheet.Protect Password:="DeinPasswort"
. . . Dein Makro . . .

Bei mir klappt´s.

Servus, Robert.Ende

Anzeige
Re: Blattschutz per Makro
05.08.2002 14:31:44
Werner
Danke, aber auch das funktioniert nicht!

Gruß
Werner

63 Forumthreads zu ähnlichen Themen

Passwortabfrage ohne Blattschutz zu umgehen, wie?
Thomas

Hi, in meiner Tabelle sind diverse Zellen durch den Blattschutz geschützt. Nachbahrzellen sind jedoch für eine Bearbeitung freigegeben. Aber, um sie vor unbefugten ausfüllen zu schützen habe ich mir diesen code ausgeliehen und angepasst.
' Private Sub Worksheet_SelectionChange(ByVal target...
24.11.2008 14:21:54
Thread-ID: 1027314
3 Beiträge
Anzeige
Aus-Einblenden / Makroschutz aufheben
juergen

Hallo zusammen,
hoffe Ihr habt Ostern gut überstanden.
Hab u. stehendes Makro und muss den Schutz aufheben, damit er Tabellenblätter einblendet. Kann mir bitte jemand weiterhelfen?
Für Eure Bemühungen,....... danke ich schon jetzt:)
Gruß
Juergen
Sub blättern1() ' blätter...
26.04.2011 15:44:26
Thread-ID: 1211836
3 Beiträge
Abfrage ob Blattschutz mit Passwort gesetzt wurde
DominikHH

Hallo zusammen,
ich muss in einem Arbeitsblatt überprüfen, ob ein Blattschutz gesetzt wurde und - wenn das der Fall ist - ob auch ein Passwort vergeben wurde.
Im Fall, dass zusätzlich ein Passwort gesetzt wurde, muss ich anders reagieren, als wenn nur das Blatt geschützt wurde (dann kan...
22.11.2012 15:49:32
Thread-ID: 1287706
2 Beiträge
Anzeige
VBA Code Tabellenschutz mit Passwort
Max

Hallo zusammen,
hat jemand ein Standard VBA Code um ein Tabellenblatt ("Tabelle1") einzublenden. Das Einblenden der Tabelle soll über ein CommandButton inklusive einer Passwortabfrage erfolgen. Ebenso soll das spätere Ausblenden der Tabelle über einen CommandButton erfolgen.
Danke im vo...
28.12.2012 11:37:27
Thread-ID: 1292225
5 Beiträge
Makro: Blattschutz PW setzen/aufheben
Thms

Liebes Forum,
ich möchte gerne mehrere Tabellenblätter per Makro mit einem Passwort schützen lassen. (Das Passwort soll bereits im Makro stehen.) Hierzu habe ich folgenden Code gefunden: Sub Schutz() Dim i As Long For i = 1 To Sheets.Count Sheets(i).Protect "123" Next i MsgBox "alle Blätter...
28.06.2013 13:59:33
Thread-ID: 1320297
7 Beiträge
VBA - "Aus dem Web" mit Passwort
Timonski

Servus...
ich muss mich bei einer Internetseite mit Benutzer und Passwort einloggen.
nach dem einloggen, wollte ich gerne die Seite/n nach Excel importieren.
das Problem ist, er loggt sich nicht ein...
bei den ersten Schritten (FETT) loggt er sich auf der Seite ein... funktionie...
08.05.2014 15:23:16
Thread-ID: 1360536
5 Beiträge
Vor Makro Blattschutz aufheben: Sicherheitsabfrage
Michael Kl.

Hallo zusammen,
ich habe ein Makro zur Aufhebung des Blattschutzes erstellt.
Vor der endgültigen Deaktivierung des Schutzes soll eine Abfrage erscheinen, ob der Schutz wirklich deaktiiert werden soll. Ihr kennt diese Abfragen mit Sicherheit von Windows. Dort hat man die Möglichkeit, bei i...
17.07.2002 12:39:18
Thread-ID: 137441
3 Beiträge
alle Arbeitsblätter gemeinsam schützen
Andreas

Hallo und guten morgen,
ich wollte mal was nachfragen.
Gibt es eine Möglichkeit einen Blattschutz auf alle Arbeitsblätter, bei mir 5 Stck,
gleichzeitig anzuwenden. Ich möchte, das meine Kollegen die Datei öffnen können, die Daten sehen können, aber nix ändern dürfen.
Da ich abe...
21.01.2016 09:05:44
Thread-ID: 1470136
13 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
26
2
1
3
4
6
4
2
12
3
2
5
5
3
3
6
1
9
7
3
3
1
2
5