AW: bei mir klappt das ...
26.03.2012 11:17:34
Jenny
Hallo Matthias,
ich bin ein Stück weitergekommen, nachdem ich den Application.OnKey Teil auch unter den anderen User kopiert habe. :-)
Nun ist die Esc-Taste zwar deaktiviert, statt der Message Box bekomme ich jedoch folgende Fehlermeldung - kann es sein, dass ich hier nur die Message Box irgendwo anders definieren muss ?
Fehlermeldung:
"Cannot run the macro... The macro may not be available in this workbook or all macros may be disabled."
Code neu:
Private Sub Workbook_Open()
Select Case Environ("Username")
Case "Notebook"
Worksheets(1).Visible = True
Worksheets(2).Visible = True
Worksheets(3).Visible = True
Worksheets(4).Visible = True
Application.DisplayFullScreen = True
Application.OnKey "{ESC}", "DoNothing"
Case Else
Worksheets(1).Visible = xlVeryHidden
Worksheets(2).Visible = True
Worksheets(3).Visible = xlVeryHidden
Worksheets(4).Visible = xlVeryHidden
Application.DisplayFullScreen = True
With ActiveWindow
.DisplayHeadings = False
End With
Application.OnKey "{ESC}", "DoNothing"
End Select
Sheets("Policy Search").Range("K5") = Environ("username")
End Sub
Private Sub DoNothing()
MsgBox "This key has been deactivated for your own protection. ;-)"
End Sub
LG
Jenny