Office: (Office 2007) Excel Schreibschutz aktivieren

Helfe beim Thema Excel Schreibschutz aktivieren in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; ok hier ein beispiel alle zellen sollen gesperrt sein außer die hellgelben und die hellgrauen meine vorstellung war das die hellgelben dann zu... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von corraggiouno, 3. März 2008.

Seite 2 von 3

STGAERTNER

stgaertner

Excel Schreibschutz aktivieren

ok hier ein beispiel

alle zellen sollen gesperrt sein

außer die hellgelben und die hellgrauen

meine vorstellung war das die hellgelben dann zu bestimmten zeiten gesperrt werden die Zeit ist abhängig wann des spiel stattfinden.

Wenns möglich ist sogar 15min vor spielbeginn sollen die zellen gesperrt werden

Vielen dank im vorraus

stgaertner, 15. Juni 2010

#16
STGAERTNER

stgaertner

das ganze soll dann auf mehreren Tabellen anwendbar sein.....

danke

stgaertner, 15. Juni 2010

#17
JINX

jinx

Moin, stgaertner,

Du willst die Mappe aber nicht auch noch freigeben, damit mehrere Benutzer gleichzeig ihre Tipps eingeben können? Dann würde ich Dir zur Verwendung einer Datenbank (z.B. Access) raten und mich auf die faule Haut legen.

jinx, 15. Juni 2010

#18
STGAERTNER

stgaertner

Excel Schreibschutz aktivieren

ne muss nicht sein das mehrere drauf zugreifen.

ich brauch nur das was ich vorher geschrieben hab

stgaertner, 15. Juni 2010

#19
JINX

jinx

Moin, stgaertner,

als Ansatz ohne Umsetzung in Code würde ich alle Zeiten und zu sperrenden Bereiche aller betroffenen Tabellen als Liste auf einer (Sammel-)Tabelle zusammenfassen und die Zeitsteuerung von dort aus überwachen. Aus den einzelnen Tabellen heraus erscheint mir der Aufwand wesentlich höher und der Code umfangreicher zu werden.

Die Zeiten und Bereiche können ggf. per Makro auf dem Sammler zusammengefasst werden, da während der Gruppenphasen der Aufbau der Tabellen gleich sein müsste.

Ich kann nicht versprechen, ob ich Dir im Laufe des heutigen Tages einen Codeansatz liefern kann, denn zur Zeit reizt mich das Wetter draußen mehr als VBA... *wink.gif*

jinx, 15. Juni 2010

#20
STGAERTNER

stgaertner

ok ich kann warten

bin momentan auch beschäftigt mit fußball gucken^^

viel dank

stgaertner, 15. Juni 2010

#21
JINX

jinx

Moin, stgaertner,

in die Beispielmappe habe ich eine Tabelle Sammler mit den Angaben Datum, Uhrzeit, Tabelle, Bereich, Gesperrt eingefügt sowie die vorhandene Tabelle kopiert und die Zeitangaben manuell geändert (diese dürften kaum stimmen, weil ich gucke nun - nicht nur jetzt - mal keinen Fußball).

Code:

'DieseArbeitsmappe
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Ausschalten des Makros beim Beenden der Mappe
On Error Resume Next
Call BerechnenStop
End Sub

Private Sub Workbook_Open()
Dim ws As Worksheet
Dim lngLastEntry As Long
Dim lngCounter As Long

'Passwortschutz für alle Tabellen außer der Tabelle Sammler
'mit der Option MakroCodeausführung setzen
For Each ws In Worksheets
If ws.Name "Sammler" Then
With ws
.Protect Password:="geheim", userinterfaceonly:=True
'alle Zellen werden dabei wieder entsperrt für den Fall, dass
'ein Zeitpunkt überschritten wurde
.Cells.Locked = False
End With
End If
Next ws

'Zuweisung des aktuellen Datums und der aktuellen Zeit an die Variable 'gdNextTime'
gdNextTime = Now - TimeSerial(0, 0, 15)

'wir arbeiten die Angaben der Tabelle Sammler ab
With Sheets("Sammler")
'letzter Eintrag in Spalte A wird festgestellt
lngLastEntry = .Cells(Rows.Count, "A").End(xlUp).Row
'Angaben über den Schutz der Tabellen werden gelöscht
.Range("E2:E" & lngLastEntry).ClearContents
For lngCounter = 2 To lngLastEntry
'In einer Schleife werden die Zeitangaben verglichen, wenn Spieltermin ./.15 Minuten verstrichen, dann
'wird der Bereich gesperrt und ein Vermerk in die Spalte E des Sammlers gesetzt
If CDbl(.Cells(lngCounter, "A").Value + .Cells(lngCounter, "B").Value) < gdNextTime Then
Sheets(.Cells(lngCounter, "C").Value).Range(.Cells(lngCounter, "D").Value).Locked = True
.Cells(lngCounter, "E") = True
'ansonsten wird die neue Startzeit für das Makro festgestellt und die Abarbeitung der Liste beendet
Else
gdNextTime = CDbl(.Cells(lngCounter, "A").Value + .Cells(lngCounter, "B").Value) - TimeSerial(0, 0, 15)
Exit For
End If
Next lngCounter
End With

