Code sperrt manchmal falsche Excel
09.08.2022 08:40:34
Michael
ich habe eine Excel gebaut, welche durch eine Userform befüllt wird.
Beim Öffnen der Userform wird das Passwort der Datei aufgehoben - ein Datensatz wird in einer Tabelle durch die Userform ergänzt - und beim Beenden der Userform wird das Passwort für die Excel gesetzt.
Nun gibt es Kollegen, welche bei geöffneter Userform eine neue Excel-Datei öffnen.
Nun ist es vorgekommen, dass die parallel geöffnete Datei beim Beenden der Userform durch das PW gesperrt wurde...
Gebe es da eine Lösung, das zu verhindern ?
Vielen Dank
Michael
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim i As Integer
Dim myrow As Integer
Dim zelle As Range
On Error Resume Next
'Sicherheitsabfrage ob Synchronisiert werden soll
If MsgBox("Beenden ohne Synchronisieren?", _
vbQuestion + vbYesNo, "Sicherheitsabfrage!") = vbYes Then
Call MsgBox("Das Projekt wurde nicht synchronisiert!")
ActiveWorkbook.ActiveSheet.Protect Password:=1, AllowFiltering:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowSorting:=True
Exit Sub
Else:
CommandButton2_Click
End If
ActiveWorkbook.ActiveSheet.Protect Password:=1, AllowFiltering:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowSorting:=True
End Sub