title image


Smiley Re: Alle geschützten Zellen anzeigen
Hallo,



so z.B.:



Option Explicit

Sub Alle_mit_Schutz()

Dim rngUsed As Range, rngLocked As Range, c As Range

Set rngUsed = ActiveSheet.UsedRange

For Each c In rngUsed

If c.Locked Then

Set rngLocked = c

Exit For

End If

Next c

If rngLocked Is Nothing Then

MsgBox "Keine geschützten Zellen gefunden! ", 64, "weise hin..."

Else

For Each c In rngUsed

If c.Locked Then

Set rngLocked = Application.Union(rngLocked, c)

End If

Next c

rngLocked.Select

End If

End Sub



Gruß M.I.Nitraum

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: