Hallo,
man könnte doch das Menu Create/Folder deaktivieren.
z.B. mit
Dim hWnd As Long
Dim hMenu As Long
Dim intmenuitem As Integer
Const MF_BYPOSITION = &H400&
Const MF_GRAYED = &H1&
Const MF_DISABLED = &H2&
Const MF_ENABLED = &H0&
Declare Function GetActiveWindow Lib "User32" Alias "GetActiveWindow" () As Long
Declare Function GetMenu Lib "User32" Alias "GetMenu" (Byval hwnd As Long) As Long
Declare Function EnableMenuItem Lib "User32" Alias "EnableMenuItem"_
(Byval hMenu As Long, Byval wISEnableItem As Long, Byval wEnable As Long) As Long
Dim ws As New notesuiworkspace
Dim values(6) As String
values(0) = "File"
values(1) = "Edit"
values(2) = "View"
values(3) = "Create"
values(4) = "Actions"
values(5) = "Text"
values(6) = "Help"
x = ws.prompt(PROMPT_OKCANCELLIST,"Menu Modifier","Pick a menu to disable","0",values)
Select Case x
Case "File" : intmenuitem = "0"
Case "Edit" : intmenuitem = "1"
Case "View" : intmenuitem = "2"
Case "Create" : intmenuitem = "3"
Case "Actions" : intmenuitem = "4"
Case "Text" : intmenuitem = "5"
Case "Help" : intmenuitem = "6"
End Select
' intmenuitem = Inputbox("Pick a number","Menu Modifier")
'intmenuitem = 3
hwnd = getactivewindow()
hmenu = getmenu( hwnd)
Call enablemenuitem( hmenu, intmenuitem, MF_BYPOSITION + MF_GRAYED ) 'disable
'Call enablemenuitem( hmenu, intmenuitem, MF_BYPOSITION + MF_ENABLED ) 'enable