Zugriff verweigert 70
12.04.2013 09:05:05
Christopher
Egal wie ich es drehe und wende, ich bekomme immer Zugriff verweigert
Ich habe zu meinem bestehenden, funktionierenden Code drei Zeilen hinzugefügt.
Woran könnte das liegen?
Private Sub Worksheet_Activate()
ActiveSheet.Protect userinterfaceonly:=True, Password:="1234"
ActiveSheet.EnableOutlining = True
ActiveSheet.EnableAutoFilter = True
Sheets("Januar").Unprotect Password:="1234" 'Diese Zeile ist nue dazugekommen
Sheets("Januar").ListBox1.List = Sheets("ONo").Range("D2:D1000").Value 'Diese Zeile ist nue _
dazugekommen
Sheets("Januar").Protect Password:="1234" 'Diese Zeile ist nue dazugekommen
With ListBox1
.Top = Range("AC1").Top
.Left = Range("AC1").Left
.Height = Range("AC1:AS5").Height
.Width = Range("AC1:AS5").Width
End With
Range("G10").Select
End Sub