Bearbeitung einschränken

Forumthread: Bearbeitung einschränken
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Bearbeitung einschränken

22.01.2023 11:08:46

maylmz

Hallo zusammen,
gibt es die Möglichkeit per VBA gewissen Benutzern die Bearbeitung nur in definierten Zeiträumen zu erlauben?
Außerhalb dieses Zeitraumes muss eine Meldung aufploppen.
Im Netz bin hierzu leider nicht fündig geworden.
Vielen Dank
Gruß, maylmz

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bearbeitung einschränken

22.01.2023 15:03:25

Mister
AW: Bearbeitung einschränken

23.01.2023 08:53:11

maylmz

AW: Bearbeitung einschränken

22.01.2023 15:03:25

Mister

Hallo,
als Ansatz (ungetestet):

Private Sub Workbook_Open()
Call ProtectSheets
If Environ("Username") = "Max Mustermann" Then
If Time > TimeValue("06:00:00") And Time  TimeValue("14:00:00") Then
Call unprotectsheets
Else
MsgBox "Gesperrt"
End If
End If
End Sub
Sub ProtectSheets()
Dim wsheet As Worksheet
For Each wsheet In ActiveWorkbook.Worksheets
wsheet.Protect Password:="password"
Next wsheet
End Sub
Sub unprotectsheets()
Dim wsheet As Worksheet
For Each wsheet In ActiveWorkbook.Worksheets
wsheet.Unprotect Password:="password"
Next wsheet
End Sub

Gruß
Martin

AW: Bearbeitung einschränken

23.01.2023 08:53:11

maylmz

Das haut leider nicht hin.
Ich habe das jetzt mit mehreren Usern / Uhrzeiten ausprobiert. Weder schließt sich die Datei noch kommt die MsgBox.
Gruß, maylmz

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