gesperrte Zellen auswählen

Bild

Betrifft: gesperrte Zellen auswählen
von: wally
Geschrieben am: 30.10.2003 10:24:53

Hallo,

Ich möchte ein Arbeitsblatt mittels VBA schützen. Allerdings habe ich keine Möglichkeit gefunden, wie ich gesperrte Zellen vor der Auswahl schützen kann. Wenn ich das Arbeitsblatt manuell über die Menüfunktion in Excel schütze, besteht die Möglichkeit die Option "Gesperrte Zellen auswählen" zu deaktivieren.
Genau das möchte ich auch über VBA erreichen.

Hat jemand eine Idee?

Bild


Betrifft: AW: gesperrte Zellen auswählen
von: Hajo_Zi
Geschrieben am: 30.10.2003 10:35:19

Hallo wally

geschützte Zellen nicht auswählen

Private Sub Worksheet_Activate()
    ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

von Nepumuk

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.MoveAfterReturnDirection = xlDown
End Sub


Private Sub Workbook_Open()
  Dim Wb As Workbook, Sh As Worksheet
  For Each Wb In Workbooks
    For Each Sh In Wb.Worksheets
      Sh.EnableSelection = xlUnlockedCells
    Next Sh
  Next Wb
  Application.MoveAfterReturnDirection = xlToRight
End Sub

von Rolf, Lgh.



Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.




Bild


Betrifft: AW: gesperrte Zellen auswählen
von: wally
Geschrieben am: 30.10.2003 10:56:55

hat geklappt! Danke!


 Bild

Beiträge aus den Excel-Beispielen zum Thema " gesperrte Zellen auswählen"