AW: Blattschutz in Makro integrieren
11.02.2015 14:32:51
Meike
Hi Franz,
das Scroll-Problem ist behoben - Vielen Dank dafür!
Wg. der Druckthematik - Ich habe gerade überprüft ob ich eine Zeile beim ausblenden vergessen habe. Ich (als Neuling) würde behaupten, ich habe diese übergangslos übernommen und keine vergessen. Ich habe dir hier meine Datei mal hochgeladen, vielleicht erkennst du den Fehler oder hast eine Alternativlösung. Ansonsten muss ich mich damit arrangieren.
http://www.file-upload.net/download-10285524/Excel.zip.html
Hast du noch einen Vorschlag für den Alle-Haken-Zurücksetzen-Button? Ggf. auch mit einem Button alle aktivieren.
Ich habe da zwar schon etwas, da werden bei mir zwar alle zurückgesetzt aber nicht "deaktiviert". D.h. die Seiten bleiben auf Tabelle2 eingeblendet.
Ich bedanke mich im Voraus für deine Unterstützung.
Liebe Grüße
Sub Button_Kk_1()
Dim bol_Sichtbar As Boolean
bol_Sichtbar = Sheets("Eingabe").Range("C6").Value
With Sheets("AK")
.Unprotect Password:="pw"
.Rows("378:411").Hidden = Not bol_Sichtbar
If bol_Sichtbar = True Then
.Select
.Range("D385").Select
ActiveWindow.ScrollRow = 385
Else
.Range("D385,D386,D388").ClearContents
End If
.Protect Password:="pw", DrawingObjects:=True, Contents:=True, _
Scenarios:=True, AllowFormattingCells:=True
End With
End Sub
Sub Button_Kk_2()
Application.ScreenUpdating = False
Dim bol_Sichtbar As Boolean
bol_Sichtbar = Sheets("Eingabe").Range("C8").Value
With Sheets("AK")
.Unprotect Password:="pw"
.Rows("412:445").Hidden = Not bol_Sichtbar
If bol_Sichtbar = True Then
.Select
.Range("D421").Select
ActiveWindow.ScrollRow = 421
Else
.Range("D421,D422,D424").ClearContents
End If
.Protect Password:="pw", DrawingObjects:=True, Contents:=True, _
Scenarios:=True, AllowFormattingCells:=True
End With
Application.ScreenUpdating = True
End Sub
Sub Button_Kk_3()
Dim bol_Sichtbar As Boolean
bol_Sichtbar = Sheets("Eingabe").Range("C9").Value
With Sheets("AK")
.Unprotect Password:="pw"
.Rows("446:479").Hidden = Not bol_Sichtbar
If bol_Sichtbar = True Then
.Select
.Range("D455").Select
ActiveWindow.ScrollRow = 455
Else
.Range("D455,D456,D458").ClearContents
End If
.Protect Password:="pw", DrawingObjects:=True, Contents:=True, _
Scenarios:=True, AllowFormattingCells:=True
End With
End Sub
Sub Button_Kk_4()
Dim bol_Sichtbar As Boolean
bol_Sichtbar = Sheets("Eingabe").Range("C10").Value
With Sheets("AK")
.Unprotect Password:="pw"
.Rows("480:513").Hidden = Not bol_Sichtbar
If bol_Sichtbar = True Then
.Select
.Range("D489").Select
ActiveWindow.ScrollRow = 489
Else
.Range("D489,D490,D492").ClearContents
End If
.Protect Password:="pw", DrawingObjects:=True, Contents:=True, _
Scenarios:=True, AllowFormattingCells:=True
End With
End Sub
Sub Button_Kk_5()
Dim bol_Sichtbar As Boolean
bol_Sichtbar = Sheets("Eingabe").Range("C12").Value
With Sheets("AK")
.Unprotect Password:="pw"
.Rows("514:547").Hidden = Not bol_Sichtbar
If bol_Sichtbar = True Then
.Select
.Range("D523").Select
ActiveWindow.ScrollRow = 523
Else
.Range("D523,D524,D526").ClearContents
End If
.Protect Password:="pw", DrawingObjects:=True, Contents:=True, _
Scenarios:=True, AllowFormattingCells:=True
End With
End Sub
Sub Button_Kk_6()
Dim bol_Sichtbar As Boolean
bol_Sichtbar = Sheets("Eingabe").Range("G6").Value
With Sheets("AK")
.Unprotect Password:="pw"
.Rows("548:581").Hidden = Not bol_Sichtbar
If bol_Sichtbar = True Then
.Select
.Range("D557").Select
ActiveWindow.ScrollRow = 557
Else
.Range("D557,D558,D560").ClearContents
End If
.Protect Password:="pw", DrawingObjects:=True, Contents:=True, _
Scenarios:=True, AllowFormattingCells:=True
End With
End Sub
Sub Button_Kk_7()
Dim bol_Sichtbar As Boolean
bol_Sichtbar = Sheets("Eingabe").Range("G7").Value
With Sheets("AK")
.Unprotect Password:="pw"
.Rows("582:615").Hidden = Not bol_Sichtbar
If bol_Sichtbar = True Then
.Select
.Range("D591").Select
ActiveWindow.ScrollRow = 591
Else
.Range("D591,D592,D594").ClearContents
End If
.Protect Password:="pw", DrawingObjects:=True, Contents:=True, _
Scenarios:=True, AllowFormattingCells:=True
End With
End Sub
Sub Button_Kk_8()
Dim bol_M18 As Boolean
bol_M18 = Sheets("Eingabe").Range("G9").Value
With Sheets("AK")
.Unprotect Password:="pw"
.Rows("616:649").Hidden = Not bol_M18
If bol_M18 = True Then
.Select
.Range("D625").Select
ActiveWindow.ScrollRow = 625
Else
.Range("D625,D626,D628").ClearContents
End If
.Protect Password:="pw", DrawingObjects:=True, Contents:=True, _
Scenarios:=True, AllowFormattingCells:=True
End With
End Sub
Sub Button_Kk_9()
Dim bol_M19 As Boolean
bol_M19 = Sheets("Eingabe").Range("G10").Value
With Sheets("AK")
.Unprotect Password:="pw"
.Rows("650:683").Hidden = Not bol_M19
If bol_M19 = True Then
.Select
.Range("D659").Select
ActiveWindow.ScrollRow = 659
Else
.Range("D659,D660,D662").ClearContents
End If
.Protect Password:="pw", DrawingObjects:=True, Contents:=True, _
Scenarios:=True, AllowFormattingCells:=True
End With
End Sub
Sub Button_Kk_10()
Dim bol_M21 As Boolean
bol_M21 = Sheets("Eingabe").Range("G12").Value
With Sheets("AK")
.Unprotect Password:="pw"
.Rows("684:717").Hidden = Not bol_M21
If bol_M21 = True Then
.Select
.Range("D693").Select
ActiveWindow.ScrollRow = 693
Else
.Range("D693,D694,D696").ClearContents
End If
.Protect Password:="pw", DrawingObjects:=True, Contents:=True, _
Scenarios:=True, AllowFormattingCells:=True
End With
End Sub