|
Hallo,
ich wollte dir eigentlich die Eigenschaft Locked vorschlagen, aber ich habe festgestellt, dass diese ja immer auf True ist,
und wenn ich nun den Blattschutz einschalte kann ich trotzdem den Text ändern.
Ich kenn mich mit dem Blattschutz aber auch nicht sonderlich gut aus.
als 2. würde ich dir die Enable Eigenschaft empfehlen, hat aber den Nachteil der Text wird grau.
Textbox1.Enabled = not Texbox1.Enabled
die 3. Methode wäre dann Abfangen wenn eine Taste gedrückt wurde.
Du müsstest noch schauen wie man richtig abfragt ob der Blatschutz aktive ist, wie gesagt, da kenn ich mich nicht so aus.
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim s As Worksheet
Set s = ActiveSheet
If s.ProtectContents Then KeyCode = 0
End Sub
|