Office: Beim Verlassen einer Zelle Zellschutz aktivieren?

Hallo!

Zelle C11 hat eine Gültigkeit( eine Liste). Mit einem Makro deaktivier ich den Zellschutz.
Range("C11").Select
Selection.Locked = False
Selection.FormulaHidden = False

sowie
activeSheet.protect

Ich möchte beim Verlassen dieser Zelle den Zellschutz wieder aktivieren, ist das möglich?

Hier der komplette Code für das Ereignis: (passwortabfrage)

Bei KLick auf "B11":

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$B$11" Then
ExecuteExcel4Macro ("SOUND.PLAY(,""C:\zutritt.wav"")")

UserForm1.Show
End If




In der Userform :

Private Sub CommandButton1_Click()
If UserForm1.TextBox1.Text = "xyz" Then
Range("C11").Select
ActiveSheet.Unprotect
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect

Application.EnableEvents = True
Else
ExecuteExcel4Macro ("SOUND.PLAY(,""C:\bad.wav"")")
Unload Me
UserForm1.Show
End If
Unload Me
End Sub


Vielleicht weiss ja Schatzi wieder Bescheid?

Mike

 

Hallo!

oder kann man vielleicht schon bei der Auswahl eines Wertes aus der in C11 hinterlegten Liste gleich etwas "anhängen" das den Zellschutz aktiviert?

MIke

 

Hallo!

Warum setzt du denn "Locked" überhaupt auf False?
Du hast doch vorher schon mit "Unprotect" den Schutz aufgehoben, daher kann die Zelle doch "Locked" bleiben, oder nicht?

 

Hallo Schatzi!

Unprotect nur um den Zellschutz aus C11 rauszunehmen.

Nur die Zelle C11 muss unlocked werden, sonst kann ich keinen Wert aus der Liste wählen. Wenn ich
activeSheet.unprotect nicht mache, kann ich auch den Zellschutz nicht rausnehmen.

Wie gesagt das Blatt an sich muss geschützt bleiben!

Eine Zelle mit Zellschutz lässt die Auswahl auf die dahinter liegende Liste nicht zu!

Gruß

Mike

 

Mir erschließt sich immer noch nicht der Sinn, eine VBA-passwortgeschützte Zelle zusätzlich noch mit einem Blattschutz zu belegen...
Lass doch locked auf false, der User kommt doch eh nur per Passwort an die Zelle.

 

Hallo!
Lasse ich die Zelle C11 unlocked kann der User doch die Dropdown Liste anklicken.

Also setzte ich sie auf Locked.

Wenn ich B11 anklicke wird die Prozedur Passwortabfrage ausgelöst, und C11 freigegeben.

Hast du eine bessere Lösung?

Die Prozedur direkt bei klick auf C11 auszulösen wäre einfacher, funktioniert aber nicht, weil der User die Passwortabfrage abbrechen kann und dann direkt im C11 Feld landet. und dort ist ja die Liste.


MIke

 

Wie kann ich dir einen Screenshot senden?

Mike

 

Mach die Abfrage direkt über C11:

Wechsele im VBA-Editor auf deine Userform, rechtsklicke diese und wähle "Code anzeigen".
Dann diesen Code einfügen:

Code:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Sheets("DeinBlattname").Range("A1").Select
End Sub

Schließt der User die UF über das "X", so landet er wieder in A1.

 

ABSOLUT GENIAL!

und ich bastel mir hier nen Wolf! ;-)


Danke!

Mike