Hallo
Ein Anflug von Verzweiflung.
Was soll der Code unten bewirken:
Die Tabelle wird geschlossen, klick auf X oben rechts.
Die Seite wird dann gewechselt auf die Eröffnungsseite,
(Tabelle 2) zu der, wenn die Tabelle neu gestartet wird.
Alle Einstellungen werden zurückgesetzt.
Ein Eintrag wird noch gemacht und dann soll das Tabellenblatt
geschützt, gesichert und die Tabelle geschlossen werden.
Was passiert:
Egal was ich mache, wenn die Tabelle neu geöffnet wird,
vor dem Aktivieren der Makros, lassen sich alle Zellen
anklicken (aber nur die entsperrten Zellen lassen sich
eintragen, dass ist O.K.) Nach dem Aktivieren verhält
sich alles korrekt, nur die entsperrten Zellen lassen
sich anklicken.
Was sollte sich ändern:
Beim Schließen der Tabelle müsste doch laut VBA
das Tabellenblatt 2 geschützt sein, und sich nur
die entsperrten Zellen anklicken lassen?
Vielleicht gibt es einen Denkfehler ...
Schaut mal drauf.
Danke.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Namen und Datum eintragen").Select
Range("C16").Select
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="@q"
With Sheets(2).Cells(1, 3)
.Value = "Makros bitte aktivieren!"
.Font.ColorIndex = 3
End With
Worksheets(2).Select
ActiveSheet.Protect Password:="@q", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Application.CutCopyMode = True
Application.CellDragAndDrop = True
Application.ScreenUpdating = True
End Sub
Noch eine kleine Frage:
Wenn ich den Vollbildmodus zurücksetzen will,
Application.DisplayFullScreen = False
verschwindet der gesamte obere Teil der Tabelle
einschließlich der Fenster-Werkzeuge wie X zum Schließen.
Beim nächsten Öffnen der Tabelle ist der Vollbildmodus aufgehoben.
Soweit korrekt.
Wird jedoch das Schließen der Tabelle abgebrochen, bleibt die
fehlerhafte Seite und lässt sich nicht mehr schließen, weil der
wichtigste Teil oben fehlt. Falls jemand das Problem kennt,
wäre ich für eine Info dankbar.
Oliver B.