Autom. Zeilenhöhe verbundene Zelle mit Blattschutz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Luc,
den ersten Teil hab ich verstanden und sieht jetz so aus:

Private Sub Worksheet_Activate()
Me.Protect "1234", True, True, True, True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MergedRangeWidth As Single, MergedCellWidth As Single, NewRowHeight As Single
Dim CurrCell As Range, iX As Integer
If Target.MergeCells Then
If Target.Cells(1) = "" Then
Target.EntireRow.AutoFit
Else
With Target.MergeArea
If .Rows.Count = 1 And .WrapText = True Then
Application.ScreenUpdating = False
MergedCellWidth = .Cells(1).ColumnWidth
For Each CurrCell In Target.MergeArea
MergedRangeWidth = CurrCell.ColumnWidth + MergedRangeWidth
iX = iX + 1
Next
MergedRangeWidth = MergedRangeWidth + (iX - 1) * 0.71
.MergeCells = False
.Cells(1).ColumnWidth = MergedRangeWidth
.EntireRow.AutoFit
NewRowHeight = .RowHeight
.Cells(1).ColumnWidth = MergedCellWidth
.MergeCells = True
.RowHeight = NewRowHeight
.Locked = False
Application.ScreenUpdating = True
End If
End With
End If
End If
End Sub

Und so das Workbook:

Private Sub Workbook_Open()
Call Me.Sheets("Change").Worksheet_Activate
End Sub

Funktioniert auch. Wenn ich die Datei speicher, schließe, dann wieder öffne und in der nächsten Zeile was eintrage kommt ein Fehler, daß er die MergeCells Eigenschaften des Range-Objektes nicht festlegen kann. Beim Klick auf Debuggen markiert er den Eintrag .Locked=False gelb.
Wenn ich den Blattschutz aktiviere dann habe ich nur nicht gesperrte Zellen auswählen und Zellen und Zeilen formatieren angeklickt.
Ohne Blattschutz klappt alles. Ich vermute es liegt an den Freigaben für den Blattschutz.
Hast du da noch eine Idee?

Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect Passwort Dim MergedRangeWidth As Single, MergedCellWidth As Single, NewRowHeight As Single Dim CurrCell As Range, iX As Integer If Target.MergeCells Then If Target.Cells(1) = "" Then Target.EntireRow.AutoFit Else With Target.MergeArea If .Rows.Count = 1 And .WrapText = True Then Application.ScreenUpdating = False MergedCellWidth = .Cells(1).ColumnWidth For Each CurrCell In Target.MergeArea MergedRangeWidth = CurrCell.ColumnWidth + MergedRangeWidth iX = iX + 1 Next MergedRangeWidth = MergedRangeWidth + (iX - 1) * 0.71 .MergeCells = False .Cells(1).ColumnWidth = MergedRangeWidth .EntireRow.AutoFit NewRowHeight = .RowHeight .Cells(1).ColumnWidth = MergedCellWidth .MergeCells = True .RowHeight = NewRowHeight .Locked = False .FormulaHidden = True Application.ScreenUpdating = True End If End With End If End If ActiveSheet.Protect Passwort End Sub

Im Grunde genommen funktioniert es mit dem Code von Luc.
Ich hatte das nicht verstanden, daß der Schutz automatisch gesetzt wird, wenn ich in ein anderes Blatt wechsel.
Nur wenn ich die Datei neu starte, dann ist ja meistens das zuletzt bearbeitete Blatt offen. In dem Fall Change. Wenn ich jetzt was eintrage, dann kommt der Laufzeitfehler. Ich muß erst in ein anderes Blatt wechseln und wieder zurück dann funktioniert es.
Kann man nicht beim Starten der Datei festlegen, mit welchem Blatt er starten soll?
In meinem Fall wäre das das Blatt "data". Die Datei würde nach dem Öffnen immer mit dem Blatt data starten und dann müßte das Makro funktionieren.
Es ist noch ein weiteres Problem:
In der Arbeitsmappe/Workbook steht jetzt:

Private Sub Workbook_Open()
Me.Sheets("Change").Activate
End Sub

Das ist ungünstig, weil die endgültige Datei mehrere Blätter enthält, in denen ich das Makro benötige. Außerdem werden die Blätter später mal in der Praxis kopiert - auch öfters, weil sie in einem Projekt mehrmals benötigt werden. Die Datei dient als Vorlage für Projektbearbeitung.
Kann man den Code nicht ins Blatt verlagern?
Außerdem ist im VBA das Passwort sichtbar. Damit kann jeder das Passwort einsehen und so ein Schutz macht dann keinen Sinn mehr.
Ist es möglich die Anzeige des Codes zu unterbinden oder das irgendwie anders zu lösen?
Ich weiß dass man auch das umgehen kann, aber der Normaluser kommt da nicht auf die Idee und darum geht es mir.
Schon mal Danke für die tolle Unterstützung. Wir sind schon fast an der endgültigen Lösung angekommen.

Beliebteste Forumthreads (12 Monate)

Autom. Zeilenhöhe verbundene Zelle mit Blattschutz

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread