Mehrere Tabellenblätter mit Makro schützen funktioniert nur teilweise

[Dr.Chaos]

Hört sich gut an Werner, aber an welcher Stelle des Makros muß ich die Zeile bitte einfügen  :22:

Gruss Udo

[Werner.M]

Hallo Udo,

na einfach im anderen Code die Zeile ws.Protect durch die neue Codezeile ersetzen.

Gruß Werner

[Dr.Chaos]

So habe ich es versucht, funktioniert aber nicht. 
Wird wohl wahrscheinlich an meinen bescheidenen VBA Kenntnissen hängen.
Ich hänge Dir einfach mal die Datei an.
Wenn es nicht zu viel Mühe macht, wäre es klasse wenn Du mal reinschaust.
Ansonsten bin ich aber auch schon so zufrieden wie es jetzt ist.

Gruss Udo

[Wastl]

Hallo,

das Problem scheint es früher schon gegeben zu haben siehe Link. Dort steht auch eine Abhilfe
http://www.herber.de/forum/archiv/660to6...alten.html

[Dr.Chaos]

Ich habe jetzt alles erdenkliche ausprobiert, komme aber nicht zur gewünschten Lösung.

So wie es jetzt ist entspricht es zwar nicht so ganz meinen Vorstellungen, es ist aber auch O.K.

Ich bedanke mich ganz herzlich für Eure schnelle und kompetente Hilfe.

Gruss Udo

[Werner.M]

Hallo,

dann pack das doch ins Workbook_Open Ereignis der Mappe. Den Wink hat dir doch Wastl schon mit seinem Link gegeben.

Im Makroeditor doppelklick auf "DieseArbeitsmappe" und den Code rechts ins Codefenster kopieren.

Der Code wird beim Öffnen der Mappe ausgeführt.

Code:

Private Sub Workbook_Open()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
   ws.Protect EnableSelection = xlUnlockedCells
Next ws
End Sub

Gruß Werner

[Dr.Chaos]

Hallo Werner, Hallo Wastl,

leider wußte ich nicht was das "Workbook_Open Ereignis" ist, daher bin ich nicht auf den Gedanken gekommen den Tipp von Wastl anzuwenden.
Ich merke schon, ... ich muss noch seeeeehr viel lernen in Excel.

In dem Workbook Open Ereigniss ist bei mir schon folgendes eingetragen um die Datei im Vollbildmodus zu öffnen:

------------------------------------------------------------
Private Sub Workbook_open()
Application.DisplayFullScreen = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
End Sub

-------------------------------------------------------------------

Ich habe jetzt versucht den kompletten Code einfach dahinter zu setzen und auch den Code vor den Befehl End Sub zu setzen. Beides hat nicht funktioniert. Wohin oder an welche Stelle muß ich den Code denn schreiben damit alles funktioniert?

Gruss Udo

[Wastl]

Hi,

funktioniert aber nicht. 

Diese Aussage hilft wenig. Was funktioniert nicht?

• Hängt der Code?
  
• Gibt es eine Fehlermeldung?
  
• Tritt die gewünschte Funktion nicht ein?
  

In dem Beispiel von 2005 war es so: wurde das bis zum Ende gelesen?

Problem: wenn ich das mache, funktioniert es sehr gut. Dann speicher ich, schließe das File und öffne es wieder. Dann ist das Blatt zwar weiter geschützt, aber die Option "xlunlockedcells" hat er wieder vergessen, heisst man kann wieder alle Zellen anspringen.

Eins habe ich noch festgestellt:
Wenn man das einmal händisch gesetzt hat, behält excel die einstellung auch wenn man beim nächsten mal per makro schützt.
Vielleicht hilfts ja einmal irgendwem ;))

Ich bin mir sicher, dass alle geposteten Codes ohne "xlunlockedcells" bestens funktionieren, weil ich es ohne getestet habe.

[Dr.Chaos]

Hallo Wastl,

ich habe jetzt noch mal meine Originaldatei genommen, habe den Code zum sperren aller Arbeitsblätter von Euch eingefügt und habe die einzelnen Arbeitsblätter händisch geschützt. 
Ins Workbook_open Ereignis habe ich zuerst mal nichts eingetragen.
Siehe da, jetzt funktioniert es einwandfrei.
Es werden alle Arbeitsblätter der Arbeitsmappe geschützt auch ohne den zusätzlichen Eintrag ins Workbook_open Ereignis.
Ich vermute mal das ich durch meine vielen Versuche unbeabsichtigt irgendetwas zerschossen habe.

Ich danke Euch beiden nochmals ganz herzlich für Eure Hilfe und werde daran arbeiten bzw. den Versuch unternehmen mich in VBA einzudenken und einzuarbeiten.

BESTEN DANK

Gruss Udo

[Käpt'n Blaubär]

Hallo Udo,

Ich habe jetzt versucht den kompletten Code einfach dahinter zu setzen und auch den Code vor den Befehl End Sub zu setzen. Beides hat nicht funktioniert. Wohin oder an welche Stelle muß ich den Code denn schreiben damit alles funktioniert?

vielleicht habe ich Dich auch falsch verstanden. Schau'n wir mal, dann seh'n wir schon.

Man kann nicht zwei Makros gleichen Namens in das gleiche Modul schreiben. Die muß
man dann schon miteinander verschwurbeln, so daß es am Ende doch wieder ein Makro ist.

Wenn Du beide Codes mal hier einstellst, dann können wir ja gucken, was da zu machen ist.