Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1148to1152
1148to1152
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz mit VBA ein u aus

Forumthread: Blattschutz mit VBA ein u aus

Blattschutz mit VBA ein u aus
Matthias.G.
Nabend Excelaners,
habe dieses Macro für alle Sheets gefunden,
Sub Schutz()
Dim wks As Worksheet
For Each wks In worksheets
wks.Protect password:="dein passwort", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next wks
End Sub
geht das auch nur für meine Sheets 1-12 ? nur nicht gesperrte Zellen aktiv bleiben ?
Gruß Matze
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Blattschutz mit VBA ein u aus
13.04.2010 22:50:04
Ramses
Hallo
Probier mal
Sub Schutz()
Dim i as integer
For i = 1 to 12
worksheets(i).Protect password:="dein passwort", DrawingObjects:=True, Contents:=True,  _
Scenarios:=True
Next i
End Sub
Gruss Rainer
AW: Blattschutz mit VBA ein u aus
13.04.2010 23:15:03
Matthias.G.
Hi Ramses,
Er hat die ersten 12 tabellen Blätter mit Blattschutz versehen, ich hab mich bestimmt falsch ausgedrücht, die Tabellenblätter nennen sich 1,2,3... bis 12 kommen aber erst 4. Stelle
Matze
Anzeige
AW: Blattschutz mit VBA ein u aus
13.04.2010 23:16:10
Ramses
Hallo
Dann halt so
Sub Schutz()
Dim i as integer
For i = 1 to 12
worksheets("" & i & "").Protect password:="dein passwort", DrawingObjects:=True, Contents:=True, _
_
Scenarios:=True
Next i
End Sub
Gruss Rainer
thx
13.04.2010 23:18:36
Matthias.G.
Jeppa, thx....
Matze
Anzeige
;

Forumthreads zu verwandten Themen

Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Anzeige
Ersetzen mit VBA in allen Arbeitsblättern
Walter

Hallo,
ich habe eine Frage:
Wenn ich einen Text in der ganzen Arbeitsmappe ersetzen will, so treffe ich im Dialogfeld SUCHEN/ERSETZEN einfach die Einstellung: Suchen --- "Arbeitsblatt".
Wenn ich disen Vorgang aufzeichen, kommt folgender Code heraus:
Selection.Replace What:= _
11.09.2008 15:35:53
Thread-ID: 1009157
6 Beiträge
Diagrammveränderung mit VBA unterbinden
Karl

Hallo zusammen
Ich habe da ein für mich unlösbares Problem. Ich möchte gerne all meine Diagramme vor Größen veränderung schützen. Doch leider kann ich auch im Netzt nichts brauchbares finden. Ich habe zwar mein Blatt schreib geschützt, wenn ich jedoch mit VBA Code mir das Diagramm als Bild...
04.01.2009 19:21:00
Thread-ID: 1036824
2 Beiträge
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
Anzeige
Lange Matrixformel mittels VBA in Zelle eintragen
hoffi

Hallo zusammen,
auch nach einer längeren Internetrecherche konnte ich folgendes Problem leider nicht lösen.
Ich möchte in Excel 2003 mittels VBA eine Matrixformel in eine Zelle schreiben lassen. Der Programmiercode sieht vereinfacht so aus:
A = "=sum(if(XXX,YYY,ZZZ))"
Cells(1,1)...
25.03.2009 13:09:25
Thread-ID: 1063729
5 Beiträge
HEIMAT-Workbook eines VBA-Makros ermitteln?
Johann

Hallo,
ich habs irgendwo einmal gelesen, aber mit den Schlüsselworten +Workbook +Makro +ursprung findet man immer zu viele Treffer, aber nie die richtigen.....
Meine Frage:
Ich habe ein VBA-Makro, welches generell mit dem Activeworkbook arbeitet. Das ist irgendeine Excel-Datei in d...
01.04.2009 12:37:23
Thread-ID: 1065958
2 Beiträge
Letzte Stelle einer Zahl mittels VBA in 0 umwand.
Josef

Guten Morgen!
Ich habe in der Spalte A in einem Arbeitsblatt eine Menge siebenstelliger Zahlen, am Schluß mit einer Prüfziffer versehen, stehen. Ich möchte nun, wenn möglich, mittels VBA immer die letzte Zahl in eine 0 umwandeln.
Wie würde hier bitte eine VBA Lösung lauten?
Danke
10.04.2009 06:26:04
Thread-ID: 1068138
12 Beiträge
Mit VBA Zeilen in neue Register kopieren
Andreas

Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
Im Detail soll dies wie folgt fun...
08.06.2009 12:29:49
Thread-ID: 1079883
3 Beiträge
Anzeige
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
Formel in VBA mit " funktioniert nicht
ChrisW

Hallo Leute,
ich möchte der Variablen Fo4 folgende Formel zuweisen:
Fo4 = "=SUMPRODUCT(('Detailed Table'!$G$4:$G$63556="PR")*(('Detailed Table'!$A$4:$A$63556)=$A3)*(('Detailed Table'!$J$4:$J$63556)))"
Excel meckert aber und markiert mir PR was wohl an den Anführungszeichen liegt die...
28.08.2009 15:22:19
Thread-ID: 1099200
6 Beiträge
In VBA mit Spalten vergleichen
Ralph_III

Hallo zusammen, ich bin in VBA leider noch ein ziemlicher Laie, versuche das aber gerade zu ändern. Ich habe allerdings ein Problem und bräuchte Hilfe:
in Zelle L2 von Tabelle1 steht ein Wert, den ich mit der Spalte C (C3 bis C600) von Tabelle2 vergleichen will. Wenn er sich darin befindet,...
10.09.2009 09:45:18
Thread-ID: 1101667
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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