Schreibgeschützte Zelle aufklappen & Text lesen
21.03.2018 15:03:39
Franz
ich habe ein Sheet das mit Blattschutz versehen ist. In der Spalte W befindet sich doch Text in den einzelnen Zeilen der über die Zeile hinausgeht und "verschwindet" da die Zeilenbreite nicht reicht. Jetzt habe ich folgenden Code der durch Klick auf die jeweilige Zeile diese aufklappt. Jedoch funktioniert dieser nur ohne Blattschutz, da mit Blattschutz die Höhe der Zeile nicht wieder richtig angepasst wird.
Option Explicit
Sub schutz()
ActiveSheet.Protect "Test"
End Sub Sub aufheben()
ActiveSheet.Unprotect "Test"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lzadr ' Adresse der zuletzt angewählten Zelle
Dim zadr
Const ZHoehe = 28.5 ' Höhe einer "normalen" Zeile
On Error Resume Next
Call aufheben
Range(lzadr).RowHeight = ZHoehe
zadr = Selection.Address
If Target.Column = 23 Then
Selection.EntireRow.AutoFit
End If
If Selection.RowHeight Hat jmd ne Idee? Das Problem ist m.E. das der Text nicht bearbeitbar sein soll...oder jmd nen Tipp wie ich das noch mit Excel lösen könnte. Evtl mit bedingter Formatierung?
Gruß Franz
Anzeige