Blattschutz aktviert sich automaitsch
20.10.2013 19:35:12
Maen
mehr aus Spaß versuche ich mich langsam an Excel VBA. Die Codes habe ich mehr zusammengesucht, _
quasi copy&paste. Genauso habe ich auch mein Blattschutz aktiviert. Problem: Wenn ich den _
Blattschutz nun aufhebe und in einer beliebigen Zelle etwas veränder, wird er sofort _
automatisch aktiviert. Ich habe folgenden kompletten Code für mein Tabellenblatt
Private Sub ComboBox1_Change()
ActiveSheet.Unprotect
Selection.Value = ComboBox1.Text
ActiveSheet.Protect
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Check As Boolean
Check = Not Intersect(Target, Range("F4:F21")) Is Nothing
Set Bereich = Selection
With ComboBox1
Select Case Check
Case False
.Visible = False
Case True
.Visible = True
.Top = Target.Top - 1
.Left = Target.Left
.Height = WorksheetFunction.Max(Target(1).Height + 4, 18)
End Select
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
If Range("E4") = "a" Then Rows("5").Hidden = False
If Range("E4") = "" Then Rows("5").Hidden = True
If Range("E6") = "a" Then Rows("7").Hidden = False
If Range("E6") = "" Then Rows("7").Hidden = True
If Range("E8") = "a" Then Rows("9").Hidden = False
If Range("E8") = "" Then Rows("9").Hidden = True
If Range("E10") = "a" Then Rows("11").Hidden = False
If Range("E10") = "" Then Rows("11").Hidden = True
If Range("E12") = "a" Then Rows("13").Hidden = False
If Range("E12") = "" Then Rows("13").Hidden = True
If Range("E14") = "a" Then Rows("15").Hidden = False
If Range("E14") = "" Then Rows("15").Hidden = True
If Range("E16") = "a" Then Rows("17").Hidden = False
If Range("E16") = "" Then Rows("17").Hidden = True
If Range("E18") = "a" Then Rows("19").Hidden = False
If Range("E18") = "" Then Rows("19").Hidden = True
If Range("E20") = "a" Then Rows("21").Hidden = False
If Range("E20") = "" Then Rows("21").Hidden = True
ActiveSheet.Protect
End Sub