Symbool klein/groot scherm verbergen of blokkeren

[Cor-Assa]

Is er iemand die weet hoe ik het blokje dat rechts boven in het excel blad staat kan verbergen of eventueel blokkeren?

Het kruisje is mij al gelukt, daar heb ik de volgende oplossing voor gevonden;

In ThisWorkbook,

Public Sub WorkBook_Beforeclose(cancel As Boolean)
If Not b_close = 1 Then
    MsgBox "Afsluiten gaat niet met het kruisje" & _
    vbNewLine & "Klik op EXIT"
    cancel = True
End If
b_close = 0
End Sub

In een nieuwe macro,

Public b_close As Integer

Public Sub s_close()
b_close = 1
'Application.DisplayAlerts = False
ThisWorkbook.Saved = True
Application.Quit
End Sub

 

Nu nog iemand die weet hoe ik het vierkantje weg kan krijgen.

 

B.v.d.

Cor Assa

22 februari 2022 aangepast door Cor-Assa

[Cor-Assa]

1 uur terug, dotchiejack zei:

Bedoel je zoiets?

In de ThisWorkbook event.

 

Private Sub Workbook_WindowResize(ByVal Wn As Window)

    Wn.WindowState = xlMaximized
    EnableResize = False
    
    Application.DisplayFullScreen = True
    Application.CommandBars("Full Screen").Enabled = False

End Sub

 

Nee helaas, het vakje is er nog steeds.

[Cor-Assa]

25 minuten geleden, dotchiejack zei:

Je vraag was toch verbergen of blokkeren.

Het is toch geblokkeerd.

Je hebt gelijk maar vreemd genoeg na de eerste keer opstarten niet, na de 2e keer wel.