Gruppe
VBE
Problem
Solange die Arbeitsmappe geöffnet ist, soll auf die Entwicklungsumgebung nicht zugegriffen werden können.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
LockWindowUpdate 0&
End Sub
Private Sub Workbook_Open()
LockWindowUpdate Application.VBE.MainWindow.HWnd
End Sub
StandardModule: Modul1
Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long