Saako exceliin aprillipilaa ?

Public i As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim viesti1 As String
Dim viesti2 As String
Dim viesti3 As String
Dim viesti4 As String

i = i 1
Select Case i
Case 1
viesti = "excel on suorittanut laittoman toiminnon ja se on suljettava"
Case 2
viesti = "excel on suorittanut laittoman toiminnon ja onko se suljettava"
Case 3
viesti = "excel on suorittanut laittoman toiminnon ja se ei sulkeudu-vai?"
Case 4
viesti = "APRILLIÄ APRILLIÄ !!!"
End Select

If Not Intersect(Target, Range("A:B")) Is Nothing Then
MsgBox viesti, vbCritical
Application.Cursor = xlWait
End If
If Not Intersect(Target, Range("C:D")) Is Nothing Then
MsgBox viesti, vbYesNo vbInformation
Application.Cursor = xlIBeam
End If
If Not Intersect(Target, Range("E:F")) Is Nothing Then
MsgBox viesti, vbYesNo vbInformation
Application.Cursor = xlNorthwestArrow
End If
If Not Intersect(Target, Range("G:H")) Is Nothing Then
Application.Cursor = xlDefault
End If
If i = 4 Then i = 0
End Sub
Sub Resetoi()
Application.EnableEvents = True
Application.Cursor = xlDefault
End Sub

Keep EXCELing
@Kunde

Kyllähän sinne saa vaikka mitä piloja tehty, muuttelee vaan asetuksia.
Mutta mieti, millainen verkko teillä on töissä, ettei sitten ole jokaisen koneella se sama pila!
Riippuu tietysti työnantajasta, miten käsittää sun pilas, etenkin jos jotain hankaluutta saat aikaan, voit saada jopa potkut tai syytteen häirinnästä....