Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 11 van 11

Onderwerp: Minimize en close button uitschakelen of verbergen.

  • Vraag is opgelost
  1. #1

    Minimize en close button uitschakelen of verbergen.

    De close button heb ik op deze manier weten we omzeilen.

    Code:
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
    Cancel = True
    
    End Sub
    Echter kan je nogsteeds minimaliseren en verkleinen. Dit wil ik niet mogelijk laten zijn.
    Wat ook kan is zorgen dat het scherm in full screen naar boven verschuift zodat je simpelweg niet bij de knoppen kan.

    Heeft iemand tips, bedankt!

  2. #2
    Probeer onderstaande eens.
    In ThisWorkbook.
    Code:
    Private Sub Workbook_WindowResize(ByVal Wn As Window)
     Wn.WindowState = xlMaximized
    End Sub
    ____________
    mvg,
    Harry

    Wie met de duivel danst, moet het orkest betalen.

  3. #3
    Bedankt, maar dit werk niet op het programma zelf, alleen op de worksheet.

  4. #4
    Mega Senior Ginger's avatar
    Geregistreerd
    29 december 2006
    Locatie
    Delft
    Afstand tot server
    ±163 km
    De Guru's van Mr.Excel hebben dit ook al 'ns behandeld. Klik hier voor het engelstalige draadje...

    Groet, Leo
    ____________________________
    GINGER AlsoKnownAs REDHEAD
    + + + + + + + + + + + + + + + + + + + + + + + + + +
    Test een nieuwe VBA-code altijd éérst uit op een
    kopie van het bestand ipv direct in het orgineel...!

    + + + + + + + + + + + + + + + + + + + + + + + + + +

  5. #5
    Ok super, maar codes met declare etc. Hoe werkt dat precies als ik vragen mag.

    Bedankt!

  6. #6
    Mega Honourable Senior Member Warme bakkertje's avatar
    Geregistreerd
    13 april 2008
    Locatie
    Merksem
    Afstand tot server
    ±181 km
    Heb je enkele weken de tijd om dat uitgelegd te krijgen. Google maar eens op API.
    Mvg,
    Rudi

    Er zijn geen domme vragen, enkel domme antwoorden

  7. #7
    Nougoed ik denk dat ik met mijn learningcurve het aardig snel onder de knie. Heb nog nooit gehoord van API maar als je me een kant op kan sturen zou het super zijn. Is API in excell zelf of?

    Thanks!

  8. #8
    Mega Honourable Senior Member Warme bakkertje's avatar
    Geregistreerd
    13 april 2008
    Locatie
    Merksem
    Afstand tot server
    ±181 km
    http://allapi.mentalis.org/vbtutor/api1.shtml
    Maar de code die jij nodig hebt is toch al uitgewerkt in het antwoord van Leo. Je moet die enkel naar jouw bestand kopieëren en klaar is kees.
    Laatst aangepast door Warme bakkertje : 6 mei 2012 om 16:51
    Mvg,
    Rudi

    Er zijn geen domme vragen, enkel domme antwoorden

  9. #9
    Zou je een voorbeeldbestandje kunnen maken voor me?
    Ik snap die functies met declare niet.

    Dank!

  10. #10
    Mega Honourable Senior Member Warme bakkertje's avatar
    Geregistreerd
    13 april 2008
    Locatie
    Merksem
    Afstand tot server
    ±181 km
    Zet deze in een standaardmodule
    Code:
    Option Explicit
    
    Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal _
        bRevert As Long) As Long
    Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal _
        nPosition As Long, ByVal wFlags As Long) As Long
    Declare Function FindWindowA Lib "User32" (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
    
    Const MF_BYPOSITION As Long = &H400
    Const mlNUM_SYS_MENU_ITEMS As Long = 7 'min, max & close
    'Const mlNUM_SYS_MENU_ITEMS As Long = 6 'min & max
    
    Sub DisableActiveDialogMenuControls()
        Dim DialogCaption As String
        Dim lHandle As Long, lcount As Long
        On Error Resume Next
        DialogCaption = Application.Caption
        DialogCaption = DialogCaption & vbNullChar
        lHandle = FindWindowA(vbNullString, DialogCaption)
        If lHandle <> 0 Then
            For lcount = 1 To mlNUM_SYS_MENU_ITEMS
                DeleteMenu GetSystemMenu(lHandle, False), 0, MF_BYPOSITION
            Next lcount
        End If
    End Sub
    
    Sub EnableActiveDialogMenuControls()
        Dim lHandle As Long
        Dim DialogCaption As String
        On Error Resume Next
        DialogCaption = Application.Caption
        DialogCaption = DialogCaption & vbNullChar
        lHandle = FindWindowA(vbNullString, DialogCaption)
        GetSystemMenu lHandle, True
    End Sub
    En deze in ThisWorkbook
    Code:
    Private Sub Workbook_Open()
        DisableActiveDialogMenuControls
    End Sub
    
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
        EnableActiveDialogMenuControls
    End Sub
    Mvg,
    Rudi

    Er zijn geen domme vragen, enkel domme antwoorden

  11. #11
    Super dank je wel!!!

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren
Linkpartners
Aanbiedingen