Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 11:45:34
Feld im SAP auslesen
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nicht geschützte Zelle wird nach Makro gesperrt

Nicht geschützte Zelle wird nach Makro gesperrt
16.10.2008 13:40:48
Gesa
Hallo liebes Forum,
ich habe das Makro "automatische Zeilenhöhe bei verbunden Zellen" in einer anderen Datei verwendet - hier läuft es einwandfrei.
Bei der beigefügten Datei ist es immer so, dass wenn in geschützten Zellen (die von der Grundeinstellung nicht geschützt sind) etwas eingegeben wird nach verlassen/durchführung des Makros die Zelle gesperrt ist.
Hat jemand einen Rat?
Schöne Grüße
Gesa S.
Datei: https://www.herber.de/bbs/user/56059.xls

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nicht geschützte Zelle wird nach Makro gesperrt
16.10.2008 13:57:00
Johann
Hallo Gesa!
Du hast ja in jedem deiner Codes die Anweisung
ActiveSheet.Protect Password:="1234"
enthalten. Diese Anweisung bewirkt, dass der Blattschutz aktiviert wird.
Schöne Grüße
Johann
AW: Nicht geschützte Zelle wird nach Makro gesperrt
16.10.2008 14:05:21
Luschi
Hallo Gesa,
füge folgende Zeile nach
.Cells(1).ColumnWidth = ActiveCellWidth
.MergeCells = True
noch hinzu, und Du bist den Spuck los:
.Locked = False
Gruß von Luschi
aus klein-Paris
AW: Nicht geschützte Zelle wird nach Makro gesperrt
16.10.2008 15:32:00
Gesa
Hallo "Luschi",
hallo Forum,
erstmal vielen Dank für die schnelle Antwort.
Sorry..bin wie gesagt in Makro-Planung nicht so gut....
Kannst Du/ihr mir das Makro vielleicht mit
<b>.Cells(1).ColumnWidth = ActiveCellWidth.MergeCells = True</b>
~f~
vervollständigen, damit ich das so wieder einfügen kann:
~f~
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="1234"
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
Dim CurrCell As Range, RowHeightMin As Single
Dim ActiveCellWidth As Single, PossNewRowHeight As Single
RowHeightMin = 10 ' Diesen Wert vergrößern, wenn eine Mindestzeilenhöhe nicht unterschritten werden soll
If Target.Row < 1 And Target.Row > 940 Then
If Target.MergeCells Then
With Target.Range("A1").MergeArea
If .Rows.Count = 1 And .WrapText = True Then
Application.ScreenUpdating = False
.EntireRow.AutoFit
CurrentRowHeight = Target.Range("A1").RowHeight
ActiveCellWidth = Target.Range("A1").ColumnWidth
For Each CurrCell In Target.Range("A1").MergeArea
MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth
Next
.MergeCells = False
.Cells(1).ColumnWidth = MergedCellRgWidth
.EntireRow.AutoFit
PossNewRowHeight = .RowHeight
.Cells(1).ColumnWidth = ActiveCellWidth
.MergeCells = True
.RowHeight = IIf(Application.WorksheetFunction.Max(CurrentRowHeight, RowHeightMin) > PossNewRowHeight, _
WorksheetFunction.Max(CurrentRowHeight, RowHeightMin), PossNewRowHeight)
End If
End With
End If
End If
Application.ScreenUpdating = True
ActiveSheet.Protect Password:="1234"
Vielen Dank und schöne Grüße
Gesa S.
Anzeige
AW: Nicht geschützte Zelle wird nach Makro gesperrt
16.10.2008 17:48:56
Herbert
Hi,
vor allem den "Spuck".
mfg Herbert

306 Forumthreads zu ähnlichen Themen

Makro: Mail wird nicht erzeugt
Ralf

Hallo,
das folgende Makro blokiert in der Zeile 'Set mailitem = outobj.createitem(0)'
Sub Mail_Stammdaten() Dim ob, mailitem As Object Set ob = CreateObject("outlook.application") Set mailitem = outobj.createitem(0) On Error Resume Next With mailitem .Subject = "Neuanlage in Decalog"...
17.09.2008 11:49:20
Thread-ID: 1010312
5 Beiträge
Anzeige
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
Filterergebnisse werden nicht angezeigt
hajo


Hallo zusammen,
wenn ich mit Autofilter einen Filter in VBA setze, wird mir das Ergebnis nicht angezeigt. Wenn ich die gleiche Aktion manuell ausführe bekomme ich das gewünschte Ergbniss. Kann mir jemand helfen?
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter F...
29.10.2008 12:43:42
Thread-ID: 1020236
5 Beiträge
Anzeige
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Makros werden nicht übertragen
Bernd


Hallo, liebe Excel-Freaks,
ich bitte Euch um Eure Hilfe. Nachstehendes Makro - das ich mit Hilfe dieses Forum erstellt habe - aktualisiert alle Blätter einer Abteilung mittels Sverweis und kopiert diese mit neuen Datei-Namen in ein Verzeichnis.
Leider kopiert das Makro dabei keine...
07.01.2009 13:21:00
Thread-ID: 1037519
2 Beiträge
Makros werden nicht übertragen
Bernd


Hallo, liebe Excel-Freaks,
ich bitte Euch um Eure Hilfe. Nachstehendes Makro - das ich mit Hilfe dieses Forum erstellt habe - aktualisiert alle Blätter einer Abteilung mittels Sverweis und kopiert diese mit neuen Datei-Namen in ein Verzeichnis.
Leider kopiert das Makro dabei keine...
07.01.2009 13:21:00
Thread-ID: 1037520
2 Beiträge
Makro wird nicht ausgelöst
werner

Hallo zusammen,
ich habe folgendes Makro geschrieben:
Private Sub Worksheet_Calculate() If Range("B6") = 1 Then Range("D4") = Range("D7") If Range("B6") = 2 Then Range("D4") = Range("D8") If Range("B6") = 3 Then Range("D4") = Range("D9") End If End If End If End Sub
Wenn in Zelle...
13.01.2009 21:37:00
Thread-ID: 1039394
11 Beiträge
Makro wird nicht ausgelöst
werner

Hallo zusammen,
woran könnte es liegen das das Makro nicht ausgelöst wird, wenn in Zelle N15 eine 1 steht (durch eine Formel)?
Gruß Werner
Sub ma5geez() Application.EnableEvents = False With Sheets("Gehälter") If .Range("N15") = 1 Then If MsgBox("soll die Erhöhung von " & .Ran...
26.01.2009 06:07:00
Thread-ID: 1043725
5 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
15
4
2
3
1
1
10
4
1
6
5
2
3
2
7
3
5
5
2
2
13
1
1