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
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
confrontare e evidenziare 2 fogli excel Autore: niccia |
Forum: Applicazioni Office Windows Risposte: 7 |
[EXCEL] controllo corrispondenza tra valori con un vincolo Autore: sbs |
Forum: Applicazioni Office Windows Risposte: 9 |
Visitano il forum: Nessuno e 21 ospiti