Ausblenden schließen [X] - Taste auf der excel-vba-userform für meine progress bar

Erstellt habe ich eine userform, um ein Fortschrittsbalken angezeigt, wenn das makro noch importieren Blätter
Ausblenden schließen [X] - Taste auf der excel-vba-userform für meine progress bar

Das problem ist, der Benutzer kann drücken Sie die rote [X] Schaltfläche schließen wird und interrupt-Verarbeitung durchgeführt.

Gibt es eine Möglichkeit, dies zu verbergen rote Taste of doom, so dass potenzielle Anwender haben keine verwirrenden Tasten zu klicken, während es läuft.

edit:

Habe ich versucht, dieses

'Find the userform's Window
Private Declare Function FindWindow Lib "user32" _
        Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long

'Get the current window style
Private Declare Function GetWindowLong Lib "user32" _
        Alias "GetWindowLongA" ( _
        ByVal hWnd As Long, _
        ByVal nIndex As Long) As Long

'Set the new window style
Private Declare Function SetWindowLong Lib "user32" _
        Alias "SetWindowLongA" ( _
        ByVal hWnd As Long, _
        ByVal nIndex As Long, _
        ByVal dwNewLong As Long) As Long

Const GWL_STYLE = -16
Const WS_SYSMENU = &H80000

und ich habe diese auf userform_initialize

   Dim hWnd As Long, lStyle As Long

   'Which type of userform
   If Val(Application.Version) >= 9 Then
      hWnd = FindWindow("ThunderDFrame", Me.Caption)
   Else
      hWnd = FindWindow("ThunderXFrame", Me.Caption)
   End If

   'Get the current window style and turn off the Close button
   lStyle = GetWindowLong(hWnd, GWL_STYLE)
   SetWindowLong hWnd, GWL_STYLE, (lStyle And Not WS_SYSMENU)

Bin ich immer diese Fehlermeldung
Ausblenden schließen [X] - Taste auf der excel-vba-userform für meine progress bar

dieser code wurde aus hier. Ich weiß nicht, was ich falsch mache und ich schon die Kommentare entfernt. Dies ist der einfachste code, den ich gefunden habe, so möchte ich ihn integrieren, um zu meinem userform. Jede Hilfe ist willkommen.

  • Die Antwort auf diese Frage kam, als mein top-suchergebnis. Hast du etwas ausprobieren?
  • aktualisiert mit ein paar mehr Infos
  • Könnten Sie das klären und ändern Sie das Wort 'deaktiviert' auf 'ausblenden und deaktivieren" wenn dies ist, was Sie beabsichtigen zu tun? Das deaktivieren der Funktion ist relativ einfach. Verstecken scheint es nicht zu sein.
  • Haben Sie versucht, den code da unten?
  • Um das problem zu beheben Sie zeigen in der Abbildung: verschieben Sie die API-Deklaration an den Anfang des Moduls!
  • ein Freund ist auch aufgefallen, dass an diesem morgen, so war es gerade behoben, danke. Wusste nicht, dass man nicht einfach einen code-block, der überall in VBA. Ich dachte nur Options sollte an der Spitze.
  • möglich, Duplikat der so entfernen Sie den schließen(x) option aus excel-userform?

InformationsquelleAutor forums | 2013-03-01
Schreibe einen Kommentar