sheet.unprotect läuft etwas holprig
21.03.2017 07:56:42
hockmock
ich hab da mal wieder ein kleines VBA-Problemchen. Nachfolgender Code führt immer zu der Meldung "Die Zelle oder das Diagramm, ...., ist schreibgeschützt". Bei Bestätigung mit "OK" wird aber dennoch der Code korrekt ausgeführt (sprich: Der Eintrag aus der Listenbox wird in die Tabelle geschrieben).
Hat hierzu jemand eine Idee?
Sub ListBox2_Click()
Dim passwort As Long
passwort = RubbeldieKatz
Application.ScreenUpdating = False
ActiveSheet.Unprotect passwort
Cells(ActiveCell.Row, 2).Value = ListBox2.Value
ActiveSheet.Protect passwort
Application.ScreenUpdating = True
End Sub
Danke im voraus.
Grüße,
Andreas