'Aufruf des Makros
BerechnenStart
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

'Standardmodul
Option Explicit
'Tabelle alle 10 Sekunden sortieren
'212903

Public Const dsMacro As String = "Berechnen"
Public gdNextTime As Double

Sub BerechnenStart()

'Start des vorgegebenen Makros zu der ermittelten Zeit
Application.OnTime gdNextTime, dsMacro

End Sub

Sub Berechnen()

Dim lngLastEntry As Long
Dim lngCounter As Long

'Prüfen der Angaben auf derTtabelle Sammler, die unbedingt
'nach Tagesdatum und Spieltermin sortiert sein müssen
With Sheets("Sammler")
'erste freie Zeile in der Spalte E wird festgestellt, die Zeitwerte verglichen
lngLastEntry = .Cells(Rows.Count, "E").End(xlUp).Row + 1
Do While CDbl(.Cells(lngLastEntry, "A").Value + .Cells(lngLastEntry, "B").Value) < gdNextTime
Sheets(.Cells(lngLastEntry, "C").Value).Range(.Cells(lngLastEntry, "D").Value).Locked = True
.Cells(lngLastEntry, "E") = True
lngLastEntry = lngLastEntry + 1
'für den Fall, dass zwei Spiele zur gleichen Zeit angesetzt sind, weiter in Schleife prüfen
Loop
'neue Startzeit feststellen
gdNextTime = CDbl(.Cells(lngLastEntry, "A").Value + .Cells(lngLastEntry, "B").Value) - TimeSerial(0, 0, 15)
End With

'Aufruf des Makros für den nächsten Start
BerechnenStart

End Sub

Sub BerechnenStop()

'Ausschalten einer möglichen Fehlermeldung und des Makros, damit die Mappe beim nächsten Zeitpunkt nicht
'wieder geöffnet wird. Sollte dies gewünscht sein, die Anweisungen dieser Prozedur durch Voransetzen
'eines ' in einen Kommentar verwandeln (Standardfarbe dafür: grün), der nicht ausgeführt wird
On Error Resume Next
Application.OnTime earliesttime:=gdNextTime, procedure:=dsMacro, schedule:=False

End Sub

Sub BereicheEntsperren()

Dim ws As Worksheet

For Each ws In Worksheets
If ws.Name "Sammler" Then
ws.Cells.Locked = False
End If
Next ws

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das letzte Makro war nur für mich zur Erleichterung, um die Zellen wieder zu entsperren. Wichtig ist, dass die Tabelle Sammler nach Datum und Uhrzeit sortiert ist, damit die Zeitpunkte richtig gesetzt werden.

jinx, 16. Juni 2010

#22
STGAERTNER

stgaertner

Excel Schreibschutz aktivieren

Hi vielen Dank,

ich werde mal das ganze ausprobieren und in meine Tabelle einpflegen.

Mal gucken ob alles funktioniert.

mfg

stgaertner, 20. Juni 2010

#23
STGAERTNER

stgaertner

Hey,

also hab die Codes mal verwendet nur gibs da en problem

wenn ich was änder an daten....

irgendwann später nach 2-3 mal abspeichern kommt beim erneuten öffnen der datei fehlermeldeung

"Dateifehler: Daten sind wohlmöglich verloren gegangen."

die man dann mehrmals bestätigen muss

Gruß

stgaertner, 20. Juni 2010

#24
JINX

jinx

Moin, stgaertner,

klingt mir eher nach einem Kompatibilitätsproblem (setzt Du Excel2007 ein und betreibst die Mappe als *.xls?)

jinx, 20. Juni 2010

#25
STGAERTNER

stgaertner

ich benutze momentan excel 2003

wenn ich bei dem Arbeitsblatt "Sammler" bei deiner Beispieldatei bestimmte Zeilen löschen wieder hinzufüge war der Fehler wieder weg.

Bei meiner Datei ist der Fehler aber noch vorhanden...

stgaertner, 20. Juni 2010

#26
STGAERTNER

stgaertner

kann es zu problemen kommen wenn sich im Blatt "Sammler" Zellen überschneiden

bsp:

zelle A1:B5 um 16 Uhr heute
Zelle B1:C1

stgaertner, 21. Juni 2010

#27
JINX

jinx

Excel Schreibschutz aktivieren

Moin, stgaertner,

hast Du im Beispiel auf der Tabelle Sammler auch nur eine verbundene Zelle entdeckt? Wenn Du der Meinung bist, Zellen verbinden zu müssen, bitte schön, tu´s doch - dann solltest Du dies aber auch im Code entsprechend ändern (der geht nämlich, wie im Beispiel, von einzelnen Zellen aus).

Die von Dir angegebenen Verbindungen kann ich auf meinem Rechner nicht herstellen, da immer der Bereich A1:C5 verbunden wird (Excel2000)...

jinx, 21. Juni 2010

#28
STGAERTNER

stgaertner

ähm ne so mein ich des nicht

Datum Zeit Tabelle Bereich Gesperrt
11.06.2010 0:00 Gruppe A A1:H11 WAHR
11.06.2010 0:00 Gruppe A A1:CN116 WAHR
11.06.2010 0:00 Gruppe A A1:Y2 WAHR
11.06.2010 0:00 Gruppe A A3:C3 WAHR

wenn sich so die Bereiche überschneiden.

hab mich wohl falsch ausgedrückt

stgaertner, 21. Juni 2010

#29
JINX

jinx

Moin, stgaertner,

jetzt verstehe ich nichts mehr (jedenfalls ohne Beispiel). Beim Öffnen der Mappe wird zuerst einmal sichergestellt, dass Makroaktionen auf den geschützten Tabellen durchgeführt werden können. Dann werden auf allen Tabellen alle Zellen entsperrt, also die Bearbeitung zugelassen. Danach wird Bereich für Bereich auf den Tabellen der Schutz aktiviert - und dabei ist es meines Wissens unerheblich, ob die Zellen vorher schon gesperrt waren oder nicht (sie sollten es nach den Aktionen für die vorangehenden Uhrzeiten sein).

jinx, 21. Juni 2010

#30

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 2 von 3

Thema:

Excel Schreibschutz aktivieren

Die Seite wird geladen...

Excel Schreibschutz aktivieren - Similar Threads - Excel Schreibschutz aktivieren
Excel Blattschutz & Power Query – bestimmte Zellen freigeben, aber Aktualisierung weiterhin erlauben
in Microsoft Excel Hilfe
Excel Blattschutz & Power Query – bestimmte Zellen freigeben, aber Aktualisierung weiterhin erlauben: Hallo miteinander, ich experimentiere gerade mit dem Blattschutz in Excel und bin auf ein paar Herausforderungen gestoßen, bei denen ich eure Unterstützung brauchen könnte. 1) Funktioniert schon...
VBA - Ausblenden aller Tabellenblätter außer X
in Microsoft Excel Hilfe
VBA - Ausblenden aller Tabellenblätter außer X: Guten Morgen, ich bin ziemlicher VBA Neuling und habe aktuell Probleme mit einer Datei, die ich entwickelt habe. Zu der Datei: Es handelt sich um Daten, auf die lediglich ein bestimmter...
Excel Verknüpfung Schreibschutz aufheben
in Microsoft Excel Hilfe
Excel Verknüpfung Schreibschutz aufheben: Hallo, ich möchte eine Verknüpfung zwischen einer schreibgeschützten Ausgangsdatei und einer neuen Excel Datei herstellen.Damit man die neuen Excel Datei aktualisieren kann ist die Eingabe des...
Excel Kommentar schreibschützen (read-only) via VBA?
in Microsoft Excel Hilfe
Excel Kommentar schreibschützen (read-only) via VBA?: Hallo! Ich schreibe per VBA Infotexte in das Kommentar eines geänderten Feldes. Das Kommentar soll aber nicht von Hand gelöscht oder geändert werden können sondern nur von meiner VBA-Routine....
per VBA Excel öffnen ohne Schreibschutz, speichern und schließen
in Microsoft Access Hilfe
per VBA Excel öffnen ohne Schreibschutz, speichern und schließen: Hallo zusammen, ich möchte aus VBA in Access heraus eine Exceldatei öffnen, speichern und schließen. Dazu nutze ich folgenden Code: Code: sFile = "V:DatenBerechnung.xlsx" Set xlApp =...
Laufzeitfehler 13 & Blattschutz (VBA Excel 2016)
in Microsoft Excel Hilfe
Laufzeitfehler 13 & Blattschutz (VBA Excel 2016): Hallo zusammen, ich bin leider was das Thema VBA angeht noch ein ganz blutiger Anfänger und suche deshalb eure Hilfe. :( Ich habe eine Tabelle gebaut in der ein paar Formel stehen. Über VBA...
Schreibschutz Excel
in Microsoft Excel Hilfe
Schreibschutz Excel: Hallo miteinander, Hier kommt gleich noch die zweite Frage: Wie kann ich den Schreibschutz für eine Excel-Datei aufheben? (Excel 2010)? Danke für den Wink. Gruss, CFehr

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden