Ungeschützte Zellen selektieren

29/01/2009 - 15:06 von Andreas Killer | Report spam
Halollo!

Hat jemand grad ein Makro zur Hand das mir unter XL2000 alle
ungeschützten Zellen in einer Tabelle selektiert?

Also so ala: Cells.SpecialCells(xlLockedCells).Select ?

Andreas.
 

Lesen sie die antworten

#1 Michael Franke
29/01/2009 - 21:36 | Warnen spam
Hallo Andreas,

On 29 Jan., 15:06, Andreas Killer wrote:
Halollo!

Hat jemand grad ein Makro zur Hand das mir unter XL2000 alle
ungeschützten Zellen in einer Tabelle selektiert?

Also so ala: Cells.SpecialCells(xlLockedCells).Select ?

Andreas.



sowas in dieser Richtung?

Sub Schutz()
Dim rngZelle As Range
Dim strZellen As String
For Each rngZelle In ActiveSheet.UsedRange
If rngZelle.Locked Then strZellen = strZellen &
rngZelle.Address & ","
Next
If Len(strZellen) > 0 Then
strZellen = Left(strZellen, Len(strZellen) - 1)
ActiveSheet.Range(strZellen).Select
MsgBox Selection.Cells.Count & " Zellen sind gesperrt."
End If
End Sub

Gruß, Michael

Ähnliche fragen