MENU
 
Home
Nieuwsbrief
GC in de media
SiteMap
 
Tips en Tricks
Excel
Word
Photoshop
PowerPoint
Surf Tips
Gmail
Android
iPad
Excel ClipTips
 
cursus Office 2016
Access
Excel
Outlook
PowerPoint
Word
 
cursus Office 2013
Excel
PowerPoint
Word
Nieuw in Excel 2013
Nieuw in Word 2013
Nieuw in PowerPoint 2013
 
cursus Office 2010
Access
Nieuw in Excel 2010
Excel automatiseren
Excel
OneNote
Outlook
PowerPoint
Word
 
cursus Office 2007
Access
Excel
Outlook
PowerPoint
Publisher
Visio
Word
 
cursus Office
2000-2002-2003-XP
Access
Excel
PowerPoint
Outlook
Word
 
cursus Photoshop
CC -3D
Animatie
CS6
CS5
CS4
CS2 - CS3
Lightroom 3
Elements 6
Mask Pro
Nik Collection
 
cursus Dreamweaver
CS3
 
cursus Illustrator
CS4
 
cursus Flash
CS4
 
cursus Fireworks
CS4
 
cursus Paint Shop Pro
X en X2
 
cursus Premiere
Elements 7-8
 
cursus Joomla
Joomla 1.5
 
Sociale Netwerk sites
Facebook
LinkedIn
Twitter
 
iPad
Apps
 
Diversen
Celtx
CSS
DropBox
Firefox 3.6
GIMP
Internet Explorer 9
LIME
Linux
OpenSUZE
PREZI
ProShow Producer
YouTube
 
cursus Google
Agenda
Analytics
Gmail
Zoeken
Picasa 3
SketchUp
Chrome
Street View
 
cursus Windows
Live Movie Maker
Windows 10
Windows 8
Windows 7
XP
Vista
 
cursus Office '97
Word
Excel
 
 

 

Tips Excel   go to : Index
       

Tip 202

   
Excel Tip
 

Excel werkblad enkel kunnen sluiten wanneer er bepaalde cel is ingevuld

Op vraag van Dirk Schoonjans, toon ik jullie een manier hoe je instelt dat je een Excel-werkboek niet kunt afsluiten wanneer er een bepaalde cel niet is ingevuld.
Wens je het Excelbestand te downloaden, klik hier
Steun www. GratisCursus.be :
Sluit je Excel wanneer in dit geval cel A1 niet is ingevuld, dan krijg je het bericht dat cel A1 niet leeg mag zijn.

Dit kan enkel met behulp van VBA.
De code hiervoor is:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If Sheets("Blad1").Range("A1").Value = "" Then
Cancel = True
MsgBox "Cell A1 mag niet leeg zijn"

Else


ActiveWorkbook.Close SaveChanges:=True
End If
End Sub

 
Een woordje uitleg:
If Sheets "Blad1", dat is de naaam van mijn werkblad
Range("A1") dat is het bereik
Value = " ", wanneer de waarde van het bereik leeg is
Then Cancel = True, dus dan cancel je de close procedure
En geef je een messagebox weer met de tekst "Cell A1 mag niet leeg zijn"
Is dit niet het geval, dus is cell A1 niet leeg, dan sluit en bewaar je het werkbook.
ActiveWorkbook.Close SaveChanges:=True
 
GratisCursus.be denkt aan jullie.
 

Index
 
 
 
 

copyright © 2012 - gratiscursus.be