Buona serata a tutti,
è possibile in Excell bloccare o nascondere i comandi il alto a destra, riduci ad icona e ingrandisci?
Grazie
Francesco
Moderatori: Anthony47, Flash30005
Application.WindowState = xlMaximized
Application.WindowState = xlNormal
Application.WindowState = xlMinimized
Public blnexit As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = Not blnexit
If blnexit = False Then
MsgBox "Utilizzare il pulsante CHIUDI"
End If
End Sub
Private Sub Workbook_Open()
Disattiva_Barre
End Sub
Sub Chiudi_File()
Application.ScreenUpdating = False
Riattiva_Barre
ThisWorkbook.blnexit = True
Application.ScreenUpdating = True
ActiveWorkbook.Close
Application.OnKey "%{f11}"
End Sub
Sub Disattiva_Barre()
Application.OnKey "%{f11}", ""
Application.DisplayFormulaBar = False
Set Barre = Application.CommandBars
For I = 1 To Application.CommandBars.Count
Barre(I).Enabled = False
Next I
End Sub
Sub Riattiva_Barre()
Application.DisplayFormulaBar = True
Set Barre = Application.CommandBars
For I = 1 To Application.CommandBars.Count
Barre(I).Enabled = True
Next I
End Sub
Sub Chiudi_File()
Application.ScreenUpdating = False
Riattiva_Barre
ThisWorkbook.blnexit = True
Application.ScreenUpdating = True
ActiveWorkbook.Close
Application.OnKey "%{f11}"
End Sub
Sub Disattiva_Barre()
Application.OnKey "%{f11}", ""
Application.DisplayFormulaBar = False
Application.DisplayFullScreen = True
Set Barre = Application.CommandBars
For I = 1 To Application.CommandBars.Count
Barre(I).Enabled = False
Next I
End Sub
Sub Riattiva_Barre()
Application.DisplayFormulaBar = True
Application.DisplayFullScreen = False
Set Barre = Application.CommandBars
For I = 1 To Application.CommandBars.Count
Barre(I).Enabled = True
Next I
End Sub
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 6 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 58 ospiti