Herbers Excel-Forum - das Archiv

auf mehreren Blättern gleichztg d. Schutz aufheben

Bild

Betrifft: auf mehreren Blättern gleichztg d. Schutz aufheben
von: Elmar Steigenberger
Geschrieben am: 20.09.2003 15:55:42
Hallo,

kann man in VB auf mehreren Blättern gleichzeitig den Schutz aufheben ohne dass eine For Next-Schleife mit den Blattnamen laufen muß?

Dieser Befehl geht voraus:

Sheets(Array("Üb", "ÜbSpz", "Za-Eg", "Za-Üb", "Di", "Miza", "Nkza", "Gaza", "Gaza2", "Arf", "Nk-Abr", "Sv", "VaS", "KaWa")).Select

Blätter sind nicht Passwortgeschützt!

liebe e-Grüße
Elmar

====================================
Die erstaunliche und absolut schreckliche Wahrheit über den 11.09.01
www.elfterseptember.info

Bild

Betrifft: nicht möglich oT
von: Jochen
Geschrieben am: 20.09.2003 16:08:07
oT
Bild

Betrifft: probiersmal damit ...
von: udo
Geschrieben am: 20.09.2003 19:06:50
Hi Elmar vielleicht so , ...

Sub Blattschutz()
' füge dieses Makro in ein Modul, und weise es einem Button zu, müsste
' dann eigentlich wenn du diesen Button in jedem Blatt hast , dann auch
' aus jeder Tab. zu starten sein.
' und in A1 also Cells (1, 1) sollte nichts stehn, so müsstest du halt eine andere
' Zelle angeben...
Application.ScreenUpdating = False
If Cells(1, 1) = "ein" Then
Sheets("Üb").Select
ActiveSheet.Unprotect
Cells(1, 1) = "aus"
Sheets("ÜbSpz").Select
ActiveSheet.Unprotect
Cells(1, 1) = "aus"
Sheets("Za-Üb").Select
ActiveSheet.Unprotect
Cells(1, 1) = "aus"
Sheets("Di").Select
ActiveSheet.Unprotect
Cells(1, 1) = "aus"
Sheets("Miza").Select
ActiveSheet.Unprotect
Cells(1, 1) = "aus"
Sheets("Nkza").Select
ActiveSheet.Unprotect
Cells(1, 1) = "aus"
Sheets("Gaza").Select
ActiveSheet.Unprotect
Cells(1, 1) = "aus"
Sheets("Arf").Select
ActiveSheet.Unprotect
Cells(1, 1) = "aus"
Sheets("Nk-Abr").Select
ActiveSheet.Unprotect
Cells(1, 1) = "aus"
Sheets("Sv").Select
ActiveSheet.Unprotect
Cells(1, 1) = "aus"
Sheets("VaS").Select
ActiveSheet.Unprotect
Cells(1, 1) = "aus"
Sheets("KaWa").Select
ActiveSheet.Unprotect
Cells(1, 1) = "aus"
Else
Sheets("Üb").Select
Cells(1, 1) = "ein"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("ÜbSpz").Select
Cells(1, 1) = "ein"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Za-Üb").Select
Cells(1, 1) = "ein"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Di").Select
Cells(1, 1) = "ein"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Miza").Select
Cells(1, 1) = "ein"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Nkza").Select
Cells(1, 1) = "ein"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Gaza").Select
Cells(1, 1) = "ein"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Arf").Select
Cells(1, 1) = "ein"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Nk-Abr").Select
Cells(1, 1) = "ein"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Sv").Select
Cells(1, 1) = "ein"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("VaS").Select
Cells(1, 1) = "ein"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("KaWa").Select
Cells(1, 1) = "ein"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Application.ScreenUpdating = True
End Sub



Gruß udo
Bild

Betrifft: AW: auf mehreren Blättern gleichztg d. Schutz aufheben
von: Josef Ehrensberger
Geschrieben am: 20.09.2003 22:36:05
Hallo Elmar,

Füge auf deinem ersten Tabellenblatt einen Button
aus der Formular-Toolbox ein.
Benenne ihn mit "btn1" und weise ihm folgendes
Makro zu.

-------Standard Modul--------
Option Explicit
Public myState As Boolean

Sub AnAus()
Dim wsht As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
For Each wsht In ThisWorkbook.Worksheets
If myState = False Or myState = Empty Then
wsht.Activate
wsht.Shapes("btn1").Select
Selection.Characters.Text = "Schutz Aus"
wsht.Protect
myState = True
[A1].Select
Else
wsht.Activate
wsht.Unprotect
wsht.Shapes("btn1").Select
Selection.Characters.Text = "Schutz An"
myState = False
[A1].Select
End If
Next
Application.ScreenUpdating = True
End Sub


-----------------------------------

Kopiere den Button in alle Tabellenblätter.

Gruß Sepp
Bild

Betrifft: AW: Schutz aufheben ohne Select
von: Beni
Geschrieben am: 20.09.2003 22:39:09
Hallo Elmar,
es geht auch ohne Select.
Gruss Beni

Sheets("Üb").Unprotect
Sheets("ÜbSpz.Unprotect
Sheets("Za-Üb").Unprotect
Sheets("Di").Unprotect
Sheets("Miza").Unprotect
Sheets("Nkza").Unprotect
Sheets("Gaza").Unprotect
Sheets("Arf").Unprotect
Sheets("Nk-Abr").Unprotect
Sheets("Sv").Unprotect
Sheets("VaS").Unprotect
Sheets("KaWa").Unprotect
Bild

Betrifft: AW: Schutz aufheben ohne Select
von: Beni
Geschrieben am: 20.09.2003 22:39:19
Hallo Elmar,
es geht auch ohne Select.
Gruss Beni

Sheets("Üb").Unprotect
Sheets("ÜbSpz.Unprotect
Sheets("Za-Üb").Unprotect
Sheets("Di").Unprotect
Sheets("Miza").Unprotect
Sheets("Nkza").Unprotect
Sheets("Gaza").Unprotect
Sheets("Arf").Unprotect
Sheets("Nk-Abr").Unprotect
Sheets("Sv").Unprotect
Sheets("VaS").Unprotect
Sheets("KaWa").Unprotect
 Bild
Excel-Beispiele zum Thema " auf mehreren Blättern gleichztg d. Schutz aufheben"
Druck aus mehreren Tabellenblättern auf eine Druckseite Daten von mehreren Blättern auf ein Druckblatt
Werte in mehreren Spalten sortieren Den selben Bereichsnamen in mehreren Tabellenblättern
Tabelle nach mehreren Kriterien summieren Auswahl von Zellen in mehreren Zeilen verhinden
Wert von einer Zelle zur anderen in mehreren Tabellen übernehmen Benannte Bereich aus mehreren Arbeitsmappen importieren
Filtern über VBA nach mehreren Kriterien Kosten nach mehreren Kriterien erfassen