file Excel

da inserire in ThisWorkbook

• Sub Workbook_Open () macro che si esegue all'appertura del file

esempio: apre un altro file all'appertura vedi le funzioni file
Sub Workbook_Open()

Workbooks.Open file name:="C:\.........\file .xlsm"
Workbooks.Open file Name:=ActiveWorkbook.Path & "\file .xlsm"
Workbooks("file .xlsm").Worksheets("SCHEDA").Activate

End Sub



esempio: se non sei l'utente Windows indicato allora chiudi Excel
If Environ("UserName") <> "UTENTE" Then

Application.Quit

End If




• Sub Workbook_BeforeClose(Cancel As Boolean) macro che si esegue alla chiusura del file

esempio: con ActiveWorkbook.Save salva il file senza chiedere nulla alla chiusura se non di sola lettura
Sub Workbook_BeforeClose(Cancel As Boolean)

If ActiveWorkbook.ReadOnly = False Then

ActiveWorkbook.Save chiude senza chiedere conferma

Else

ActiveWorkbook.Saved = True chiude il file senza salvare la modifiche anche se ci sono state

End If

End Sub

é possibile bloccare il comando di chiusura del file
Cancel = True

per esempio inserendo un If e in certe condizioni non chiudere il file

file Word

da inserire in ThisDocument

• Sub Document_Close() macro che parte alla chiusura del file

ActiveDocument.Save funzioni file , salva il file senza chiedere nulla

esempio: con ActiveDocument.Save salva il file senza chiedere nulla alla chiusura
Sub Document_Close()

ActiveDocument.Save

End Sub

Cartelle Excel

• Sub Worksheet_Activate() questa macro si attiva quando si attiva un certo foglio, va inserita nel foglio stesso

Sub Worksheet_Activate()

MsgBox "Ciao", vbExclamation

End Sub




• Worksheet_Change(ByVal target As Range) questa macro si attiva quando si modifica il foglio, va inserita nel foglio stesso

esempio di macro che controlla le celle dalla A1 alla F100 e se il valore non é A o vuoto da un messaggio
Dim CL As Object definisco la variabile come oggetto

For Each CL In Range("A1:F100") ciclo for-next di controllo per ogni cella dell'area

If CL.Value = "" Then GoTo 10 se é vuota va a 10

If CL.Value = "A" Then se é A va a 10

GoTo 10

Else altrimenti

CL.Select seleziona la cella
MsgBox ("Messaggio") messaggio

End If
10:

Next



esempio: nella modifica di una sopecifica cella A1 solo quella, si visualizza un messaggio
' variabili
Dim KeyCells As Range
Set KeyCells = Range("A1")

' se la cella viene modificata
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then

MsgBox("cambiata")

End If




• Sub Worksheet_SelectionChange(ByVal target As Range)
questa macro si attiva quando si cambia la selezione nel foglio, va inserita nel foglio stesso