Re: Passwort und CommandButton
13.11.2002 21:17:04
Corinne
Tschau Peter
hier ist mein ganzer Code und der Fehler tritt bereits in der ersten Zeile auf. (ActiveSheet.unprotect....ich würde mich sehr über eine Lösungsmöglichkeit freuen. Besten Dank und en Gruess
Corinne
Private Sub cmdFilterOn_Click()
'Passwortschutz aufheben
ActiveSheet.Unprotect password:="123"
' Check, ob unter Sonstige Lieferungen etwas eingetragen ist.
' Wenn Ja, auf Ebene Titel eine Zahl, weiss formatiert, eintragen
' Formatierung ist auf dem Sheet realisiert
For Each c In Range("e850:e863")
If c.Value > 0 Then
Range("SonstigeLieferungen").Value = 1
End If
Next c
' Check, ob unter Zählerplätze etwas eingetragen ist.
' Wenn Ja, auf Ebene Titel eine Zahl, weiss formatiert, eintragen
' Formatierung ist auf dem Sheet realisiert
For Each c In Range("e868:e875")
If c.Value > 0 Then
Range("Zaehlerplaetze").Value = 1
End If
Next c
' Check, ob unter Bauseitige Lieferungen etwas eingetragen ist.
' Wenn Ja, auf Ebene Titel eine Zahl, weiss formatiert, eintragen
' Formatierung ist auf dem Sheet realisiert
For Each c In Range("e877:e882")
If c.Value > 0 Then
Range("BauseitigeLieferungen").Value = 1
End If
Next c
'cmd Filter ein
Range("a6:g6").Select
Selection.AutoFilter
Selection.AutoFilter Field:=5, Criteria1:=">0", Operator:=xlAnd
'Passwortschutz wieder aktivieren
ActiveSheet.Protect password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub