Zellen zwischen 16.30 und 7.00 Uhr sperren

janwe02 · 1970-01-01T00:00:00+00:00

Hallo und guten Morgen, ich suche einen VBA code zum sperren bestimmter Zellen, jedoch nur zwischen 16.30 Uhr und 7.00 Uhr Morgens. Die Sperre soll nur gegen Passwort aufgehoben werden können. Hintergrund: Eine Bestelldatei ist freigegeben und soll von versch. Usern eben nur bis max 16.30 bearbeitet werden , dann ist schluss bis zum nächsten tag. Ich habe schon viel gestöbert zum Tabellen oder Zellenschutz aber leider nichts gefunden was eben die zeiteinschränkung bewirkt Würde mich freuen wenn jemand helfen kann Danke jan

Hallo Jan,
' ************************************************************* _ ' Modul: DieseArbeitsmappe Typ = Element der Mappe(Sheet, Workbook, ...) ' ************************************************************** Option Explicit _ ' Variablendefinition erforderlich '************************************************** '* H. Ziplies * '* 31.03.12 * '* erstellt von HajoZiplies@web.de * '* http://Hajo-Excel.de/ * '************************************************** Private Sub _ Workbook_Activate() 'Sperren Starten Sperren End Sub Private Sub _ Workbook_Deactivate() 'sperren Abschalten Ende End Sub Private Sub _ Workbook_BeforeClose(Cancel As Boolean) Ende ' Sperren _ beenden End Sub Private Sub _ Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Ende ' Sperren _ beenden End Sub





' **************************************************************

'  Modul:  mdl_gesperrt  Typ = Allgemeines Modul

' **************************************************************

Option Explicit                                     ' Variablendefinition erforderlich

Option Private Module                               ' Makro nicht unter Extra, Makro sichtbar

'**************************************************

'* H. Ziplies                                     *

'* 31.03.12                                       *

'* erstellt von HajoZiplies@web.de                *

'* http://Hajo-Excel.de/                          *

'**************************************************

' das Schreiben der Startzeit auf eine Variable hat den Vorteil das die

' Prozedur leichter angehalten werden kann

Public DaEt As Date                                 ' nächste Startzeit

Public Const DaZeitEnde As Date = "16:30"           ' Ende Zeit

Public Const DaZeitStart As Date = "10:23"          ' Start Zeit

Public Const DaZeit As Date = "00:01:00"            ' Zeitabstand prüfen

Dim WsTabelle As Worksheet

Sub Sperren()

For Each WsTabelle In Sheets

If Time <= DaZeitStart Or Time >= DaZeitEnde Then

WsTabelle.Protect ("Gruß Gott")

Else

WsTabelle.Unprotect ("Gruß Gott")

End If

Next WsTabelle

Application.OnTime Time + DaZeit, "Sperren"

End Sub

Sub Ende()

On Error Resume Next                            ' Fehlerroutine von Excel ausschalten

Application.OnTime EarliestTime:=DaEt, Procedure:="Sperren", Schedule:=False

On Error GoTo 0                                 ' Fehlerroutine von Excel einschalten

End Sub

Gruß Hajo

Hallo Jan,
der Code im Modul war nicht ganz korrekt.

Option Explicit                                     ' Variablendefinition erforderlich
Option Private Module                               ' Makro nicht unter Extra, Makro sichtbar
'* H. Ziplies                                     *
'* 31.03.12                                       *
'* erstellt von HajoZiplies@web.de                *
'* http://Hajo-Excel.de/
' das Schreiben der Startzeit auf eine Variable hat den Vorteil das die
' Prozedur leichter angehalten werden kann
Public DaEt As Date                                 ' nächste Startzeit
Public Const DaZeitEnde As Date = "16:30"           ' Ende Zeit
Public Const DaZeitStart As Date = "10:23"          ' Start Zeit
Public Const DaZeit As Date = "00:01:00"            ' Zeitabstand prüfen
Dim WsTabelle As Worksheet
Sub Sperren()
For Each WsTabelle In Sheets
If Time = DaZeitEnde Then
WsTabelle.Protect ("Gruß Gott")
Else
WsTabelle.Unprotect ("Gruß Gott")
End If
Next WsTabelle
DaEt = Time + DaZeit
Application.OnTime DaEt, "Sperren"
End Sub
Sub Ende()
On Error Resume Next                            ' Fehlerroutine von Excel ausschalten
Application.OnTime EarliestTime:=DaEt, Procedure:="Sperren", Schedule:=False
On Error GoTo 0                                 ' Fehlerroutine von Excel einschalten
End Sub

Gruß Hajo

Zellen zwischen 16.30 und 7.00 Uhr sperren

Forumthread: Zellen zwischen 16.30 und 7.00 Uhr sperren

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial