Ik probeer via de volgende code een werkmap te verwijderen:
De code loop helemaal door, echter de werkmap wordt niet verwijdert. Wanneer ik het stukje onder case vbYes aanpas naar:
dan loopt de code vast op Kill wB. De regel wordt geel en als ik er vervolgens met de muis over heen beweeg, zie ik het juiste pad en bestand staan wat verwijdert moet worden. Hij doet het echter niet...
Iemand een idee hoe ik dit kan oplossen / waar dit door komt?
Ik gebruik windows XP en Excel2007.
Alvast bedankt
Code:
Sub Blad_verwijderen()
Dim vAntwoord As Variant
vAntwoord = MsgBox("Wilt u dit blad verwijderen?", vbYesNoCancel, "ik vraag u:")
ActiveSheet.Unprotect ("")
Select Case vAntwoord
Case vbYes
Dim wB As String
wB = ActiveWorkbook.FullName
Application.DisplayAlerts = False
ActiveWorkbook.Close
Kill wB
Application.DisplayAlerts = True
Case vbNo
ActiveSheet.Protect ("")
MsgBox "Nee; blad wordt niet verwijderd.", vbInformation
Case vbCancel
ActiveSheet.Protect ("")
MsgBox "Annuleren; blad wordt niet verwijderd.", vbInformation
End Select
End Sub
De code loop helemaal door, echter de werkmap wordt niet verwijdert. Wanneer ik het stukje onder case vbYes aanpas naar:
Code:
Case vbYes
Dim wB As String
wB = ActiveWorkbook.FullName
Kill wB
dan loopt de code vast op Kill wB. De regel wordt geel en als ik er vervolgens met de muis over heen beweeg, zie ik het juiste pad en bestand staan wat verwijdert moet worden. Hij doet het echter niet...
Iemand een idee hoe ik dit kan oplossen / waar dit door komt?
Ik gebruik windows XP en Excel2007.
Alvast bedankt