Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1000to1004
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
1000to1004
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschützen per VBA

Blattschützen per VBA
20.08.2008 19:40:00
oblivion
Hallo,
ich wollte folgendes machen.
Ich habe eine Exceldatei. In ihr sind verschiedene Tabellenblätter. Auf Tabellenblatt "Gesamt" werden verschiedene Daten eingegeben. Dann habe ich ein Tabellenblatt "Muster". Per VBA wird nun jedesmal ein neues Tabellenblatt erstellt, wenn ich in dem definierten Bereich des VBAs auf "Gesamt" einen neuen Namen eintrage. Jetzt wollte ich wissen, ob ich irgendwie in dem Makro einen Befehl einfügen kann der die Prozedur Extra - Schutz - Blatt schützen für mich schon automatisch macht, sobald das neue Tabellenblatt erstellt wird und das Passwort soll gleich dem Namen des Tabellenblattes sein. Ich lade mal eine Beispieldatei zum probieren hoch. Ich kenne den Befehl protect und unprotect im VBA schon (dank des sehr guten Forums hier). Nur habe ich keine Idee wie ich das auf dieses Problem anwenden kann.
https://www.herber.de/bbs/user/54757.zip
Danke schon mal für die Hilfe.
Gruß Oblivion

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschützen per VBA
20.08.2008 20:17:00
Ramses
Hallo
Ohne deine Datei zu laden
Option Explicit

Sub AddWks()
    Dim wks As Worksheet
    Set wks = Worksheets.Add
    With wks
        .Name = "Irgendwas"
        .Protect Password:="Irgendwas"
    End With
End Sub

Gruss Rainer

Anzeige
noch sicherer
20.08.2008 20:27:57
hary
Hallo Oblivion
Bei falscher Passwort eingabe:

Kill ActiveWorkbook.FullName
ThisWorkbook.Close False


Loescht die Mappe nicht ueber Papierkorb
Gruss hary
Nix ist sicher

AW: noch sicherer
20.08.2008 20:33:42
Ramses
Hallo
Was soll denn der Quatsch ?
Bei solchen Anweisungen sollte der Anwender klar über die Folgen informiert werden
Verschreiber nicht erlaubt ?
Ausserdem sind gewisse Voraussetzungen vorzunehmen, damit der Befehl funktioniert.
Getestet ? Da würde ich eher sagen Nein.
Gruss Rainer

@ Ramses
20.08.2008 20:45:00
hary
Hallo Ramses
Nicht so garstig. Ist doch nicht der volle Code. Genauso wenig wuerde ich im Forum ueber spezial programme!!!!! schreiben oder Tips geben.
Gruss Hary

Anzeige
AW: Datei löschen
21.08.2008 06:22:34
Hajo_Zi
Hallo Harry,
Du hast auch den kompletten Beitrag von Rainer gelesen.
Was nützt dem Anwender der Code, wenn er nicht komplett ist?
Das löschen der Datei geht nicht, da Du die entscheidene Zeile nicht im Code hast.

@ Hajo
21.08.2008 09:40:34
hary
Schoenen Morgen Hajo
Ich habe den Code nur Ansatzweise reingestellt, da das nicht die Antwort auf die Frage war. Er will ja nur schuetzen. Ansonsten haette er nachgefragt. Mein Code(den ich so brauchte), Passwort wird monatlich gewechselt, anzahl der Fehlversuche beschraenkt usw.
Aber lasst uns wieder zu normalen Loesungen suchen.
Gruss an Dich und Ramses, ihr habt mir schon oft geholfen durch nachlesen eurer Beitraege.
mfdl. Gruss
Hary

Anzeige
AW: Blattschützen per VBA
20.08.2008 20:36:41
oblivion
Hallo, dein Beitrag hat mir sehr geholfen. Hab den Befehl .Protect Password:="Irgendwas" in das VBA eingefügt und das Irgendwas durch rngK ersetzt wo die Namen hingeschrieben werden für neue Tabellenblätte. Klappt alles Wunderbar. Danke für die Hilfe.
Gruß Oblivion

303 Forumthreads zu ähnlichen Themen

automatisches Erstellen von pdf
pdf

Hallo alle zusammen,
ich nutze seit Monaten ein VBA zum automatischen Erstellen von PDF's. Grundlage war eine Muster aus Eurem Archiv Print to pdf von Ramses; habe ich auf meine Anforderungen angepasst.
Hat auch immer klaglos funktioniert.
Nun auf einmal Laufzeitfehler '429' Objekte...
07.08.2008 17:02:59
Thread-ID: 1000034
8 Beiträge
Anzeige
fehler beim speichern - zellname existiert nicht
t4z

Hallo Leute,
folgendes Problem:
Will nach zahlreichen Änderungen in Datei A die Änderungen darin speichern. Kurz vor Ende des Speichervorgangs kommt dann die Fehlermeldung
"Microsoft Excel kann die Formel in der Zelle (Name:[Dateiname.xls]Tabellenname!solver_val) nicht konvertieren,...
07.08.2008 17:53:00
Thread-ID: 1000056
4 Beiträge
Arbeitsblätter zählen und Ergebnis verarbeiten
Botti

Hallo Leute,
heute habe ich wieder mal ein einfaches Problem für Euch, an dem ich aber nicht weiter kommen:
Ich möchte die Arbeitsblätter in meiner Arbeitsmappe zählen. Das ist ja kein Problem (ThisWorkbook.sheets.count).
wenn das makro mehr als ein Arbeitsblatt zählt (also das Erge...
07.08.2008 19:11:30
Thread-ID: 1000078
8 Beiträge
Anzeige
Cursor springt in die Pampa - MultiLine TextBox
Kilo

Hallo liebe VBA Profis
ich bin auf ein für mich nicht lösbares Problem - vielleicht sogar Phänomen gestoßen...
Leider kann ich keine Phänomene dieser Art gebrauchen.
Damit es für Sie etwas anschaulicher wird, hab ich mein Problem als Beispiel (https://www.herber.de/bbs/user/54427.xl...
07.08.2008 20:31:08
Thread-ID: 1000095
2 Beiträge
Leeren von Textfeldern
Textfeldern

Hallo
brauch mal wieder Hilfe!
in meiner Userform sind einige Textboxen und comboboxen mit Werten zur weiteren Berechnung gefüllt.
jetzt die Frage: Gibt es einen Möglichkeit mit einen CommantButton alle Inhalte der textboxen und Comboboxen mit einem Click zuleeren um sie neu zubefül...
07.08.2008 22:26:00
Thread-ID: 1000114
11 Beiträge
Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Komplizierte Wenn-Formel für kicker-Spiel
Frank

Hallo miteinander,
ich möchte eine Excel-Datei für das offizielle Fussball-kicker-Managerspiel erstellen, leider scheitere ich total an (vermutlich) den WENN-Formeln ..... vielleicht ist das aber auch gar nicht möglich, was ich erreichen möchte :-(
In der Tabelle sollte man in Spalte A...
08.08.2008 07:28:06
Thread-ID: 1000146
4 Beiträge
Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 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
7
3
3
7
3
1
10
15
3
7
2
10
2
3
2
4
9
1
20
9
13
5
2
8
5