Passwortabfrage über userform

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
Kopiere den Code in das Userform


Option Explicit

Private Declare Function FindWindow Lib "user32" Alias _
    "FindWindowA" (ByVal lpClassName As String, ByVal _
    lpWindowName As String) As Long

Private Declare Function GetWindowLong Lib "user32" Alias _
    "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex _
    As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias _
    "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex _
    As Long, ByVal dwNewLong As Long) As Long

Private Declare Function DrawMenuBar Lib "user32" (ByVal _
    hwnd As Long) As Long

Private Const GWL_STYLE As Long = -16
Private Const WS_SYSMENU As Long = &H80000

Private hWndForm As Long
Private bCloseBtn As Boolean


Private Sub UserForm_Initialize()
    If Val(Application.Version) >= 9 Then
        hWndForm = FindWindow("ThunderDFrame", Me.Caption)
    Else
        hWndForm = FindWindow("ThunderXFrame", Me.Caption)
    End If
    bCloseBtn = False
    SetUserFormStyle
End Sub



Private Sub SetUserFormStyle()
    Dim frmStyle As Long
    If hWndForm = 0 Then Exit Sub
    frmStyle = GetWindowLong(hWndForm, GWL_STYLE)
    If bCloseBtn Then
        frmStyle = frmStyle Or WS_SYSMENU
    Else
        frmStyle = frmStyle And Not WS_SYSMENU
    End If
    SetWindowLong hWndForm, GWL_STYLE, frmStyle
    DrawMenuBar hWndForm
End Sub

Darauf achten dass kein anderes Initialize-Ereignis besteht, ansonsten den Code diese Ereignisses in das oben gezeigte Beispiel kopiern.
Gruss Rainer

hallo rainer.
klappt super.
weiteres problem in diesem zusammenhang.
mein tool sieht so aus:
ein user startet meine anwendung über seine passwort-eingabe. es folgt ein selbstkreiertes design der excelumgebung mit allerlei selbst-erstellten menüleisten, etc...
dieses erfolgt alles über das workbook_open()-ereignis.
der user soll jedoch während diese anwendung offen ist, auch andere externe exceldateien öffnen können. in diesem fall wir die komplette modifizierte umgebung über das workbook deactivate()-ereignis wieder zurückgesetzt, so dass die normale excel-umgebung wieder zutage kommt.
wenn er jedoch jetzt wieder zurückwechselt, soll jedoch wieder das angepasste design meiner anwendung auftauchen!
dieses kann man ja jetzt über workbook_activate() erreichen.
wenn ich das jedoch jetzt so mache, wird ja beim normalen start der anwendung die passwortabfrage beim workbook_open()-ereignis hinfällig,oder? da ja workbook_open und workbook_activate zugleich ablaufen!?
gruß,
sören

Beliebteste Forumthreads (12 Monate)

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread