probiersmal damit ...
20.09.2003 19:06:50
udo
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