Zellschutz + ActiveX-Elemente

Forumthread: Zellschutz + ActiveX-Elemente
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Zellschutz + ActiveX-Elemente

max

Hallo Excel-Kollegen,
ich habe eine Checkliste in einem Tabellenblatt erstellt mit vielen ActiveX-Steuer-Elementen (CheckBox) und jeweils einem Tabellenfeld ohne Zellschutz (für erledigtDatum).
Kann mir jemand helfen, über ein Makro am Monatsende die ungeschützen Felder zu leeren und die ActiveX-Elemente auf Wert "False" zu setzen. Checkboxen und Datumsfelder sind quer über das Tab-Blatt verteilt.
Schon mal vorab Dank an alle Hilfsbereiten.
Gruß
max

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Zellschutz + ActiveX-Elemente

Beverly
AW: Zellschutz + ActiveX-Elemente

max

AW: Zellschutz + ActiveX-Elemente

14.07.2011 12:18:24

Beverly

Hi Max,
meinst du das so

Sub Zuruecksetzen()
Dim rngZelle As Range
Dim chbElement As OLEObject
For Each rngZelle In ActiveSheet.UsedRange
If rngZelle.Locked = False Then rngZelle.ClearContents
Next rngZelle
For Each chbElement In ActiveSheet.OLEObjects
If chbElement.progID = "Forms.CheckBox.1" Then chbElement.Object = False
Next chbElement
End Sub